Delphi dicas

Mudar resolução de vídeo

{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;

por : José Mauricio Barbisan Zottis