Resolucion de Pantalla

[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.