Ver Mensaje Individual
  #10  
Antiguo 02-06-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita