Mantener la relacion de aspecto en la form

[Phacko]

Que tal...? como los trata la vida??????

Pues nada de nuevo por aqui, dando lata, para variar. Estoy desarrollando un programa el cual instale en una maquina con resolución y tamaño de letra diferente al que tengo en mi maquinilla, y o sorpresa los controles no se veian en la ventana, al menos no todos, y el texto a vendito Dios igual que los controles aparecia solo una parte de ellos. Pense en obtener (en tiempo de ejecución) información sobre la resolución y tamaño del texto del sistema donde se vaya a trabajar y apartir de eso decidir el tamaño y posición tanto de controles como del texto para crear la form y posteriormente guardarlo en algun archivo tipo ini para su posterior ejecución, pero, que nunca falta, ignoro como obtener dicha información de la resolución y tamaño de texto del sistema en cuestión, o si existe una forma mas corta de hacerlo.

De antemano gracias por su tiempo.

[jhonny]

Prueba con esto, Ancho es el ancho de pantalla con el que estas trabajando tu proyecto y alto es el alto de pantalla con que estas trabajando tu proyecto

Código Delphi [-]
function redimesion(altoForm, anchoForm :Integer):Boolean;
const
  ancho = 800; // Ancho del diseño
  alto = 600;  // Alto del diseño
begin
  try
    altoform := altoform * Screen.Height div alto;
    anchoform := anchoform * Screen.Width div ancho;
  Result := True;
  except
    Result := False;
  end;
ScaleBy(Screen.Width, ancho);
end;

El llamado de esta funcion seria redimension(Form1.Height,Form1.Width)


Espero te sirva