hola
a ver si te vale esta idea, es sumamente sencilla.
pones en el Form un TPanel y dentro de este un TImage con Stretch y Proportional a True y Autosize a False y le pones una cantidad exagerada en el Width, 6000 por ejemplo.
Luego pones un ScrollBar con Min:=50,Max:=4000,Position:=200;
solo falta algo de codigo :
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
Image1.Height := ScrollBar1.Position;
Image1.Left := Round((Panel1.Height - ScrollBar1.Position)/2);
Image1.Top := Round((Panel1.Width - ScrollBar1.Position)/2);
end;
te queda ajustar los valores a tu gusto
espero que te sirva
un saludo
|