Wrong Pictures proportions

[MarcoLo]

I search a Control which indicates pictures in a good quality. The image box fulfils my wish. Unfortunately, the proportions of the pictures are wrong indicated.

Code: Select all

Dim tPic As StdPicture
Dim tProp As Single
    
ImageBox2.ZoomMode = ZoomFitToControl
Set tPic = LoadPicture(App.Path & "\830509109N.wmf")
tProp = tPic.Height / tPic.Width    'it is 1.586
ImageBox2.Height = ImageBox2.Width * tProp
ImageBox2.DisplayFromStdPicture tPic

In the attachment the result is visible.

Excuse for my bad English.

Thank you

[Loïc]

Hi Marco,

Strange behavior. I have this problem only with your image.

I suggest you to use the DisplayFrommetafile() method which is included since GdViewer 2.1: https://www.gdpicture.com/guides/gdpicture/v5/gdimageb ... aFile.html

With this method you will get an excellent metafile rendering and you will keep the transparency of the image.

Best regards,

Loïc Carrère