Hi.
I have a similar problem with a gray BMP image captured from a scanner.
The image seems a lot poorer on FW XImage than other image viewers that I tried.
See the screen capture below:
You can download the BMP image from the below URL.
http://www.farmacia.net.br/PDP/TesteXImage.bmp
The source code:
#include "Fivewin.ch"
FUNCTION MAIN()
Local oWnd
LOCAL oImage
DEFINE WINDOW oWnd FROM 1,1 TO GetSysMetrics(1)-100,GetSysMetrics(0)-200 TITLE "FiveWin XImage" PIXEL
@ 1,1 XIMAGE oImage SIZE oWnd:nWidth-10,oWnd:nHeight-90 FILE "TesteXImage.bmp" NO BORDER OF oWnd
ACTIVATE WINDOW oWnd
oImage:End()
Return nil
The PPO generated:
#line 89 "c:\hb32\FWH\Include\Fivewin.ch"
EXTERNAL FW_GT
extern errorsys
static aFwStack := {}
static _fwhtmp_ := nil
#line 3 "TesteXImage.prg"
FUNCTION MAIN()
Local oWnd
LOCAL oImage
oWnd := TWindow():New( 1, 1, GetSysMetrics(1)-100, GetSysMetrics(0)-200, "FiveWin XImage",,,,,,,,,,,, !.F., !.F., !.F., !.F., .T.,, "oWnd",, )
oImage := TXImage():New( 1, 1, oWnd:nWidth-10, oWnd:nHeight-90, {|| "TesteXImage.bmp"}, oWnd, .F., .T. )
oWnd:Activate(, oWnd:bLClicked, oWnd:bRClicked, oWnd:bMoved, oWnd:bResized, oWnd:bPainted, oWnd:bKeyDown, oWnd:bInit,,,,,,,,,,, oWnd:bLButtonUp, .F. )
oImage:End()
Return nil
Does anyone have any clue ?
Regards,
Maurício Faria