Change bitmap in TXImage. Can I save the modified bitmap into a file ?
Board index FiveWin for Harbour/xHarbour Saving bitmap from TXImage.
Used the example XIMAGE01.PRG
Open bitmap 2.png, rotate it and save in a file named my.png
It's works. But the bitmap remains unchanged
Open bitmap 2.png, rotate it and save in a file named my.png
It's works. But the bitmap remains unchanged
procedure Sav_Img
local hDib:=DibFromBitmap( oWnd:aControls[3]:GetHBitmap() )
local cTempFile := cTempFile()
local lSaved
nFormat:=13
nQuality:=25
cFile:="my.png"
DibWrite( cTempFile, hDib )
GloBalFree( hDib )
lSaved = FIConvertImageFile( cTempFile, cFile, nFormat, nQuality )
FErase( cTempFile )
return
function FIConvertImageFile( cSrcFile, cDstFile, nDstFormat, nQuality )
local nSrcFormat, hDib, hDib2, lOk := .f.
DEFAULT nQuality := 0
if LoadFreeImage() > 32
nSrcFormat:= FIGETFILETYPE( cSrcFile, 0 )
hDib:= FILOAD( nSrcFormat, cSrcFile, 0 )
hDib2:= FICNV24( hDib )
lOk:= FISAVE( nDstFormat, hDib2, cDstFile, nQuality )
FIUNLOAD( hDib )
FIUNLOAD( hDib2 )
endif
return lOk
How do you rotate it ?
I rotate bitmap in TXImage. How I can save result to file ?
Rotation:
a) Mouse: Shift-MouseWheel
b) Touch: Rotate gesture by fingers
Zoom/Unzoom:
a) Mouse: MouseWheel
b) Touch: Zoom and Pinch gestures with fingers
Pan
(a) Mouse: Mouse drag
(b) Touch: Move with finger
The image that is loaded itself is never modified. The rotation or zoom/unzoom are only visual (in the recent versions) and that helped high performance.
If you want to save a rotated image of a png, we shall soon post a sample here.
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Thank you.
How then is it possible to load bitmap into memory. Rotate it and save it to a file ?
This is an example code for rotating an image by 90,180,270 degrees clock-wise:
Values of nRotate
1 for 90 deg
2 for 180 deg
3 for 270 deg
Important note:
The above constants of nRotate are the correct values. But just now while testing the above program, I noticed a bug in the C++ function. We shall fix the bug in the next version.
But with this bug the following values of nRotate give the desired results. You may use these values till next version:
3 for 90 deg
4 for 180 deg
2 for 270 deg
oImage := GdiBmp():New( "oldfile.png" )
oImage:Rotate( nRotate )
oImage:Save( "newfile.png" )
oImage:End()Values of nRotate
1 for 90 deg
2 for 180 deg
3 for 270 deg
Important note:
The above constants of nRotate are the correct values. But just now while testing the above program, I noticed a bug in the C++ function. We shall fix the bug in the next version.
But with this bug the following values of nRotate give the desired results. You may use these values till next version:
3 for 90 deg
4 for 180 deg
2 for 270 deg
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Mr.Rao, thank for your help !!
Hi Mr. Rao,
What file types supports GDIBmp class other than PNG?
Regards,
Hakan ONEMLI
Harbour & MSVC 2022 & FWH 23.06
Hakan ONEMLI
Harbour & MSVC 2022 & FWH 23.06
bmp,jpg,tif,emf,wmf,ico
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
And gif. But please note that saving gifs still gives a poor quality result.
EMG
Nages,
May I suggest just using the degrees themselves (90,180,270) for the rotation rather than a code (1,2,3)? This would be easier to remember.
Actually, would it be possible to rotate in degree increments( e.g. 92 degrees)? This would help de-skew crooked scans, etc..
James
FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10
James Bott wrote:Nages,
May I suggest just using the degrees themselves (90,180,270) for the rotation rather than a code (1,2,3)? This would be easier to remember.
James
This is what is in my mind too.
James Bott wrote:Nages,
Actually, would it be possible to rotate in degree increments( e.g. 92 degrees)? This would help de-skew crooked scans, etc..
James
The present function is only a wrapper to the gdi+ function, which allows only rotation in multiples of 90 deg with option to flip the image. I am planning to provide rotation by any angle in the coming versions.
As of now this is an option. Ximage provides for rotation by any angle. But this is visual only and the image itself is not rotated. What can be done now is to use ximage, rotate by the required angle and then save the control as bitmap with oImage:SaveToBmp( <filename> )
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Latest information:
As you all may be knowing, tgdiplus.prg and gdiplus.cpp are contributed by our gdi+ expert Mr Manuel Alwarez.
Just now we received his latest update which provides for a new method ImageRotate( nDegrees, lAdjust ). So now it is possible to reotate the image by any angle and save. This will be available from the next release.
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Awsome.
Thanks for looking into it.
James
FWH 18.05/xHarbour 1.2.3/BCC7/Windows 10