In reality, Enrico, the quality of this IMAGE.TIF looks bad, even in IRFANVIEW.exe.
En realidad, Enrico, la calidad de este IMAGE.TIF se ve mala, incluso en IRFANVIEW.exe.
gracias, tks.
Regards, saludos.
In reality, Enrico, the quality of this IMAGE.TIF looks bad, even in IRFANVIEW.exe.
Yes.
The image we see on this forum is of a lesser quality than what the user actually sees on his computer.In reality, Enrico, the quality of this IMAGE.TIF looks bad, even in IRFANVIEW.exe.
Exactly Master Rao. Here on Windows 7, the image is horrible.nageswaragunupudi wrote:The image we see on this forum is of a lesser quality than what the user actually sees on his computer.In reality, Enrico, the quality of this IMAGE.TIF looks bad, even in IRFANVIEW.exe.
I am pleasantly surprised that you do not see any problem at you end. I am unable to explain. But I do see the difference here, even with my poor eye-sight, while testing with the TIF file he has sent me.Enrico Maria Giordano wrote:I don't understand. I see an image of good quality here, no white stains on it. I can't reproduce the problem here.
Code: Select all | Expand
#include "fivewin.ch"
function Main()
local oDlg, oImage, cFile := "image.tif"
DEFINE DIALOG oDlg SIZE 1000,900 PIXEL TRUEPIXEL RESIZABLE
@ 20,20 XIMAGE oImage FILE FILOADIMG( cFile ) SIZE -20,-20 OF oDlg
oImage:lBmpTransparent := .f.
ACTIVATE DIALOG oDlg CENTERED
return nil
Please look at the result image that I shared some messages up. How do you see it?nageswaragunupudi wrote:I am pleasantly surprised that you do not see any problem at you end. I am unable to explain. But I do see the difference here, even with my poor eye-sight, while testing with the TIF file he has sent me.Enrico Maria Giordano wrote:I don't understand. I see an image of good quality here, no white stains on it. I can't reproduce the problem here.
That was by Irfanview and its ok.Please look at the result image that I shared some messages up. How do you see it?
Code: Select all | Expand
XIMAGE( cFile ) // bad quality
Code: Select all | Expand
XIMAGE( filoadimg( cFile ), , .f. ) // better
Yes, in this case, we get the same quality with both TImage and TXImage. The reason is the hBitmap of TImage is read with freeimage.dll.I don't know if it helps...
If I am correct, I took the handle of an Image object and used it as source of a xImage object and the quality in the screen are is the same.
This make me thinking that the issue can be only when showing the image on screen.
This worked very well.nageswaragunupudi wrote:I suggest this work-around.
Code: Select all | Expand
aBmp[ 1 ] := GDIP_ImageFromFile( uBmp, !lGdipImage, Upper( cFileExt( uBmp ) ) == "GIF" )
Code: Select all | Expand
=="GIF"
Code: Select all | Expand
$ "GIF,TIFF"
Code: Select all | Expand
aBmp[ 1 ] := GDIP_ImageFromFile( uBmp, !lGdipImage, Upper( cFileExt( uBmp ) ) $ "GIF,TIFF" )
Code: Select all | Expand
oImage:lBmpTransparent := .f.
Code: Select all | Expand
XIMAGE( "image.tif",, .f. )