Delphi - Puntos por Pixel

 
Vista:

Puntos por Pixel

Publicado por Alejandro Ojeda (3 intervenciones) el 25/07/2002 18:37:53
Hola, estoy modificando un a aplicación delphi 3, todo iba bien hasta que el usuario la probó en un PC con resolución de 125 Puntos por Pixel(fuentes grandes), se corren todas las cajas y botones, en definitiva la plaicación queda impresentable...., investigando y mirando el código de la aplicación, me di cuenta de que por defecto windows funciona con fuentes pequeñas(96 Puntos por Pixel) y que la aplicación está diseñada para esa resolución.
Ahora mi pregunta, delphi 3 sólo trabaja con 96 Puntos por Pixel???, o eso es modificable???
Desde ya gracias!!!!!!!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Puntos por Pixel

Publicado por BigLuis (463 intervenciones) el 25/07/2002 19:46:07
Delphi al compilar el programa utiliza la resolucion del equipo en que compila y esa es la que muestra en cualquier ordenador cuando se ejecuta el programa, por lo tanto una manera sencilla, sin tener que escribir código, de solucionarlo es cambiar la resolucion de tu equipo a la que tenga en el que va a correr la aplicacion y solucionado.Peor no deja de ser una chapuza para un programador.

Aqui tienes un procedimiento para mantener la resolucion de la aplicacion ajustada a la que quieras, pasando los parametros longint
MantenResolucion(800,600) etc.
Implementalo como quieras, al crearse el formulario principal, en un boton.......


procedure TForm1.MantenResolucion(ScreenWidth,ScreenHaight :LongIntt);
var
OldFormWidth:Integer;
begin
scaled:=true;
if (screen.width<>ScreenWidth) then
begin
OldFormWidth:=width;
Height:=Longint(height)*longint(screen.height) div screenHeight;
Width:=Longint(Width)*longint(screen.Width) div screenWidth;
scaleBy(screen.width,ScreenWidth);
font.size:=(Width div OldformWidth)*font.size;
end;
end;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Puntos por Pixel

Publicado por Andrea (16 intervenciones) el 12/11/2010 21:11:36
EXCELENTE
funcionó muy bien, no en todos los casos , pero de todosmodos lo implemente y me sirvio de mucho

mil gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar