[Kidalv97]

в компоненте TScrollBox находится TImage. у ScrollBox свойство Allign=alClient, у Image - alNone. У формы Allign=alClient, WindowState=wsMaximezed. OnCreate формы:

Код:

1 2 3 4 5

procedure TForm1.FormCreate(Sender: TObject); begin  Image1.Width:=ScrollBox1.Width;  Image1.Height:=ScrollBox1.Height; end;

но почему-то картинка остаётся такого-же размера, который в свойствах Width и Heigth до запуска. Как сделать картинку размером ScrollBox'а, чтобы и рисовать можно было в этом размере?

[M.A.D.M.A.N.]

Код:

1	image1.stretch := True;

[roamer]

Что-то вроде этого :

Код:

1 2 3 4 5 6

Image1.Width:=ScrollBox1.Width; Image1.Height:=ScrollBox1.Height; //------------------------------------------- Image1.Picture.Bitmap.Width:=Image1.Width; Image1.Picture.Bitmap.Height:=Image1.Height; //-------------------------------------------

[Kidalv97]

Сообщение от M.A.D.M.A.N.

Код:

Нет, это увеличивает масштаб, а не размер.

[Kidalv97]

Сообщение от roamer

Что-то вроде этого :

Код:

Не работает(

[Kidalv97]

Решил проблему созданием динамического компонента TImage.