[Kidalv97]

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

Код:

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

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

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

Код:

image1.stretch := True;

[roamer]

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

Код:

  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.

Код:

image1.stretch := True;

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

[Kidalv97]

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

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

Код:

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

Не работает(

[Kidalv97]

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