Почему то не отображаются полосы прокрутки. В примерах к лазарю нет такого, чтобы отображались. Есть один пример с использованием ScrollBox но в нем тоже полосы прокрутки не отображаются. Посмотрел примеры в Delphi, вроде все поля свойств задал идентично, но так ничего не получилось.
Посмотрите плиз - вот какие свойства стоят у меня.
Что нужно исправить. Все перетыкал.
В ScrollBox поместил TImage, в TImage загрузил картинку, которая вся не помещается.
Вот код:
- Код: Выделить всё
procedure TForm1.FormCreate(Sender: TObject);
begin
for i:=0 to 0 do
begin
for j:=0 to 0 do
begin
image[i,j]:=TImage.Create(nil);
image[i,j].Top:=i*40;
image[i,j].left:=j*40;
image[i,j].height:=200;
image[i,j].width:=200;
image[i,j].visible:=true;
image[i,j].Parent:=ScrollBox1;
OpenPictureDialog1.Filter := GraphicFilter(TGraphic);
image[i,j].picture.LoadFromFile('c:\CINDY058.bmp');
end
end;
end;
