Code: Select all
#include "hbclass.ch"
#include "GdiPlus.ch"
#define VK_CONTROL 17
#define VK_SHIFT 16
#define VK_TAB 9
#define CRLF Chr( 9 ) + Chr( 13 )
#xcommand DEFAULT <uVar> := <uVal> => IF <uVar> == NIL; <uVar> := <uVal>; ENDIF
//-----------------------------------------------------------------------------------------------//
INIT PROC C5ImageGdiPlus
RegisterClass()
RETURN
//-----------------------------------------------------------------------------------------------//
CLASS TImageGdiPlus From TControl
DATA oImage
DATA nLeft INIT 010
DATA nTop INIT 010
DATA nWidth INIT 200
DATA nHeight INIT 200
DATA nX INIT 000
DATA nY INIT 000
DATA nZoom INIT 001
DATA nStep INIT 010 // pixeles que se va a mover cada que presionas una tecla de movimiento
DATA nFactSpeed INIT 003 // Factor por el que se va a multiplicar cuando hagas GoXXXX( .T. )
DATA nFactZoom INIT 0.005
DATA nMaxZoom INIT 002
DATA nMinZoom INIT 0.500
DATA nColorRect INIT 0x10FF0000
DATA aColorRect INIT { 0, 0, 0, 0 }
DATA nAjusteX INIT 0
DATA nAjusteY INIT 0
DATA nAngle INIT 0
DATA nFactAngle INIT 0.10
METHOD New()
METHOD SetImage( oImage, lEnd )
Method SetImage2( cImage )
METHOD OnPaint()
METHOD GoLeft()
METHOD GoRight()
METHOD GoUp()
METHOD GoDown()
METHOD ZoomPlus() INLINE ::nZoom += Min( ::nFactZoom, ::nMaxZoom - ::nZoom )
METHOD ZoomMinus() INLINE ::nZoom -= Min( ::nFactZoom, ::nZoom - ::nMinZoom )
METHOD SetPos( nX, nY ) INLINE ::nX := nX, ::nY := nY, ::Refresh()
DATA bKeyDown
METHOD OnKeyDown()
METHOD Redefine()
METHOD Initiate()
METHOD Link()
DATA lMouseMark INIT .F.
DATA aMouseMark INIT { 0, 0, 0, 0 }
DATA nMouseMark INIT 0x40FF0000
DATA lButtonDown INIT .F.
DATA nMouseX INIT 0
DATA nMouseY INIT 0
DATA lDestroy INIT .T.
METHOD OnMouseMove()
METHOD OnLButtonDown()
METHOD OnLButtonUp()
METHOD OnRButtonUp()
METHOD AllPage()
Method OnNCDestroy()
Method SetImage()
ENDCLASS
//-----------------------------------------------------------------------------------------------//
Method OnNCDestroy()
if ::oImage != NIL .AND. ::lDestroy
::oImage:End()
Endif
RETURN NIL
//-----------------------------------------------------------------------------------------------//
METHOD OnLButtonUp()
IF ::lMouseMark
::lButtonDown := .F.
ENDIF
IF GetKeyState( VK_CONTROL )
::nX := ::aMouseMark[01] * -1
::nY := ::aMouseMark[02] * -1
::nZoom := 1
::Refresh()
ENDIF
RETURN NIL
//-----------------------------------------------------------------------------------------------//
METHOD OnRButtonUp()
IF ::lMouseMark
IF ::aMouseMark[03] != 0
::nX := ::aMouseMark[01] * -1
::nY := ::aMouseMark[02] * -1
::nZoom := 1
::nZoom := Min( ::GetCliRect:nWidth() / ::aMouseMark[03],;
::GetCliRect():nHeight() / ::aMouseMark[04] )
::aMouseMark := { 0, 0, 0, 0 }
ENDIF
::Refresh()
ENDIF
RETURN NIL
//-----------------------------------------------------------------------------------------------//
METHOD AllPage()
::nX := 0
::nY := 0
::nZoom := Min( ::GetCliRect():nWidth / ::oImage:GetWidth(),;
::GetCliRect():nHeight / ::oImage:GetHeight )
RETURN NIL
//-----------------------------------------------------------------------------------------------//
METHOD OnLButtonDown()
IF ::lMouseMark
::aMouseMark[01] := ::nMouseX
::aMouseMark[02] := ::nMouseY
::lButtonDown := .T.
ENDIF
RETURN NIL
//-----------------------------------------------------------------------------------------------//
METHOD OnMouseMove( nX, nY )
LOCAL a
IF ::lMouseMark
::nMouseX := ( ::nX * -1 ) + ( nX / ::nZoom )
::nMouseY := ( ::nY * -1 ) + ( nY / ::nZoom )
IF ::lButtonDown
::aMouseMark[03] := ::nMouseX - ::aMouseMark[01]
::aMouseMark[04] := ::nMouseY - ::aMouseMark[02]
::Refresh()
ENDIF
a := ::aMouseMark
ENDIF
RETURN NIL
//-----------------------------------------------------------------------------------------------//
METHOD Redefine( oWnd, nId )
::oWnd := oWnd
::nId := nId
::oWnd:AddControl( SELF )
RETURN SELF
//-----------------------------------------------------------------------------------------------//
METHOD Initiate()
::hWnd := GetDlgItem( ::oWnd:hWnd, ::nId )
::Link( ::hWnd )
RETURN NIL
//-----------------------------------------------------------------------------------------------//
METHOD OnKeyDown( nKey )
LOCAL lSpeed
IF nKey == 119 // VK_F8
::GoLeft( .T. )
::Refresh()
ENDIF
IF nKey == 120 // VK_F9
::GoRight( .T. )
::Refresh()
ENDIF
IF !GetKeyState( VK_CONTROL )
RETURN NIL
ENDIF
IF GetKeyState( VK_CONTROL ) .AND. GetKeyState( 65 )
DO CASE
CASE nKey == 37
::nAjusteX += 05
CASE nKey == 38
::nAjusteY += 05
CASE nKey == 39
::nAjusteX -= 05
CASE nKey == 40
::nAjusteY -= 05
CASE nKey == 107
IF ::nAngle < 45; ::nAngle += ::nFactAngle; ENDIF
CASE nKey == 109
IF ::nAngle > -45; ::nAngle -= ::nFactAngle; ENDIF
ENDCASE
::Refresh()
RETURN NIL
ENDIF
IF GetKeyState( VK_SHIFT )
lSpeed := .T.
ENDIF
DO CASE
CASE nKey == 80
::AllPage()
CASE nKey == 37
::GoLeft ( lSpeed )
CASE nKey == 38
::GoUp ( lSpeed )
CASE nKey == 39
::GoRight( lSpeed )
CASE nKey == 40
::GoDown ( lSpeed )
CASE nKey == 107 // +
::ZoomPlus()
CASE nKey == 109 // -
::ZoomMinus()
ENDCASE
::Refresh()
RETURN NIL
//-----------------------------------------------------------------------------------------------//
METHOD GoLeft( lSpeed )
LOCAL nSt
DEFAULT lSpeed := .F.
nSt := ::nStep * IF( lSpeed, ::nFactSpeed, 1 )
::nX += Min( nSt, Abs( ::nX ) )
RETURN NIL
//-----------------------------------------------------------------------------------------------//
METHOD GoRight( lSpeed )
LOCAL oRC := ::GetCliRect()
LOCAL nSt
DEFAULT lSpeed := .F.
nSt := ::nStep * IF( lSpeed, ::nFactSpeed, 1 )
::nX -= Min( nSt, ::oImage:GetWidth() - Abs( ::nX ) - ( oRC:nWidth / ::nZoom ) )
RETURN NIL
//-----------------------------------------------------------------------------------------------//
METHOD GoUp( lSpeed )
LOCAL nSt
DEFAULT lSpeed := .F.
nSt := ::nStep * IF( lSpeed, ::nFactSpeed, 1 )
::nY += Min( nSt, Abs( ::nY ) )
RETURN NIL
//-----------------------------------------------------------------------------------------------//
METHOD GoDown( lSpeed )
LOCAL oRC := ::GetCliRect()
LOCAL nSt
DEFAULT lSpeed := .F.
nSt := ::nStep * IF( lSpeed, ::nFactSpeed, 1 )
::nY -= Min( nSt, ::oImage:GetHeight() - Abs( ::nY ) - ( oRC:nHeight / ::nZoom ) )
RETURN NIL
//-----------------------------------------------------------------------------------------------//
METHOD SetImage( oImage, lEnd )
LOCAL oImageTmp
DEFAULT lEnd := .T.
IF ::oImage != NIL
oImageTmp := ::oImage
ENDIF
::oImage := oImage
IF lEnd .AND. oImageTmp != NIL
oImageTmp:END()
ENDIF
RETURN SELF
//-----------------------------------------------------------------------------------------------//
METHOD SetImage2( cImage )
Local oImage, oImageTmp
oImage := Image( cImage )
if ::oImage != NIL
oImageTmp := ::oImage
Endif
::oImage := oImage:GetThumbnailImage( oImage:GetWidth(), oImage:GetHeight() )
if oImageTmp != NIL
oImageTmp:End()
Endif
oImage:End()
Return NIL
//-----------------------------------------------------------------------------------------------//
METHOD New( oWnd, nLeft, nTop, nWidth, nHeight )
::oWnd := oWnd
DEFAULT nLeft := ::nLeft
DEFAULT nTop := ::nTop
DEFAULT nWidth := ::nWidth
DEFAULT nHeight := ::nHeight
::nLeft := nLeft
::nTop := nTop
::nWidth := nWidth
::nHeight := nHeight
::hWnd := CreateWindowEx( ::nLeft, ::nTop, ::nWidth, ::nHeight, ::oWnd:hWnd, SELF )
::bKeyDown := { |nKey| ::OnKeyDown( nKey ) }
RETURN SELF
//-----------------------------------------------------------------------------------------------//
METHOD OnPaint( hDC )
LOCAL oG, oRC, oBM, FontFamily, Font, RectF, stringformat, solidbrush, string, aPoints, nAngle
LOCAL nL, nT, nW, nH, nRadA, nRadB, oBitmap, oGraphics
oRC := ::GetCliRect()
// Doble Buffer
oBitmap := BITMAP( oRC:nWidth, oRC:nHeight )
oG := Graphics( oBitmap )
// Eof Doble Buffer
oG:Clear( oG:Color( 255, 230, 230, 230 ) )
IF ::oImage != NIL
IF ::nAngle == 0
oG:DrawImage( ::oImage, ( ::nX + ::nAjusteX ) * ::nZoom, ( ::nY + ::nAjusteY ) * ::nZoom, ::oImage:GetWidth() * ::nZoom,;
::oImage:GetHeight() * ::nZoom )
ELSE
// Rotacion de la imagen -45 a 45 Grados
nAngle := ::nAngle
nL := ( ::nX + ::nAjusteX ) * ::nZoom
nT := ( ::nY + ::nAjusteY ) * ::nZoom
nW := ::oImage:GetWidth() * ::nZoom
nH := ::oImage:GetHeight() * ::nZoom
IF nAngle > 0
nRadB := nAngle * ( 3.14159265 / 180 )
nRadA := ( 180 - nAngle - 90 ) * ( 3.14159265 / 180 )
aPoints := { { nL, nT },;
{ nL + ( nW * sin( nRadA ) ), nT + ( nW * sin( nRadB ) ) },;
{ nL - ( nH * sin( nRadB ) ), nT + ( nH * sin( nRadA ) ) } }
ELSE
nAngle := nAngle * - 1
nRadB := nAngle * ( 3.14159265 / 180 )
nRadA := ( 180 - nAngle - 90 ) * ( 3.14159265 / 180 )
aPoints := { { nL, nT },;
{ nL + ( nW * sin( nRadA ) ), nT - ( nW * sin( nRadB ) ) },;
{ nL + ( nH * sin( nRadB ) ), nT + ( nH * sin( nRadA ) ) } }
ENDIF
oG:DrawImage( ::oImage, aPoints, 3 )
ENDIF
ENDIF
// Cuadro
IF ::aColorRect != NIL
oG:FillRectangle( oG:SolidBrush( oG:Color( ::nColorRect ) ),;
oG:RectF( ( ::aColorRect[1] + ::nX ) * ::nZoom, ( ::aColorRect[2] + ::nY ) * ::nZoom,;
::aColorRect[3] * ::nZoom, ::aColorRect[4] * ::nZoom ) )
ENDIF
// Marca
IF ::lMouseMark
oG:FillRectangle( oG:SolidBrush( oG:Color( ::nMouseMark ) ),;
oG:RectF( ( ::aMouseMark[1] + ::nX ) * ::nZoom, ( ::aMouseMark[2] + ::nY ) * ::nZoom,;
::aMouseMark[3] * ::nZoom, ::aMouseMark[4] * ::nZoom ) )
ENDIF
IF GetKeyState( VK_TAB ) .AND. GetKeyState( VK_CONTROL )
fontFamily := oG:FontFamily( "Arial" )
font := oG:Font( fontFamily, 12, FontStyleBold, UnitPoint )
rectF := oG:RectF( 0, 0, oRC:nWidth, oRC:nHeight )
stringFormat := StringFormat()
solidBrush := SolidBrush( oG:Color( 255, 255, 0, 0 ) )
stringFormat:SetAlignment( StringAlignmentCenter )
stringFormat:SetLineAlignment( StringAlignmentCenter )
string := ;
"Step:" + Str( ::nStep ) + " Factor Speed:" + Str( ::nFactSpeed ) + CRLF +;
"Posicion X:" + Str( ::nX ) + " Posicion Y:" + Str( ::nY ) + CRLF +;
"Zoom: " + Str( ::nZoom ) + " Zoom Minimo: " + Str( ::nMinZoom ) + " Zoom Maximo: " + Str( ::nMaxZoom )
oG:DrawString( string, -1, font, rectF, stringFormat, solidBrush )
ENDIF
oG:END()
// Volcado DobleBuffer
oGraphics := Graphics( hDC )
oGraphics:DrawImage( oBitmap, 0, 0, oRC:nWidth, oRC:nHeight )
oGraphics:END()
oBitmap:END()
// Eof Volcado Doble Buffer
RETURN NIL
//-----------------------------------------------------------------------------------------------//
#pragma BEGINDUMP
#include <hbvm.h>
#include <hbapi.h>
#include <windows.h>
#include <hbapiitm.h>
/*-----------------------------------------------------------------------------------------------*/
LRESULT CALLBACK ImageGdiPlus_WindowProcedure( HWND hWnd, UINT iMsg, WPARAM wParam, LPARAM lParam )
{
switch( iMsg )
{
case WM_NCCREATE:
{
if ((PHB_ITEM)(((LPCREATESTRUCT)lParam)->lpCreateParams))
{
PHB_ITEM pSelf = hb_itemNew( ( PHB_ITEM ) ( ( ( LPCREATESTRUCT ) lParam ) -> lpCreateParams ) );
SetProp( hWnd, "C5OBJECT", pSelf );
return TRUE;
}
else
return FALSE;
}
case WM_PAINT:
{
PHB_ITEM pSelf;
HDC hdc;
PAINTSTRUCT ps;
pSelf = (PHB_ITEM) GetProp( hWnd, "C5OBJECT" );
hdc = BeginPaint( hWnd, &ps );
if( pSelf )
{
hb_vmPushSymbol( hb_dynsymSymbol( hb_dynsymFind( "ONPAINT" ) ) );
hb_vmPush( pSelf );
hb_vmPushLong( (long) hdc );
hb_vmDo( 1 );
}
EndPaint( hWnd, &ps );
return 1;
}
case WM_ERASEBKGND:
return 1;
case WM_RBUTTONUP:
{
PHB_ITEM pSelf;
pSelf = (PHB_ITEM) GetProp( hWnd, "C5OBJECT" );
if( pSelf )
{
hb_vmPushSymbol( hb_dynsymSymbol( hb_dynsymFind( "ONRBUTTONUP" ) ) );
hb_vmPush( pSelf );
hb_vmDo( 0 );
}
break;
}
case WM_NCDESTROY:
{
PHB_ITEM pSelf;
pSelf = (PHB_ITEM) GetProp( hWnd, "C5OBJECT" );
if( pSelf )
{
hb_vmPushSymbol( hb_dynsymSymbol( hb_dynsymFind( "ONNCDESTROY" ) ) );
hb_vmPush( pSelf );
hb_vmDo( 0 );
}
break;
}
case WM_LBUTTONDOWN:
{
PHB_ITEM pSelf;
pSelf = (PHB_ITEM) GetProp( hWnd, "C5OBJECT" );
if( pSelf )
{
hb_vmPushSymbol( hb_dynsymSymbol( hb_dynsymFind( "ONLBUTTONDOWN" ) ) );
hb_vmPush( pSelf );
hb_vmDo( 0 );
}
break;
}
case WM_LBUTTONUP:
{
PHB_ITEM pSelf;
pSelf = (PHB_ITEM) GetProp( hWnd, "C5OBJECT" );
if( pSelf )
{
hb_vmPushSymbol( hb_dynsymSymbol( hb_dynsymFind( "ONLBUTTONUP" ) ) );
hb_vmPush( pSelf );
hb_vmDo( 0 );
}
break;
}
case WM_MOUSEMOVE:
{
PHB_ITEM pSelf;
pSelf = (PHB_ITEM) GetProp( hWnd, "C5OBJECT" );
if( pSelf )
{
hb_vmPushSymbol( hb_dynsymSymbol( hb_dynsymFind( "ONMOUSEMOVE" ) ) );
hb_vmPush( pSelf );
hb_vmPushInteger( LOWORD( lParam ) );
hb_vmPushInteger( HIWORD( lParam ) );
hb_vmDo( 2 );
}
break;
}
}
if ( GetProp( hWnd, "C5OLDPROC" ) )
CallWindowProc( (WNDPROC) GetProp( hWnd, "C5OLDPROC" ), hWnd, iMsg, wParam, lParam );
return DefWindowProc( hWnd, iMsg, wParam, lParam );
}
/*-----------------------------------------------------------------------------------------------*/
HB_FUNC_STATIC( REGISTERCLASS )
{
WNDCLASS wndClass;
ZeroMemory(&wndClass, sizeof(WNDCLASS));
wndClass.style = CS_HREDRAW | CS_VREDRAW;
wndClass.lpfnWndProc = ImageGdiPlus_WindowProcedure;
wndClass.cbClsExtra = 0;
wndClass.cbWndExtra = 0;
wndClass.hCursor = LoadCursor(0,IDC_ARROW);
wndClass.hbrBackground = NULL;
wndClass.lpszClassName = "C5IMAGEGDIPLUS";
hb_retnl( RegisterClass(&wndClass) );
}
/*-----------------------------------------------------------------------------------------------*/
HB_FUNC_STATIC( TIMAGEGDIPLUS_LINK )
{
SetProp( (HWND)hb_parnl( 1 ), "C5OBJECT", hb_itemNew( hb_param( 0, HB_IT_OBJECT ) ) );
SetProp( (HWND)hb_parnl( 1 ), "C5OLDPROC", (HANDLE)SetWindowLong( (HWND)hb_parnl( 1 ), GWL_WNDPROC,
(long)ImageGdiPlus_WindowProcedure ) );
}
/*-----------------------------------------------------------------------------------------------*/
HB_FUNC_STATIC( CREATEWINDOWEX )
{
hb_retnl( (long) CreateWindowEx( 0, "C5IMAGEGDIPLUS", "", WS_CHILD | WS_VISIBLE | WS_BORDER,
hb_parni( 1 ), hb_parni( 2 ), hb_parni( 3 ), hb_parni( 4 ), (HWND)hb_parnl( 5 ),
(HMENU)-1, GetModuleHandle( 0 ), hb_param( 6, HB_IT_OBJECT ) ) );
}
Code: Select all
/*
* Gdi+
* Lira Lira _ Joel [_]
* Francisco Garcia Fernandez [Paco]
* Julio 6 del 2007
* CopyRight Todos los Derechos _ 2007
* Ultima Actualizacion: :>: 11/15/2007 14:07 by :(_):
*
* http://msdn2.microsoft.com/en-us/library/ms533799.aspx
*/
#include "hbclass.ch"
#include "GdiPlus.ch"
#xcommand DEFAULT <uVar> := <uVal> => IF <uVar> == NIL; <uVar> := <uVal>; ENDIF
INIT PROC GdiPlus
C5GP_StartUp()
RETURN
/*
* GdiPlusBase
/*-----------------------------------------------------------------------------------------------*/
/*-----------------------------------------------------------------------------------------------*/
CLASS GdiPlusBase
PROTECTED:
DATA pObj
DATA aObj INIT {}
METHOD AddObj( oObj ) INLINE AAdd( ::aObj, oObj ), oObj
CLASSDATA nCls
PUBLIC:
METHOD nGetCls() INLINE ::nCls
METHOD End() INLINE AEval( ::aObj, { |o| o:END() } ), C5GP_DELETE( ::pObj, ::nCls )
METHOD GetLastStatus() INLINE C5GP_GETLASTSTATUS( ::pObj, ::nCls )
METHOD AdjustableArrowCap( nHeight, nWidth, lIsFilled ) INLINE ::AddObj( AdjustableArrowCap( nHeight, nWidth, lIsFilled ) )
METHOD Font( oFFcFN, nSize, nStyle, nUnit, oCollection ) INLINE ::AddObj( Font( oFFcFN, nSize, nStyle, nUnit, oCollection ) )
METHOD RectF( nL, nT, nW, nH ) INLINE ::AddObj( RectF( nL, nT, nW, nH ) )
METHOD Color( nA, nR, nG, nB ) INLINE ::AddObj( Color( nA, nR, nG, nB ) )
METHOD LinearGradientBrush( oRectF, oC1, oC2, iMode, p5 ) INLINE ::AddObj( LinearGradientBrush( oRectF, oC1, oC2, iMode, p5 ) )
METHOD StringFormat() INLINE ::AddObj( StringFormat() )
METHOD SolidBrush( oColor ) INLINE ::AddObj( SolidBrush( oColor ) )
METHOD Image( cImage ) INLINE ::AddObj( Image( cImage ) )
METHOD Pen( oColor_oBrush, nWidth ) INLINE ::AddObj( Pen( oColor_oBrush, nWidth ) )
METHOD HatchBrush( nType, oColor1, oColor2 ) INLINE ::AddObj( HatchBrush( nType, oColor1, oColor2 ) )
METHOD PointF( nX, nY ) INLINE ::AddObj( PointF( nX, nY ) )
METHOD Matrix( p1, p2, p3, p4, p5, p6 ) INLINE ::AddObj( Matrix( p1, p2, p3, p4, p5, p6 ) )
METHOD FontFamily( cFamily, oFontCollection ) INLINE ::AddObj( FontFamily( cFamily, oFontCollection ) )
METHOD GraphicsPath( nFillMode ) INLINE ::AddObj( GraphicsPath( nFillMode ) )
METHOD TextureBrush( p1, p2, p3, p4, p5, p6 ) INLINE ::AddObj( TextureBrush( p1, p2, p3, p4, p5, p6 ) )
METHOD BITMAP( p1, p2, p3 ) INLINE ::AddObj( BITMAP( p1, p2, p3 ) )
METHOD ImageAttributes() INLINE ::AddObj( ImageAttributes() )
ENDCLASS
/*
* Font
/*-----------------------------------------------------------------------------------------------*/
/*-----------------------------------------------------------------------------------------------*/
CLASS Font From GdiPlusBase
PROTECTED:
CLASSDATA nCls INIT C5CLS_FONT
PUBLIC:
METHOD New( cFam, nSize, nStyle, nUnit ) CONSTRUCTOR
ENDCLASS
/*-----------------------------------------------------------------------------------------------*/
METHOD New( oFontFamily_cFontFamily, nSize, nStyle, nUnit, oFontCollection )
DEFAULT nStyle := FontStyleRegular
DEFAULT nUnit := UnitPoint
IF ValType( oFontFamily_cFontFamily ) == "C"
oFontFamily_cFontFamily := ::FontFamily( oFontFamily_cFontFamily, oFontCollection )
ENDIF
::pObj := C5GP_FONT( oFontFamily_cFontFamily:pObj, nSize, nStyle, nUnit )
RETURN SELF
/*
* RectF
/*-----------------------------------------------------------------------------------------------*/
/*-----------------------------------------------------------------------------------------------*/
CLASS RectF From GdiPlusBase
PROTECTED:
CLASSDATA nCls INIT C5CLS_RECTF
PUBLIC:
METHOD New( nL, nT, nW, nH ) CONSTRUCTOR
ENDCLASS
/*-----------------------------------------------------------------------------------------------*/
METHOD New( nL, nT, nW, nH )
::pObj := C5GP_RECTF( nL, nT, nW, nH )
RETURN SELF
/*
* LinearGradientBrush
/*-----------------------------------------------------------------------------------------------*/
/*-----------------------------------------------------------------------------------------------*/
CLASS LinearGradientBrush From Brush
PROTECTED:
CLASSDATA nCls INIT C5CLS_LINEARGRADIENTBRUSH
PUBLIC:
METHOD New( oRF, oC1, oC2, nMode ) CONSTRUCTOR
METHOD SetTransform( oMatrix ) INLINE C5GP_LINEARGRADIENTBRUSH_SETTRANSFORM( ::pObj, oMatrix:pObj )
ENDCLASS
/*-----------------------------------------------------------------------------------------------*/
METHOD New( oRF, oC1, oC2, nMode, p5 )
IF p5 != NIL
::pObj := C5GP_LINEARGRADIENTBRUSH( 0x001, oRF:pObj, oC1:pObj, oC2:pObj, nMode, p5 )
ELSE
::pObj := C5GP_LINEARGRADIENTBRUSH( 0x002, oRF:pObj, oC1:pObj, oC2:pObj, nMode )
ENDIF
RETURN SELF
/*
* StringFormat
/*-----------------------------------------------------------------------------------------------*/
/*-----------------------------------------------------------------------------------------------*/
CLASS StringFormat From GdiPlusBase
PROTECTED:
CLASSDATA nCls INIT C5CLS_STRINGFORMAT
PUBLIC:
METHOD New( nFormatFlag ) CONSTRUCTOR
METHOD SetAlignMent( nAlig ) INLINE IF( Empty( ::pObj ), ::New(), NIL ), C5GP_SETALIGNMENT( ::pObj, ::nCls, nAlig )
METHOD SetLineAlignMent( nAlig ) INLINE IF( Empty( ::pObj ), ::New(), NIL ), C5GP_STRINGFORMAT_SETLINEALIGNMENT( ::pObj, nAlig )
METHOD END() INLINE IF( Empty( ::pObj ), ::New(), NIL ), Super():END()
ENDCLASS
/*-----------------------------------------------------------------------------------------------*/
METHOD New( nFormatFlag )
::pObj := C5GP_STRINGFORMAT( nFormatFlag )
RETURN SELF
/*
* Image
/*-----------------------------------------------------------------------------------------------*/
/*-----------------------------------------------------------------------------------------------*/
CLASS Image From GdiPlusBase
PROTECTED:
CLASSDATA nCls INIT C5CLS_IMAGE
PUBLIC:
METHOD New( cImage ) CONSTRUCTOR
METHOD GetWidth() INLINE C5GP_IMAGE_GETWIDTH( ::pObj )
METHOD GetHeight() INLINE C5GP_IMAGE_GETHEIGHT( ::pObj )
METHOD GetThumbnailImage()
METHOD GetFrameDimensionsCount() INLINE C5GP_IMAGE_GETFRAMEDIMENSIONSCOUNT( ::pObj )
METHOD GetFrameDimensionsList( pList, nCount ) INLINE C5GP_IMAGE_GETFRAMEDIMENSIONSLIST( ::pObj, @pList, nCount )
METHOD GetFrameCount( pList, nIndex ) INLINE C5GP_IMAGE_GETFRAMECOUNT( ::pObj, pList, nIndex )
METHOD SelectActiveFrame( pList, nList, nFrame ) INLINE C5GP_IMAGE_SELECTACTIVEFRAME( ::pObj, pList, nList, nFrame )
METHOD FreeDimensionList( pList ) INLINE C5GP_IMAGE_FREEDIMENSIONLIST( pList )
METHOD CountFrames()
METHOD SetFrame( nFrame )
METHOD RotateFlip( nType ) INLINE C5GP_IMAGE_ROTATEFLIP( ::pObj, nType )
ENDCLASS
/*-----------------------------------------------------------------------------------------------*/
METHOD CountFrames()
LOCAL pList, nDims, nFrames := 0
nDims := ::GetFrameDimensionsCount()
IF nDims > 0
::GetFrameDimensionsList( @pList, 1 )
nFrames := ::GetFrameCount( pList, 1 )
::FreeDimensionList( pList )
ENDIF
RETURN nFrames
/*-----------------------------------------------------------------------------------------------*/
METHOD SetFrame( nFrame )
LOCAL pList, nDims, nFrames := 0
nDims := ::GetFrameDimensionsCount()
IF nDims > 0
::GetFrameDimensionsList( @pList, 1 )
::SelectActiveFrame( pList, 1, nFrame )
::FreeDimensionList( pList )
ENDIF
/*-----------------------------------------------------------------------------------------------*/
METHOD GetThumbnailImage( nWidth, nHeight )
LOCAL oImage := Image()
oImage:pObj := C5GP_IMAGE_GETTHUMBNAILIMAGE( ::pObj, nWidth, nHeight )
RETURN oImage
/*-----------------------------------------------------------------------------------------------*/
METHOD New( cImage )
::pObj = C5GP_IMAGE( cImage )
RETURN SELF
/*
* Pen
/*-----------------------------------------------------------------------------------------------*/
/*-----------------------------------------------------------------------------------------------*/
CLASS Pen From GdiPlusBase
PROTECTED:
CLASSDATA nCls INIT C5CLS_PEN
PUBLIC:
METHOD New( oColor_oBrush, nWidth ) CONSTRUCTOR
METHOD SetAlignment( nAlig ) INLINE C5GP_SETALIGNMENT( ::pObj, ::nCls, nAlig )
METHOD SetCustomEndCap( oCustomLineCap ) INLINE C5GP_PEN_SETCUSTOMENDCAP ( ::pObj, oCustomLineCap:pObj )
METHOD SetCustomStartCap( oCustomLineCap ) INLINE C5GP_PEN_SETCUSTOMSTARTCAP( ::pObj, oCustomLineCap:pObj )
METHOD SetStartCap( nCap ) INLINE C5GP_PEN_SETSTARTCAP( ::pObj, nCap )
METHOD SetEndCap( nCap ) INLINE C5GP_PEN_SETENDCAP ( ::pObj, nCap )
METHOD SetLineJoin( nModeJoin ) INLINE C5GP_PEN_SETLINEJOIN( ::pObj, nModeJoin )
METHOD SetDashPattern( aDash, nCount ) INLINE C5GP_PEN_SetDashPattern( ::pObj, aDash, nCount )
ENDCLASS
/*-----------------------------------------------------------------------------------------------*/
METHOD New( oColor_oBrush, nWidth )
::pObj := C5GP_PEN( oColor_oBrush:pObj, oColor_oBrush:nGetCls(), nWidth )
RETURN SELF
/*
* CustomLineCap
/*-----------------------------------------------------------------------------------------------*/
CLASS CustomLineCap From GdiPlusBase
ENDCLASS
/*
* PointF
/*-----------------------------------------------------------------------------------------------*/
CLASS PointF From GdiPlusBase
PROTECTED:
CLASSDATA nCls INIT C5CLS_POINTF
PUBLIC:
METHOD New() CONSTRUCTOR
ENDCLASS
/*-----------------------------------------------------------------------------------------------*/
METHOD New( nX, nY )
::pObj := C5GP_POINTF( nX, nY )
RETURN SELF
/*
* Matrix
/*-----------------------------------------------------------------------------------------------*/
CLASS Matrix From GdiPlusBase
PROTECTED:
CLASSDATA nCls INIT C5CLS_MATRIX
PUBLIC:
METHOD New() CONSTRUCTOR
ENDCLASS
/*-----------------------------------------------------------------------------------------------*/
METHOD New( p1, p2, p3, p4, p5, p6 )
::pObj := C5GP_MATRIX( p1, p2, p3, p4, p5, p6 )
RETURN SELF
/*
* FontFamily
/*-----------------------------------------------------------------------------------------------*/
CLASS FontFamily From GdiPlusBase
PROTECTED:
CLASSDATA nCls INIT C5CLS_FONTFAMILY
PUBLIC:
METHOD New() CONSTRUCTOR
ENDCLASS
/*-----------------------------------------------------------------------------------------------*/
METHOD New( cFamily, oFontCollection )
::pObj := C5GP_FONTFAMILY( cFamily, oFontCollection )
RETURN SELF
/*
* GraphicsPath
/*-----------------------------------------------------------------------------------------------*/
CLASS GraphicsPath From GdiPlusBase
PROTECTED:
CLASSDATA nCls INIT C5CLS_GRAPHICSPATH
METHOD Ck() INLINE IF( ::pObj == NIL, ::New(), NIL )
PUBLIC:
METHOD New() CONSTRUCTOR
METHOD StartFigure() INLINE ::Ck(), C5GP_GraphicsPath_StartFigure( ::pObj )
METHOD AddLine( oRF1, oRF2 ) INLINE ::Ck(), C5GP_GraphicsPath_AddLine( ::pObj, oRF1:pObj, oRF2:pObj )
ENDCLASS
/*-----------------------------------------------------------------------------------------------*/
METHOD New( nFillMode )
DEFAULT nFillMode := FillModeAlternate
::pObj := C5GP_GRAPHICSPATH( nFillMode )
RETURN SELF
/*-----------------------------------------------------------------------------------------------*/
CLASS TextureBrush From Brush
PROTECTED:
CLASSDATA nCls INIT C5CLS_TEXTUREBRUSH
PUBLIC:
METHOD New() CONSTRUCTOR
METHOD SetTransForm( oMatrix ) INLINE C5GP_TEXTUREBRUSH_SETTRANSFORM( ::pObj, oMatrix:pObj )
METHOD SetWrapMode( nMode ) INLINE C5GP_TEXTUREBRUSH_SETWRAPMODE( ::pObj, nMode )
ENDCLASS
/*-----------------------------------------------------------------------------------------------*/
METHOD New( p1, p2, p3, p4, p5, p6 )
DO CASE
CASE ValType( p3 ) == "O" .AND. p3:nGetCls == C5CLS_RECTF
::pObj := C5GP_TEXTUREBRUSH( 3, p1:pObj, p2, p3:pObj )
CASE p6 != NIL
p3 := ::RectF( p3, p4, p5, p6 )
::pObj := C5GP_TEXTUREBRUSH( 3, p1:pObj, p2, p3:pObj )
CASE ValType( p2 ) == "O" .AND. p2:nGetCls == C5CLS_RECTF
::pObj := C5GP_TEXTUREBRUSH( 2, p1:pObj, p2:pObj, p3 )
OTHERWISE
DEFAULT p2 := WrapModeTile
::pObj := C5GP_TEXTUREBRUSH( 1, p1:pObj, p2 )
ENDCASE
RETURN SELF
// Bitmap
/*-----------------------------------------------------------------------------------------------*/
CLASS BITMAP From Image
PROTECTED:
CLASSDATA nCls INIT C5CLS_BITMAP
PUBLIC:
METHOD New() CONSTRUCTOR
METHOD GetPixel( nX, nY, oColor ) INLINE C5GP_BITMAP_GETPIXEL( ::pObj, nX, nY, oColor:pObj )
METHOD SetPixel( nX, nY, oColor ) INLINE C5GP_BITMAP_SETPIXEL( ::pObj, nX, nY, oColor:pObj )
ENDCLASS
/*-----------------------------------------------------------------------------------------------*/
METHOD New( p1, p2, p3 )
DEFAULT p3 := PixelFormat32bppARGB
IF ValType( p1 ) == "C"
DEFAULT p2 := .F.
::pObj := C5GP_BITMAP( 1, p1, p2 )
ELSE
::pObj := C5GP_BITMAP( 2, p1, p2, p3 )
ENDIF
RETURN SELF
// ImageAtributes
/*-----------------------------------------------------------------------------------------------*/
CLASS ImageAttributes From GdiPlusBase
PROTECTED:
CLASSDATA nCls INIT C5CLS_IMAGEATTRIBUTES
METHOD Ck() INLINE IF( ::pObj == NIL, ::New(), NIL )
PUBLIC:
METHOD New() CONSTRUCTOR
METHOD SetColorMatrix( aClrMatrix, nMode, nType ) INLINE ::Ck(), C5GP_IMAGEATTRIBUTES_SETCOLORMATRIX( ::pObj, aClrMatrix, nMode, nType )
ENDCLASS
/*-----------------------------------------------------------------------------------------------*/
METHOD New()
::pObj := C5GP_IMAGEATTRIBUTES()
RETURN SELF
