Размер картинки

[Gfif21]

Возникла небольшая проблема - имеется контрол Image, в него загружается изображение JPEG, и рядом на контроле Label должен писаться размер этой самой картинки. Однако размер указывается неправильный.

Код: Выделить всё

Image1.Picture=LoadPicture("C:\...\*.jpg")
W=Image1.Picture.Width/15
H=Image1.Picture.Height/15
Label1.Caption="Размер: " & W & "x" & H & " пикселей"

[tyomitch]

Потому что Picture.Width и Picture.Height даются не в твипах, а в хайметриках (1/1000 см).
Юзай

Код: Выделить всё

W = ScaleX(Image1.Picture.Width, vbHimetric, vbPixels)
H = ScaleY(Image1.Picture.Height, vbHimetric, vbPixels)


[Gfif21]

О, пасиба. Вот теперь все правильно!

[Gfif21]

А вот еще такой вопрос. Контрол Image имеет конкретные размеры (в формате 4:3), а картинки есть разные по размеру. Как сделать так, чтобы все картинки масштабировались по размеру контрола - если картинка более широкая, чем 4:3 - масштабирование по ширине контрола; если менее - по высоте?

[alibek]

.Stretch=True?

[Gfif21]

Пасиба, теперь картинка масштабируется по размерам контрола.