Procedure AjustaFormulário

Ajusta o formulário para a resolução de vídeo especificada pelo parâmetro tamanho, onde 800 indica uma resolução de 800x600 pixels, 640 indica uma resolução de 640x480 e assim por diante. Este procedimento deverá ser utilizado no evento onCreate. O procedimento poderá ser declarado no Seção Public do Formulário principal para que todo o Sistema a utilize.

public
       procedure AjustaFormulario(Formulario:TForm; Const Tamanho:integer = 800);

end;

var
Form1: TForm1;


implementation


procedure TForm1.AjustaFormulario(Formulario:TForm; Const Tamanho:integer = 800);var Escala : Double; Porc : integer;//Vai dar o percentual inteiro
begin
       with Formulario do begin
            if  Tamanho <> Screen.Width  then begin
                 //Recebendo o percentual de escalar
                 Escala:=((Screen.Width-Tamanho)/Tamanho);                 //Recebendo o percentual de escalar em inteiro
                 Porc:=Round((Escala*100)+100);
                 Self.Width:=Round(Self.Width*(Escala+1));
                 Self.height:=Round((Self.height*(Escala+1)));                 //Realizando o ajuste do form
                 Self.changeScale(Porc,100);          
            end;       
       end;
end;