RSS

Ajustar automaticamente o form para o resolução da tela

28 nov

 

Boa dica pra quem costuma programar em resoluções altas (1024 x 768) e instala os
programas em máquinas com resolução mais baixa.
procedure AjustaForm;
//
// Ajusta a visualização de um formulário de maneira
// correta independente da resolução do monitor o qual
// roda nossa aplicação.
//
// deve ser colocada na unit do form que se deseja fazer o ajuste
//
// Declare-a na clausula private da unit:
// Private
procedure AjustaForm;
//
// depois inicialize-a na unit assim:
//
procedure TForm1.AjustaForm;
Const
nTamOriginal = 1024; // Será o 100% da escala
Var
nEscala : Double; // Vai me dar o percentual de Transformação escalar
nPorcento : Integer; // Vai me dar em percentual inteiro o valor
begin
With Formulario do
begin
if nTamOriginal <> Screen.Width then
begin
nEscala := ((Screen.Width-nTamOriginal)/nTamOriginal);
nPorcento := Round((nEscala*100) + 100);
Self.Width := Round(Self.Width * (nEscala+1));
Self.Height := Round(Self.Height * (nEscala+1));
Self.ScaleBy(nPorcento,100);
end;
end;
end;

Anúncios
 
Deixe um comentário

Publicado por em 28/11/2009 em Estudos Delphi

 

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

 
%d blogueiros gostam disto: