Alguna vez vi un codigo que me sirvio de la pagina de un escritor muy nombrado pero que no se porque ahora no recuerdo su nombre...
la cosa era asi:
Código Delphi
[-]
procedure Escalar;
const
ancho = 1024; alto = 768; begin
Height := Height * Screen.Height div alto;
Width := Width * Screen.Width div ancho;
ScaleBy(Screen.Width, ancho);
end;
Y si que funciona.
