Foros Club Delphi - Adaptar form a nuevo tamaño de pantalla

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

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

- - Adaptar form a nuevo tamaño de pantalla (https://www.clubdelphi.com/foros/showthread.php?t=43852)

Tonio

22-05-2007 19:09:52

Adaptar form a nuevo tamaño de pantalla

Hasta ahora he visto como cambiar la resolución de la pantalla.
Pero tengo un problema, utilizo dos ordenadores, en distintos lugares, con diferentes tamaños de pantalla, cual sería la forma de utilizar mis programas en distintos ordenadores, sin tener que cambiar manualmente el ancho y alto de los form,s.
Si hay forma de hacerlo me gustaría saberlo.
Gracias de antemano.
Saludos.
Tonio

MAXIUM

22-05-2007 20:12:53

Código Delphi [-]// Dimensión del formulario en tiempo de edición
Const
        Ancho  = 800;
        Alto     = 600;

// Esto va en en Form.Create.
    // 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.

Tonio

25-05-2007 22:47:06

Adaptar form a nuevo tamaño de pantalla

Gracias, MAXIUM, por tu rápida respuesta, lo he probado con una aplicación, estoy en el ordenador de pantalla 'pequeña', parece que funciona, pero no se si ya la había puesto a su medida.
Gracias de nuevo.
Un saludo.
Tonio.

Caral

25-05-2007 23:01:24

Hola
Y no es lo mismo poner en la propiedad del form en aling AlClient.
No se me parece.
El codigo mostrado por MAXIUM es exelente pero por ejemplo en mi caso no lo hace del todo bien, uso una portátil con pantalla larga y estrecha, se tendria que pensar en estas posibilidades también.
Saludos

FGarcia

26-05-2007 18:55:45

Sobre esto de adaptar tu formulario a diferentes resoluciones de pantalla en el libro de "Mastering Delphi 6" de Marco Cántu da las sisguientes recomendaciones para ajustar las propiedades del form:

Autoscrooll := False; // lo trae por defecto en true.
Scaled := True; //por defecto
Position := poCenterScreen; //o posicion de diseño en la esquina superior izquierda

Tambien usar fuentes de tipo TrueType de 96 dpi.

Supongo que el codigo anterior con estas recomendaciones dara buen resultado.

Existe un componente que escala en forma automatica pero al parecer la pagina ya desaparecio, en alguno de mis respaldos debo de tenerlo si lo encuentro lo subo al ftp.

Saludos

La franja horaria es GMT +2. Ahora son las 10:40:25.