Enrico Maria Giordano wrote:Probably I'm doing something wrong but it doesn't work (GIFs are still bad rendered).
EMG
Just loading with GDIP_IMAGEFROMFILE().
EMG
Just sent you revised libs.
Received and already reported back.
EMG
function testgif()
local cFile := "c:\fwh\gifs\magic10.gif"
local hBmp, oWnd
hBmp := GDIP_IMAGEFROMFILE( cFile, .t. )
DEFINE WINDOW oWnd
ACTIVATE WINDOW oWnd CENTERED ON PAINT oWnd:SayPalBmp( hBmp )
DeleteObject( hBmp )
return nilI was not clear enough. The misalignment is between ResizeImg() and ResizeBmp().
EMG
function magicbmp()
local oDlg, aBmp
local cFile := "c:\fwh\bitmaps\magic.bmp"
DEFINE DIALOG oDlg SIZE 800,600 PIXEL
aBmp := oDlg:ReadPalBmpEx( cFile )
ACTIVATE DIALOG oDlg ON PAINT ;
oDlg:SayPalBmp( aBmp, ;
nil, ; // Default full client Rect
.f., ; // transparency
.t. ) // Stretch full ( .f. or nil -> centers image )
return nil#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL cSrcImage := "c:\fwh\bitmaps\magic.bmp"
LOCAL cDstImage := "magic.gif"
LOCAL oGdi := GDIBmp():New( cSrcImage )
oGdi:Save( cDstImage )
oGdi:End()
RETURN NILRao,
you showed us your face, at last! 
EMG
Enrico Maria Giordano wrote:Rao,
ok for the quality issue. But saving to GIF still give bad result:
#include "Fivewin.ch" FUNCTION MAIN() Â Â LOCAL cSrcImage := "c:\fwh\bitmaps\magic.bmp" Â Â LOCAL cDstImage := "magic.gif" Â Â LOCAL oGdi := GDIBmp():New( cSrcImage ) Â Â oGdi:Save( cDstImage ) Â Â oGdi:End() Â Â RETURN NIL
EMG
