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);
procedure AjustaFormulario(Formulario:TForm; Const Tamanho:integer = 800);
end;
varForm1: 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;
Nenhum comentário:
Postar um comentário