actualizar o substituto de gdiplus de canalfive

[quique]

Hola, estoy retomando la programación en fivewin despues de un breve descanso, realmente creí que sería mas tiempo, si no permamente, pero estamos de regreso, y aprovecho para un comercial antes de la consulta, si alguien esta interesado en mi ide, y tiene algúna sugerencia o comentario, será bien venido aprovechando que retomo fivewin.

Bueno, el problema, la empresa para la que estoy trabajando tiene programas en la versión 8.10 de fwh, y por consiguiente, una versión de xharbour de aquellas fechas, lo que se quiere es actualizar a una versión más reciente fw y xharbour, inclusive tal vez a 64 bits y/o migrar a harbour. El problema es que hay algunas librerías de terceros, entre ellas gdiplus de canalfive, la cual provoca la caida del sistema al compilar con una versión mas reciente de fw y xharbour ¿alguien sabe donde puedo conseguir una versión mas reciente de está librería o que podría usar en susbstitución de ella?

[carlos vargas]

Bienvenido Quique.
Actualmente fwh incluye muchas funciones propias de CanaFive, hay almenos tres ficheros conteniendo muchas funciones de canalfive
\classes\c5tooltip.prg
\functios\c5cnew.c
\functios\c5lib.c

tendrias que revisar cuales de las que usas actualmente ya estan en esos fuentes.

salu2
carlos vargas

[Manuel Valdenebro]

Carlos, gracias por la información. ¿Pero están documentadas? He visitado la Wiki y no veo ninguna referencia.

[cnavarro]

Tambien
..\clases\vistamnu.prg

No?

[Manuel Valdenebro]

Tambien
..\clases\vistamnu.prg

No?

Cristobal, ¿existe alguna documentación de ayuda?

[cnavarro]

Manuel,
Puedes mirar estos ejemplos
\Fwh\samples\vistamn1.prg
\Fwh\samples\c5toolti.prg

Quique, seguramente para las funciones que necesites podamos echarte una mano
http://msdn.microsoft.com/en-us/library ... 98(v=vs.85).aspx

[Antonio Linares]

Quique,

FWH incluye desde la versión 11.10 la Clase TGdiPlus.

Tienes ejemplos de uso en samples/gdiplus.prg y gdiplus2.prg

En cuanto a la documentación del wiki, Manuel tienes toda la razón, esas clases que se han comentado no se han documentado aún, puesto que las cedió Paco Garcia y entre todos tendremos que ir aprendiendo a usarlas y documentarlas

[Manuel Valdenebro]

Manuel,
Puedes mirar estos ejemplos
\Fwh\samples\vistamn1.prg
\Fwh\samples\c5toolti.prg

Quique, seguramente para las funciones que necesites podamos echarte una mano
http://msdn.microsoft.com/en-us/library ... 98(v=vs.85).aspx

"http://msdn.microsoft.com/en-us/library/ms533895(v=VS.85).aspx"

Gracias

[quique]

Gracias por las respuestas y perdón por la tardanza, pero asi es esto de tomar programas asi de repente y que el jefe te pida modificaciones en mas de uno a la vez, hay que ir resolviendo lo que va saliendo.

He quitado la librería de canalfive pero me marca que no encuentra las funciones TIMAGEGDIPLUS e IMAGE, ambas son clases ¿alguien tiene alguna idea?

[Antonio Linares]

Quique,

Sabes que DATAs y Métodos tienen esas clases ? gracias

[quique]

Este es el fuente donde se encuentra la clase timagegdiplus (TImageGdiPlus.prg)

Code: Select all  Expand view

#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 ) ) );
   }
 

y este es el fuente donde se encuentra la clase image (Gdiplus.prg)

Code: Select all  Expand view

/*
 * Gdi+
 * Lira Lira Oscar Joel [_]
 * Francisco Garcia Fernandez [Paco]
 * Julio 6 del 2007
 * CopyRight Todos los Derechos Reservados CanalFive 2007
 * Ultima Actualizacion: :>: 11/15/2007 14:07 by :(Oscar):
 *
 * 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

 

[quique]

¿Entonces si se puede Antonio?

[Antonio Linares]

Si te funcionan bien esas clases porque deseas reemplazarlas ?

[quique]

No me funcionan con una versión mas reciente, la idea es hacer pruebas con una versión mas reciente y si funciona, lo mas seguro es que actualicemos a 64 bits, que es lo que quiere el jefe.