|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Не могу разобраться в ScrollBox
Ну вот никак не получается сделать, чтобы при увеличении изображения появлялась прокрутна в скролбоксе
Разместил на форме 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; Ну я так просто для примера, рисуется изображение белым цветом. Если масштабировать форму, то видно что рисунок внизу продолжается, а прокрутки как не было так и нет. Плиз помогите |
#2
|
|||
|
|||
это свойство Anchors у image надо сделать вернуть как было
|
#3
|
|||
|
|||
ScrollBox1.AutoScroll = True.
|
#4
|
|||
|
|||
спасибо, разобрался, нужно было поэкспериментировать с Anchors и все заработало
|