Xbrowse or Ximage Load picture position not work

[richard-service]

Hi
This is original pictures from DR Clinic.


I use any read picture program and show picture position work fine below:


I use Xbrowse cell include picture or XBrowse+Ximage show pictures.
These pictures position always Rotate. But original picture Front.


if I save as BMP file style. it's work fine. But I can't call my DR customer do it.

Any solutions?

[cnavarro]

Try with FW_TransformBitmap( hBitmap, [aCrop], [nZoom], [nRotate] )

[richard-service]

Try with FW_TransformBitmap( hBitmap, [aCrop], [nZoom], [nRotate] )

This function mean save as BMP file?
If yes, I just want to read original file not save as file.

[nageswaragunupudi]

If you do not have any objection, can you send me one jpg file?

[richard-service]

If you do not have any objection, can you send me one jpg file?

Yes, I already send to you. Please check your mail box.

[nageswaragunupudi]

Sorry, I did not receive.
Please send to
nageswaragunupudi [at] gmail [dot] com

[richard-service]

Sorry, I did not receive.
Please send to
nageswaragunupudi [at] gmail [dot] com

Please check your mail.

[richard-service]

Sorry, I did not receive.
Please send to
nageswaragunupudi [at] gmail [dot] com

Mr.Rao

Any news for it?

[richard-service]

Hi

FW or [x]Harbour any function to know this picture is turning?

[nageswaragunupudi]

I am unable to explain why all of Windows explorer, pain, photos are displaying the image upright whereas gdi+ and freeimage.dll are reading them rotated.

In the ximage01.prg
please try to replace

Code: Select all  Expand view

     :bChange       := { || oImage:Refresh() }
 

with

Code: Select all  Expand view

     :bChange       := { || oImage:Refresh(), oImage:Rotate( 45 ) }
 

[richard-service]

I am unable to explain why all of Windows explorer, pain, photos are displaying the image upright whereas gdi+ and freeimage.dll are reading them rotated.

In the ximage01.prg
please try to replace

Code: Select all  Expand view

     :bChange       := { || oImage:Refresh() }
 

with

Code: Select all  Expand view

     :bChange       := { || oImage:Refresh(), oImage:Rotate( 45 ) }
 

Mr.Rao
Thanks a lot.