[Freeongoo]

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12

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;

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

[Pyro]

это свойство Anchors у image надо сделать вернуть как было

[Vocabulary]

ScrollBox1.AutoScroll = True.

[Freeongoo]

спасибо, разобрался, нужно было поэкспериментировать с Anchors и все заработало