[Freeongoo]

Ну вот никак не получается сделать, чтобы при увеличении изображения появлялась прокрутна в скролбоксе

Разместил на форме ScrollBox в него разместил Image. Далее по нажатию кнопки пишу процедуру

Код:

procedure TForm1.Button1Click(Sender: TObject);
var BitMap : TBitMap;
begin
BitMap := TBitMap.create;
BitMap.Height :=2000;
BitMap.Width := form1.Image1.width;
BitMap.PixelFormat := pf15bit   ;
Form1.Image1.Canvas.Brush.Color :=clBtnFace;
Form1.Image1.Canvas.FillRect(rect(0,0,Form1.Image1.Width,Form1.Image1.Height));
Form1.Image1.Height:=BitMap.Height;
Form1.Image1.Picture.Bitmap:=BitMap;
end; 

Ну я так просто для примера, рисуется изображение белым цветом. Если масштабировать форму, то видно что рисунок внизу продолжается, а прокрутки как не было так и нет. Плиз помогите