Problemas con las resoluciones de pantalla

[pablopessoa]

hola! te paso una funcion que a mi me sirve muy bien para ajustar las resoluciones de pantalla. Antes qeu nada te comento que lo que hago yo es meter un Tpanel que ocupe todo el formulario y redimensiono el Tpanel con este codigo :

Código Delphi [-]
var
  x,y:integer;
begin
  x:=Screen.Width;
  y:= Screen.Height;
  if ((x<1024)and (y<768))  then
  begin
        Height := Height * y div alto;
        Width := Width * x div ancho;
        ScaleBy(Screen.Width, ancho);
        panel1.ScaleBy(Screen.Width, ancho);
  end;

alto y ancho son constantes que contienen los valores 800 y 600 que se toman como parametro para escalar el Tpanel

Otra cosa tambien es que yo lo hago pensando lo siguiente:
1- si la resolucion es igual o mayor a 1024x 768 no necesito escalar por que entraria bien
2- si la resolucion es menor a 1024x768 ahi escalo a 800x600, ya que 640x480 no usa nadie (y si alguien lo usa en 640x480 que se compre anteojos y ponga una resolucion razonable jajajaaj)

Saludos!