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 ...
... nor FW_ReadBitmap but use ReadBitmap (not method)... I have the 18.01. In our code we use this workaround: if !empty(oMsgBar:aItems[6]:hBitmap1) PalBmpFree(oMsgBar:aItems[6]:hBitmap1) endif oMsgBar:aItems[6]:hBitmap1 := oMsgBar:ReadImage("DOWNLOAD_PNG") Maybe FiveTech wants ...
I tried to insert a btnbmp but it make error @ ::rcItem[1]+1, ::rcItem[3]-11 BTNBMP oBtnLeft SIZE 16, 16 OF Self oBtnLeft:hBitmap1 := LoadBitmap( 0, 32750 ) oBtnLeft:bAction := {|| Msginfo() } oBtnLeft:oFont := ::oWnd:oFont2:hFont I sent you test test Application=========== Path ...
... mi implementación? Este es el cambio que he hecho, modificar el método disable(): METHOD Disable() INLINE ::hBitmap3 := IF(::hBitmap3=0, BMP2DIS(::hBitmap1) , ::hBitmap3) , ::Super:Disable(), ::Refresh() Gracias por tus aportaciones.
Done... Here's the code ............. If Len(Alltrim(oDbPro:IMAGEN)) > 0 aBoton[x,y]:hBitmap1 := FILoadFromMemory( oDbPro:IMAGEN, 10 ) aBoton[x,y]:hPalette1 := 0 Endif For some reason, if the first BMP is null, the others won't work, so asking if there is something ...
... I already change its prompt, associated Action, tooltip but the Image, I can't I tried hBmp = FILoadFromMemory( oDbPro:IMAGEN) aBoton[x,y]:hBitmap1:=hBmp aBoton[x,y]:Refresh() with no success at all Any Idea will be appreciated. Thanks in Advance From Chile Adolfo
... sería bueno tener un sistema de asignar nuestros propios iconos en vez los "nuevos por defecto" algo asi : iif ( ::lBmpDefault , oBtn:hBitmap1 := FWBitmap( "Bottom2" ) , oBtn:LoadBitmaps( "Bottom2" ) ) Aqui no estoy seguro que implementación sería la mejor .
Saludos falta colocar una linea aquí anexo la clase con la linea modificada // en else de bmp ::HasAlpha( ::hBitmap1 ) // falta esta lineas METHOD LoadBitmaps( cName ) CLASS TRBtn local aBmpPal if ! Empty( cName ) if ! File( cName ) aBmpPal = PalBmpLoad( cName ) ::hBitmap1 = ...