los forms se ven desastrozos

[Patricio]

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?

[Patricio]

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?

[Casimiro Notevi]

Pero el problema exactamente, ¿cuál es?

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



Gracias

[Patricio]

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?

[[nlsgarcia]]

Patricio,

Empezado por Patricio

...los forms se ven desastrosos...se ve la mitad de las opciones en estos monitores grandes (23 pulgadas)...

Revisa estos links:

Multi-Resolution Delphi Applications : http://delphi.about.com/od/standards/a/aa030700a.htm

Scale your form to work in multi-resolution environment : http://chee-yang.blogspot.com/2009/0...-in-multi.html

Form design for different screen resolutions : http://delphi-kb.blogspot.com/2011/0...nt-screen.html

Espero sea útil

Nelson.

[ecfisa]

Hola.

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

Saludos.

[Neftali [Germán.Estévez]]

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

[Patricio]

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

[Patricio]

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