Размер изображения загруженного в TImage

[qivi]

Хочу получить следующий результат:

Если загруженно изображение по размеру больше чем Image1, появляются скролбары для возможности просмотрет всё изображение.
Для этого Image1 я помещаю на родителя ScrollBox1 и растягиваю по его размеру.

1. Как узнать размер уже загруженного изображения Image1?
2. Как ScrollBox1 заставить "подстроится под размер этого изображения?"

[iskander]

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

1. Image1.Picture.Width;(Height)
2. Image1.AutoSize := True;


[SSerge]

Image1.AutoSize := True;

Насколько помню, это подстраивает размер изображения под размер контейнера. То есть, zooming.

[qivi]

А мне нужно контенер подстроить под размер изображения

[SSerge]

Ну так получите размер изображения по п.1 (TImage.Picture.Width - TImage.Picture.Height), и по ним пересчитайте необходимый размер контейнера. В качестве подсказки: вычислите разницу между Container.Width и Image.Picture.Width - (и то же самое с высотой) для нормально вписанного в контейнер , и добавляйте эту разницу к новому значению Image.Picture.Width

[iskander]

Насколько помню, это подстраивает размер изображения под размер контейнера.

Неправильно помните.

[vruzh]

ScrollBox:
AutoSize = True

MapImg: TImage

Align = alClient
AutoSize = True

Если нужен весь проект, то вышлю