Foros Club Delphi - Ajuste automatico de la pantalla

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Ajuste automatico de la pantalla (https://www.clubdelphi.com/foros/showthread.php?t=49970)

emeritos

05-11-2007 14:06:26

Ajuste automatico de la pantalla

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	05-11-2007 14:16:08

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

05-11-2007 15:04:11

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

y la solución:

Código:

// 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;

La franja horaria es GMT +2. Ahora son las 18:22:52.