Hola jhonalone.
Aunque funciona igual, no había visto que había un ScrollBox de por medio
, por lo que cambié el evento
OnResize del form por el del ScrollBox y ajusté el ScrollBox
alClient para poder visualizar el comportamiento cuando el form cambia de tamaño.
Básicamente el código es este:
Código Delphi
[-]
...
implementation
procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.Width := 3264;
Image1.Height:= 2448;
end;
procedure TForm1.ScrollBox1Resize(Sender: TObject);
begin
Image1.Left := (ScrollBox1.Width - Image1.Width) div 2;
Image1.Top := (ScrollBox1.Height - Image1.Height) div 2;
end;
Creo que te va a ser util que te adjunte los fuentes de la prueba así podes revisarla sobre tu monitor, yo lo hice hasta 1366 x 768 y centra correctamente la imágen (
adjunto ).
No sé si será factible centrar también los ScrollBar, voy a revisar un poco mas ese punto a ver si se le puede encontrar la vuelta.
Saludos