Du meinst statt scrollBox, einen Scrollbar nehmen. OK
Ich würde testen
So habe ich gemacht und funktioniert gut aber nicht perfekt, da scrollbar scrollt mehr als Bild-Breite etwa 10% weiter !
Delphi-Quellcode:
procedure TForm2.ScrollBar1Change(Sender: TObject);
begin
Image1.width:=Image1.Picture.width;
Scrollbar1.Max:=trunc(Image1.Picture.Width / 2);
Image1.Left:=-Scrollbar1.Position;
end;
procedure TForm2.ScrollBar2Change(Sender: TObject);
begin
Image1.Height:=Image1.Picture.Height;
Scrollbar2.Max:=trunc(Image1.Picture.Height / 2);
Image1.Top:=-Scrollbar2.Position;
end;