los forms se ven desastrozos
 

Hola gente tengo una pequeña aplicacion en delphi, el tema que ahora cambiaron 3 monitores de los 7 que hay y compraron de 23 pulgadas, yo arreglaba el tema de los tamaños con el siguiente codigo

procedure TFUPrincipal.Escalar;
const
ancho = 1024; // Ancho en el momento del diseño
alto = 1000; // Alto en el momento del diseño
begin
Height := Height * Screen.Height div alto;
Width := Width * Screen.Width div ancho;
ScaleBy(Screen.Width, ancho);
end;


Pero ahora se ven la mita de las opciones en estos monitories grandes, que me recomiendan?

1920 x 1080
 

Gente ahi mire las resoluciones, el tema que en uno de los monitores la resolucion es de 1920 x 1080 y ahi se ve el 80% de la altura del formulario, las otras resoluciones va safando, alguna ayuda?

Pero el problema exactamente, ¿cuál es?

Recuerda poner los tags al código fuente, ejemplo:



Gracias :)

no se ve todo el formulario
 

hola gracias por tu respuesta el tema que en estos monitores nuevos, con el procedimiento escalar se ve la mitad del formulario solamente, hay alguna otra forma de acomodar esto?

Patricio,

Revisa estos links:
Espero sea útil :)

Nelson.

Hola.

También te puede servir este enlace: Ejecutar un programa en otra resolución

Saludos. :)

Si pones una imagen de esos formularios nos haremos una idea exacta del problema.

una imagen del form
 

Aca les dejo un formulario donde se corta el alto del mismo en resoluciones tipo 1440 x 900 o menores. Tambien les consulto por el tema de que las imagenes no se agrandan en proporcion como los paneles a ver si me dan una mano. Gracias

Gente, lo resolvi preguntando por la resolucion, si es 800x600 o 1024 x 768 lo hago como venia haciendo y si es mayor cambio las propiedades de ancho y alto, con el siguiente codigo, alguien me sugiere que lo haga de otra forma?
Gracias

Código Delphi [-]
var
Alto: integer;
Ancho:integer;
begin
   if (screen.DesktopHeight <> 768) and (screen.DesktopHeight <> 600)
   then
     begin
        Alto := 600;       // 768, ...
        Ancho := 900;  // 1366, ...
     end
   else
     begin
        Alto := 580;       // 768, ...
        Ancho := 800;  // 1366, ...
     end;
   Height := Height * Screen.Height div Alto;
   Width := Width * Screen.width div Ancho;
   ScaleBy(Screen.Width,Ancho);