BRush.prg ( poder excluir freeimage.dll )

[mastintin]

un pequeño cambio en brush.prg
en el metodo new...linea 183 +-

Code: Select all  Expand view

local hGDIBmp
  ........

      case cBmpFile != nil
           if File( cBmpFile )
               if Lower( cFileExt( cBmpFile ) ) == 'bmp'
                  ::hBitMap = ReadBitmap( 0, cBmpFile )
               elseif  UseGDI() .AND. UPPER( cFileExt( cBmpFile ) ) $ "PNG,JPG,EMF,WMF,JPEG" // nuevo
                 hGDIBmp:= GdiPlusImageLoadCachedFile( cBmpFile )
                  ::hBitmap := GdiPlusCreateHBitmapImage( hGDIBmp )
                  GdiPlusImageDispose( hGDIBmp )             
               else                                                // fin nuevo
                  ::hBitmap = FILoadImg( cBmpFile, @nFormat )
                  ::nBmpFormat = nFormat
               endif
               ::hBrush = If( ::hBitmap != 0, CreatePatternBrush( ::hBitmap ), )
           endif


 

[mastintin]

y un par de tips para cuellar ....
si quieres tener el brush dentro de un blob ( como las fotos ) .
Se recuperaria facilmente de esta forma

Code: Select all  Expand view

local cStr := oFONDOS:FONDO
DEFINE BRUSH oBrush GRADIENT hbmpGDIStr(  cStr  )

FUNCTION hbmpGDIStr( cStr )

   local hGDIBmp := GdiPlusImageLFromStr( cStr, len( cStr ) )
   local hBitmap := GdiPlusCreateHBitmapImage( hGDIBmp )
                    GdiPlusImageDispose( hGDIBmp )
RETURN hBitmap

 

Si quieres evitar tener que introducir los cambios propuestos en el brush.prg y asi todo saltar el uso de freeimage en los brush existe una alternativa.

DEFINE BRUSH oBrush GRADIENT GDIcFileResizehBmp ( cFileImage )

[nageswaragunupudi]

Instead of making small changes like this to use GDI+, I prefer to adopt GDI+ everywhere for all image formats and then change all FWH libraries.

Surely I need your help. I am about to write email to you personally.

I am badly stuck up with handling AlphaBitmaps. Once we cross this hurdle, with your help, we can make good progress in adopting GDI+.

[acuellar]

Muchas Gracias Manuel

Con:

Code: Select all  Expand view

DEFINE BRUSH oBrush FILE "D:\Sistemas\IMAGENES\BITMAPS\ORIENTE.BMP" STRETCH //No pide freeimage.dll con RESOURCE también
 

Saludos,

Adhemar

[acuellar]

Manuel

Me topé con otro.
En un xBrowse cargo un listado para su vista previa y en los saltos de página Chr(12) pide freeimage.dll

Gracias por la ayuda.

Saludos,

Adhemar

[nageswaragunupudi]

Manuel

Me topé con otro.
En un xBrowse cargo un listado para su vista previa y en los saltos de página Chr(12) pide freeimage.dll

Gracias por la ayuda.

Saludos,

Adhemar

We shall take care of this in future releases.