Centrar imagen en formulario maximizado

[ecfisa]

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
  // Fijar el componente al tamaño de la imágen
  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