Ajuste automatico de la pantalla

[emeritos]

Saludos,

Con tantos tipos de pantallas (los tamaño), los programas aunque los ajuste a un determinado tamaño (como por ejemplo ocupar toda la pantalla y centrado), si el programa se ejecuta en distintos tipos de pantalla 15" 17" etc. no salen igual y siempre en los mas grandes queda un lado sin nada. Por ejemplo si lo programo y compilo en pantalla de 15" y despues lo ejecuto en uno de 17", no sale igual ya que el de 17" tendra la parte derecha sin nada, que es lo que le falta al de 15". No se si me explico bien.

¿ Como puedo solucionar esto ?.

Gracias

[aeff]

bueno, no se si te entendi bien colega,

pero estas seguro que la resolucion de la pantalla no tiene que ver en esto?

es porsible que un monitor de 17" tenga como predeterminado una resolucion mayor (por ejemplo de 1027x768px) que uno de 15" que puede tener una resolucion menor (por ejemplo de 800x600px),

nunca te has fijado en ese detalle??

saludos!

aeff!

[MAXIUM]

aeff tiene razón, ese ha de ser tu problema.

y la solución:

// Ancho Y alto corresponden a las dimensiones de tu Form en tiempo de diseño.
Const
        Ancho   = 800;
        Alto      = 600;

procedure TForm1.FormCreate(Sender: TObject);
begin
// Redimensiona la aplicación en base a la resolución.
     Height:= Height * Screen.Height div Alto;
     Width:= Width * Screen.Width div Ancho;
  // ScaleBy(Screen.Width, Ancho); //en base al ancho
     ScaleBy(Screen.Height, Alto); // en base al alto.
end;