load png from rpreview

[Silvio.Falconi]

I need to coverte this function to use on rpreview to load my png images

oBtn:hBitmap1 = FWBitmap2( "EXCEL" )

it run but the image is compress so is not compatible with png

STATIC FUNCTION FWBitmap2( cResname )
LOCAL oBitmap
DEFINE BITMAP oBitmap RESNAME cResname
IF HB_IsObject( oBitmap )
RETURN oBitmap:hBitmap
ENDIF
RETURN 0

[nageswaragunupudi]

to use on rpreview to load my png images

Do you want to use png images on the buttonbar for rpreview?

[nageswaragunupudi]

To use png images on any buttonbar

Code: Select all  Expand view

  DEFINE BUTTONBAR oBar OF oWnd SIZE 64,64 2010
   DEFINE BUTTON OF oBar FILE "..\bitmaps\pngs\image7.png(32x32)" PROMPT "Onr"
   DEFINE BUTTON OF oBar FILE "..\bitmaps\pngs\image8.png(32x32)" PROMPT "Two"
   DEFINE BUTTON OF oBar FILE "..\bitmaps\pngs\image9.png(32x32)" PROMPT "Three"
 

[Silvio.Falconi]

To use png images on any buttonbar

Code: Select all  Expand view

  DEFINE BUTTONBAR oBar OF oWnd SIZE 64,64 2010
   DEFINE BUTTON OF oBar FILE "..\bitmaps\pngs\image7.png(32x32)" PROMPT "Onr"
   DEFINE BUTTON OF oBar FILE "..\bitmaps\pngs\image8.png(32x32)" PROMPT "Two"
   DEFINE BUTTON OF oBar FILE "..\bitmaps\pngs\image9.png(32x32)" PROMPT "Three"
 

Yes of course but Then i have problems with zoom buttons because have two pngs
Hbitmap1 and hbitmap2

[Silvio.Falconi]

oPreview:oZoom:hBitmap1 = FWBitmap( "Zoom2" )
oPreview:oZoom:hBitmap2 = FWBitmap( "OnePage2" )
oPreview:oZoom:bBmpNo = { || If( oPreview:lZoom, 2, 1 ) }


How I can converte it ? How I can change the images with mine pngs ?

[nageswaragunupudi]

Code: Select all  Expand view

oPreview:oZoom:hBitmap1 = FW_ReadImage( nil, "aa.png(32x32)" )[ 1 ]
oPreview:oZoom:hBitmap2 = FW_ReadImage( nil, "bb.png(32x32)" )[ 1 ]
oPreview:oZoom:bBmpNo = { || If( oPreview:lZoom, 2, 1 ) }

[Silvio.Falconi]

Now Run ok