Buscar

Mudar resolução de vídeo

Código

{Talvez esta função já tenha sido indicada, pois tirei da internet também, mas como me bati bastante e o que me atendeu melhor foi esta função aí está.
Espero que seja proveitosa.}


Private
Procedure AjustaForm;

procedure TCadClientes.AjustaForm;
Const nTamOriginal = 800; // 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 CadClientes 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;

procedure TCadClientes.FormShow(Sender: TObject);
begin
   AjustaForm;
end;
 

Publicidade

Vote na dica




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


Detalhes da dica

Categoria: Forms
Adicionada dia: 11/06/08
Por: José Mauricio Barbisan Zottis
Visualizada: 5796 vezes

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