FiveTech Software tech support forums

... this bug when GDIP clause is used for BTNBMP. This bug is fixed in the recent version. For now please use this fix. Please replace the function PalBmpFree() in \source\classes\bitmap.prg with this new function. function PalBmpFree( hBmp, hPal )   static prev   local aBmp, cType   if ...

... this bug when GDIP clause is used for BTNBMP. This bug is fixed in the recent version. For now please use this fix. Please replace the function PalBmpFree() in \source\classes\bitmap.prg with this new function. function PalBmpFree( hBmp, hPal )   static prev   local ...

... from: .\source\function\CHECKRES.PRG => FWDELRESOURCE( 36 ) Called from: => DELETEOBJECT( 0 ) Called from: .\source\classes\BITMAP.PRG => PALBMPFREE( 1180 ) Called from: .\source\classes\BITMAP.PRG => TBITMAP:DESTROY( 498 ) Called from: .\source\classes\BITMAP.PRG => (b)TBITMAP( ...

... cSourceName, IsFromResource, "BITMAP/PIMAGE", // If GDI+, "PIMAGE" nZeroZeroClr, ImageType (BMP/JPG/PNG, etc) } Destroy: PalBmpFree( aImage )

We recommend using FW_ReadImage( nil, cAnyImageSource, [aSize], [lGDIP] ) --> aImage

Elements of aImage:
{ hBitmap, hPalette, nBmpWidth, nBmpHeight, lAlpha, cName, lResource, cType, nZeroClr }

Destroy with
PalBmpFree( aImage )

... 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 change the ...

Peter,

Please remove the function XBRWSCROLLROW() from xbrowse.prg

and implement these functions:

function PalBmpFree( hBmp, hPal )

DeleteObject( hBmp )
DeleteObject( hPal )

return nil

function DbSkipper( n )

return __DbSkipper( n )

...    oCol:bOnPostEdit := {|o, v, 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) ...

Ariel,

Añade esta función a tu PRG principal:

function PalBmpFree()

return nil

... 731F0000 00007000 C:\Windows\system32\WINNSI.DLL 73160000 00038000 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) ...

... 731F0000 00007000 C:\Windows\system32\WINNSI.DLL 73160000 00038000 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) ...

... FW_ReadImage( oWnd/hDC, uSource, [aResize], [lGDIP := .f.] ) --> aImageInfo oWnd can be any window, dialog or control. Releasing Image: PalBmpFree( aImageInfo ) aImageInfo format { pImage/hBitmap/hIcon/hCursor/hMeta, hPalette, nWidth, nHeight, lHasAlpha, cSource, lResource ) uSource: ...

... nWidth, nHeight ) DO_LINES( hMemDC, hPen, nPensize, nPenColor ) SELECTOBJECT( hMemDC, hBmpOld ) DELETEDC( hMemDC ) oImg:hBitmap = hMemBmp PALBMPFREE( hBitmap, hPalette ) PALBMPNEW( oImg:hWnd, oImg:hBitmap, oImg:hPalette ) oImg:Refresh() RETURN NIL // ------------------- STATIC FUNCTION ...

James,

I found the solution in

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=15937&p=82512&hilit=PalBmpFree#p82512

... + ; "WMF (*.WMF)| *.WMF|" ,"Select ALL IMAGE" ) local hBitmap :=IMAGE_HBITMAP(cBmpFile) if hBitmap != 0 if oBmp:hBitmap != 0 PalBmpFree( oBmp:hBitmap, oBmp:hPalette ) oBmp:hBitmap = 0 oBmp:hPalette = 0 endif oBmp:hBitmap = hBitmap oBmp:hPalette = 0 // Where to get it from ...