Вставить ScrollBar в Image

[artemavd]

Сабж в названии темы. Возможно ли это?

[_-Re@l-_]

Смотря что вы имеете в виду. По крайней мере TreeView этого не позволяет.
А если просто поверх - то можно.

[artemavd]

Имею ввиду, чтобы можно было прокручивать изображение за скроллбары)

[_-Re@l-_]

Я не совсем понял.... То есть , если изображение слишком большое и не входит в Image, то при нажатии на ScrollBar оно прокручивалось?
Если я правильно понял, то суть такая(только логику подправьте)

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
     Image1.Canvas.CopyRect(Rect(x1,y1,x2,y2),Image1.Canvas,Rect(x+20,y,Image1.Width+20,Image1.Height));
    x:=x+20;
end;

Где x1,y1,x2,y2 - координаты вершин Image1, x,y - текущие координаты левого верхнего угла выводимого прямоугольника.

[artemavd]

Ага Именно так.

[_-Re@l-_]

Смотрите #4. Но это для горизонтальной прокрутки...Правда, это вроде в OnPaint делается....
И ещё...Нужно использовать TBitmap.

[artemavd]

Неа, не рисуется

[_-Re@l-_]

Нужно использовать bmp.
И ещё. Погодите маленько, пришлю код.Я такое уже делал.

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
     Paint; //это Form1.Paint, просто форма только одна и можно делать так
     x:=x+20;x1:=x1+20;
end;


procedure TForm1.FormPaint(Sender: TObject);
begin
     B:=TBitmap.Create;
     B.LoadFromFile('c:\go.bmp');
     Canvas.CopyRect(Rect(0,0,400,480),B.Canvas,Rect(x,0,x1,B.Height));
     B.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
     B:=TBitmap.Create;
     B.LoadFromFile('c:\go.bmp');
     x:=0;x1:=400;
end;

Но двигает только влево.Вправо уж сделаете...
Проверил. Работает норм. Не забудьте все переменные добавить в основной var.

[MaxNik2009]

А не проще на форму кинуть ScriollBox, в него поместить Image с параметром
AutoSize:= true. И уже в этот Image грузить картинку любого размера?

[artemavd]

Четкий ответ на вопрос дал MaxNik2009. Тема закрыта.