Centrar imagen en formulario maximizado

[ecfisa]

Hola jhonalone.

Intenta de este modo:

Código Delphi [-]
procedure TForm1.FormResize(Sender: TObject);
begin
  Image1.Left := (Width  - Image1.Width) div 2;
  Image1.Top  := (Height - Image1.Height) div 2;
end;

Saludos

[jhonalone]

Gracias a ambos por vuestro tiempo y esfuerzo.

Pero ninguna de las propuestas resuelve mi caso.
Recordad esto: El BitMap es de 3000x3000 pixeles. Los dibujos los hago en el centro del BitMap. A veces son pequeños y a veces más grandes. Por lo tanto, lo que pretendo es que el centro del BitMap, que es evidentemente más grande que el formulario maximizado ( en las pantallas de resolución normal; no hablo de resoluciones de 4000px, que las habrá, pero no es lo normal que se usen en casa), bueno como el mapa es más grande que la pantalla y dibujo en el centro del mapa, lo que quiero es que el centro del mapa aparezca en el centro de la pantalla, el usuario, podría con las ScrollBar desplazarse a su antojo por el mapa, pero inicialmente el centro del mapa lo quiero presentar en el centro de la pantalla (Si es posible).

Me está pareciendo que estoy pidiendo algo que probablemente no pueda hacerse en Delphi. Creo que otros entornos de programación, lo hacen automáticamente.

Finalmente, creo que voy a optar por la solución más práctica, aunque no sea la más ortodoxa, es decir: 1) Obtener empíricamente los valores de la posición de las barras de desplazamiento para las más conocidas resoluciones de pantalla. 2) Detectar la resolución que se está utilizando.
3) Aplicar las posiciones obtenidas para cada resolución (o la que más se parezca)

Voy a empezar a trabajar sobre esto. Si alguien conoce una solución más general y más ortodoxa, estaré encantado de escucharla y agradecido por su aportación, que a lo mejor le sirve a alguien más que a mí.

Saludos cordiales.

[jhonalone]

Compañeros.....

¡¡ME SIGUEN CRECIENDO LOS ENANOS!!

¿Por qué pueden complicarse tanto las cosas...?

Al haer lo que comentaba en el post anterior, he podido comprobar que ¡¡TAMPOCO ME VALE!!

Acabo de constatar que la misma resolución (p.e.: 1024x768) no funciona igual en todas las pantallas. Me explico: centrando el dibujo y tomando las posiciones (horizontal y vertical) de cada uno de los dos ScrollBar, si corro el programa en la misma pantalla (4:3) funciona bien, pero si corro el programa en una pantalla 16:9 (bueno más apaisada, porque me parece que no todas las pantallas apaisadas tienen la misma proporción 16:9), si corro el programa en esta pantalla, con la resolución ajustada a 1024x768 no sale centrada. es más, si lo centro manualmente y obtengo los valores
HorzScrollBar.Position y VertScrollBar.Position, ¡¡¡SON DISTINTOS!!! de los obtenidos en en una pantalla 4:3.

Lo dicho, "me crecen los enanos del circo" o, lo que es lo mismo, se me complecan las cosas.

Si no es posible hacer lo que pretendo en Delphi, por favor, díganmelo para desistir de mi idea, porque llevo ya unos dias con este problema.

Perdón por la parrafada, pero si quiero explicarlo no hay otro modo.

Gracias por vuestro tiempo.

Saludos.

[ecfisa]

Hola jhonalone.

Empezado por jhonalone

Si no es posible hacer lo que pretendo en Delphi, por favor, díganmelo para desistir de mi idea, porque llevo ya unos dias con este problema.

Si no fuera posible no te hubiera sugerido código para hacerte perder el tiempo... No pude conseguir una imágen de 3000 x 3000 pixeles, pero esta de 3264 x 2448 servirá igual.

La imagen, reducida y a la que agregué unos ejes cartesianos en rojo para que puedas apreciar el centrado, es esta:



Con la propiedad WindowState = wsNormal:



Con la propiedad WindowState = swMaximized:



Como podrás apreciar, el centro de los ejes siempre se muestra en el medio del formulario sea cual fuere el tamaño de este o la imágen.

Saludos