Resolucion de Pantalla

[emeritos]

Buenas dilferos.

Llevo varios meses intentando tanto en Delpfi 7 como en Rad Studio XE5 (nuevo para mi) que las pantallas se adapten a la resolucion de pantalla delm ordenador en cuestion.

Me explico (haber si soy capaz):

Estoy realizando un programa en un ordenador cuya resolucion de pantalla es : 1280 X 1024, donde todos los compomentes visuales de las distintas pantallas se ven, es decir, no se sale ninguno de la pantalla. Pero si ese programa se ejecuta en otro ordenador cuya resolucion de pantalla por ejemplo es de 1024 X 768, entonces los compomentes (botones, label, rejilla, etc.) mas cercanos a los extremos (segun resolucion) se salen de la pantalla.

Me gustaria poder hacer que tanto las pantallas como los compomentes visuales se ajusten a la resolucion de ese momento, es decir, ya sea una resolucion u otra se vean todos los compomentes sin tener que ir arriba o abajo, derecha o izquierda. Mas o menos como en los navegadores. Vamos que segun la resolucion los componentes se deben de hacer mas grande o mas pequenos segun la resolucion.

No se si se me esplicado con claridad.

Muchas gracias.

[[nlsgarcia]]

emeritos,

...Llevo varios meses intentando tanto en Delphi 7 como en Rad Studio XE5...que las pantallas se adapten a la resolución de pantalla del ordenador...

Revisa esta información:

Los Forms se ven desastrozos

Espero sea útil

Nelson.

[emeritos]

He probado todo y no me funciona. Mi resolucion de diseño es 1280*1024 y la quiero ejecutar en 1024*768 y se sigue saliendo los compomentes de los extremos. Tambien que decir que el from esta maximizado y aunque no lo ponga asi tambien sale mal.

tambien utilizo un compomente llamado FromResizer1, pero no estoy muy seguro como se utiliza si solo realizo en la creacion del from
"FormResizer1.InitializeForm;" y en el evento del from.Onresize " FormResizer1.ResizeAll;" (si lo quito tampoco sale.)

Gracias.

[engranaje]

Entonces has probado todas las ideas propuestas en el hilo del que ha informado nlsgarcia y no has coseguido ninguna mejora. Podrias probar tan solo a poner la propiedad scaled del form a true y asegurarte de que la propiedad position del form es distinta de PoDesigned. A la hora de trabajar con distintos monitores hay que tener en cuenta también los pixels por pulgada. Puedes probar una aplicación que se ve bien en tu monitor cambiando varias resoluciones y al probar con otro monitor, encontrarte con resultados distintos en ambos.

[emeritos]

Muchisimas Gracias.
He probado esta funcion y mas o menos pero tiene un pequeño fallo (pequeñisimo). Como te dije diseño en 1280X1024 y con esta funcion en el from pertinente se ajusta todo muy bien en horizontal pero se me sale un poquito el vertical, probado en 1024X768 y 800X600. Como puedo ajustarlo tambien verticalmente. Tambien algunos botones con imagenes no se ajustan bien pero eso debo de mirar por que.

La llamada

Código Delphi [-]
ScaleForm(frmpagomes,1280,1024);

La funcion:

Código Delphi [-]
procedure ScaleForm(F: TForm; ScreenWidth, ScreenHeight: LongInt);
begin
   F.Scaled := True;
   F.AutoScroll := False;
   F.AutoSize := False;
   F.Position := poScreenCenter;
   F.Font.Name := 'Arial';
   If (Screen.Width <> ScreenWidth)
      Then
         Begin
             F.Height := LongInt(F.Height) * LongInt(Screen.Height) div ScreenHeight;
             F.Width := LongInt(F.Width) * LongInt(Screen.Width) div ScreenWidth;
             F.ScaleBy(Screen.Width,ScreenWidth) ;
         End;
end;

[emeritos]

He cambiado esta linea de la funcion:

Código Delphi [-]
F.ScaleBy(Screen.Width,ScreenWidth);

por esta otra

Código Delphi [-]
F.ScaleBy(Screen.Height,ScreenHeight);

Si se adapta bien en cualquier resolucion. Ahora, algunos botones no se ven bien, y no veo diferencia entre ellos, aunque el tamaño del dibujo puede que varie pero muy poco seguire investigando.

[emeritos]

Os pongo dos pantallazos para ver como sale al cambiar la resolucion. Aunque arreghle algunas pantallas otras no se arregla.

Resolucion de diseño 1280X1024



Resolucion de ejecucion 1024X768

[engranaje]

Lo que yo proponía era simplemente cambiar las propiedad scaled de todos los forms de la aplicación a true. compilar y probar en otro equipo. Si no me equivoco, sin necesidad de escribir nada de código y jugando con los anchors y los align de los controles dentro del form puede conseguirse lo que buscas.

[emeritos]

Creo que esta solucionado: Jugando con las propiedades Align,,Anchors,AutoScroll := False, PixelsPerInch := 120, Scaled := True
ParentFont := False; de momento me va funcionado. Y ademas en algunos from con el procedimiento de arriba. Muchas gracias.