Buscar

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

Código

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;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Forms
Adicionada dia: 03/01/05
Por: Fabio Pariz
Visualizada: 23451 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009