Centrar imagen en formulario maximizado

[jhonalone]

Vale, Ecfisa.

Te conozco desde hace años y me has alucinado con tus respuestas muuuchas veces. Creo que te he comentado que tienes respuestas para todo y lo he comprobado, personalmente, y con otros posts en el foro.

Tus dibujos están "razonablemente" centrados en tu post. Digo razonablemente, porque, en mi pantalla 4:3 con resolución de 800x600, que es en la que me siento más cómodo trabajando, la mitad de la izquierda mide (en wsMaximized) 27,5cm. La mitad de la derecha, en mi pantalla, mide 25,5cm.

La solución, me podría "valer". Digo con comillas, porque yo soy excesivamente meticuloso.

Quizá habría que probarla con distintas resoluciones y en distintas pantallas,

Por favor, díme como has implementado el código que me sugeriste, porque, cuando yo lo probé, después de implementar el procedimiento y llamarlo desde FormXX.OnShow, no observé el efecto que tú me presentas.

Gracias. Ecfisa.

[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

[jhonalone]

Empezado por ecfisa

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.

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.

Gracias Ecfisa.
Ya me extrañaba a mí que algún código tuyo no funcionara. Sería la primera vez desde que te conozco.

He probado tu adjunto y funciona. La medición de la pantalla que te comentaba, no tiene nada que ver con el programa en funcionamiento. Centra la imagen. Lo he implementado en mi proyecto y funciona igual. He comprobado con distintas resoluciones y también funciona.

No obstante, tiene un pequeño inconveniente: las barras de desplazamiento. Habrá que centrarlas porque si no no se ve toda la imagen completa (como ya habrás observado), pero no basta con asignar la mitad del tamaño de la imagen, hará falta algo más.
Estoy probando con tu adjunto, que es más fácil de manejar que mi proyecto. Si encuentro algo, te comento.
Un Saludo.

[jhonalone]

¡¡¡CREO QUE TENGO LA SOLUCIÓN!!!

No busquéis más.

Cuando afine y compruebe el código, lo subo en un adjunto.

Saludos.

[jhonalone]

Hola, amigos.

Creo que he resuelto la cuestión. Bastante mejor de lo que me esperaba.Sin utilizar las barras de desplazamiento, pulsando con el botón izquierdo del ratón y arrastrando la imagen por la pantalla. Y originalmente, aparece CENTRADA.

Dejo un [ATTACH]archivo[/ATTACH] en .zip por si alguien está interesado en el asunto.

Gracias a todos por vuestro tiempo y paciencia. Especialmente a Ecfisa, cuyo tiempo vale muchiiiisimo y cuya ayuda me ha sido muy provechosa.

Saludos