FiveTech Software tech support forums

... esta forma pero solo me cambia el CAPTION DEFINE BUTTON oBoton1 OF oBar FILE "Efectivo.bmp" ; ACTION (oBoton1:cCaption:='Cheque',oBoton1:FreeBitmaps(),oBoton1:LoadBitMaps("Cheque4.Bmp"),oBoton1:Paint(),oBoton1:refresh(),Cobros()) ; MESSAGE "Mantenimiento de Cobros"; ...

... n| DETA->PRODUC:=v }  Called from GDIP_DELETEIMAGE(0) Called from PALBMPFREE(1158) in .\source\classes\BITMAP.PRG Called from TBTNBMP:FREEBITMAPS(1035) in .\source\classes\BTNBMP.PRG Called from TBTNBMP:DESTROY(956) in .\source\classes\BTNBMP.PRG Called from (b)TBTNBMP(184) in .\source\classes\BTNBMP.PRG ...

... C:\Windows\System32\fwpuclnt.dll Called from GDIP_DELETEIMAGE(0) Called from PALBMPFREE(1158) in .\source\classes\BITMAP.PRG Called from TBTNBMP:FREEBITMAPS(1035) in .\source\classes\BTNBMP.PRG Called from TBTNBMP:DESTROY(956) in .\source\classes\BTNBMP.PRG Called from (b)TBTNBMP(184) in .\source\classes\BTNBMP.PRG ...

... C:\Windows\System32\fwpuclnt.dll Called from GDIP_DELETEIMAGE(0) Called from PALBMPFREE(1158) in .\source\classes\BITMAP.PRG Called from TBTNBMP:FREEBITMAPS(1035) in .\source\classes\BTNBMP.PRG Called from TBTNBMP:DESTROY(956) in .\source\classes\BTNBMP.PRG Called from (b)TBTNBMP(184) in .\source\classes\BTNBMP.PRG ...

... not declared for method: Display()' .\prg\TSBUTTON.PRG(1003) Error E0019 #error: 'Class "TSButton" not declared for method: FreeBitMaps( nBitMap )' .\prg\TSBUTTON.PRG(1135) Error E0019 #error: 'Class "TSButton" not declared for method: GetDlgCode( nLastKey )' .\prg\TSBUTTON.PRG(1159) ...

... other bitmaps. Img can be any image filename, resource, hbitmap, etc. Direct modification of oBtn:hBitmap? may be avoided. - Enhanced Method FreeBitmaps(...). Calling the method without parameters releases all bitmaps as previously. Now we can specify which bitmaps are to be released. Eg. ...

... other bitmaps. Img can be any image filename, resource, hbitmap, etc. Direct modification of oBtn:hBitmap? may be avoided. - Enhanced Method FreeBitmaps(...). Calling the method without parameters releases all bitmaps as previously. Now we can specify which bitmaps are to be released. Eg. ...

Carlos, asi lo he hecho, incorporando el freebitmap: if lAviso oBtnFilter:FreeBitmaps() oBtnFilter:LoadBitmaps( "bRojo" ) oBtnFilter:cTooltip := cM[15] oBtnFilter:cMsg := cM[16] else oBtnFilter:FreeBitmaps() oBtnFilter:LoadBitmaps( "bVerde" ...

Carlos

tienes que liberar los bitmap anteriores antes de cargar uno nuevo, sino te quedaras sin recursos

usa el metodo FreeBitMaps(), pero ojo eso libera todos los bitmaps del objeto

... = imagen cuando el mouse pasa sobre el boton Nota... es importante antes de asignar nuevas imagenes, liberar las imagenes anteriores primero usa FreeBitmaps()

... Mauricio: http://forums.fivetechsupport.com/viewtopic.php?f=3&t=16168 Consegui simular o ERRO, e a função responsavel por gerar a GPF: btnbmp:Freebitmaps() Uma parte do codigo: @ 00,00 btnbmp MoBtn[i] resource qualmod2 top size 60,64 of oWndc pixel ... for nContaMesas := 1 to nMaxMesa sysrefresh() ...

Maurizio, I managed to reproduce the same problem. The problem with this function freebitmaps (), after a while using the system generates a GPF me.

You could solve the problem?

... hOldRes ) return nil endif if ::lZoom ::Zoom( .T. ) endif if ! IsAppThemed() .or. Upper( ::oBar:ClassName() ) == "TBAR" ::oTwoPages:FreeBitmaps() ::oTwoPages:LoadBitmaps( "One_Page2" ) ::oTwoPages:cMsg := TXT_PREVIEW_ON_ONE_PAGE ::oTwoPages:cTooltip := StrTran( TXT_ONEPAGE, ...

... DEVICE:nVertSize() lTwoPages := !lTwoPages MessageBeep() SetResources(hOldRes) RETU nil endif if lZoom Zoom(.T.) endif if IsAppThemed() oTwoPages:FreeBitmaps() oTwoPages:LoadBitmaps("One_Page2") oTwoPages:cMsg := TXT_PREVIEW_ON_ONE_PAGE oTwoPages:cTooltip := StrTran(TXT_ONEPAGE,"&","") ...

... ) NEXT The problem is that after 10 minutes I have the GPF error and i think that is in the function PalBmpFree( ::hBitmap1, ::hPalette1 ) OF ::FreeBitmaps() OF ::Setfile() This is with FW June 2009 With a old version of FW March 2008 all works fine . Regards Maurizio