Sejam bem vindos ao nosso forum, onde havera hacks, utilitários tutoriais e dicas para diversos jogos, fique conosco e desfrute do melhor.

Trocar resolução de video automatico

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Trocar resolução de video automatico

Mensagem por Mr.Positive em Qua Jan 12, 2011 4:54 pm

Adicione a Private:

Private

OLD_WIDTH,OLD_HEIGHT :Integer;


No Evento OnCreate do Form principal coloque o código abaixo:


OLD_WIDTH := Monitor.Width;
OLD_HEIGHT := Monitor.Height;

if (OLD_WIDTH>=1024)and(OLD_HEIGHT>=768)then
begin
SetScreenResolution(800, 600);
end;

O comando acima esta programado para: Se a resolução for igual ou maior do 1024 por 768, a resoluçâo vai passar para 800x600

No Evento OnClose do Form principal coloque o Códigoi:
Quote


SetScreenResolution(OLD_WIDTH , OLD_HEIGHT);

O resoluçâo do video vai voltar como era antes.

Mr.Positive
Membro
Membro

Mensagens : 40
Agradecimentos : 0
Data de inscrição : 12/01/2011
Idade : 21
Localização : Recreio
Humor : Feliz !
0 / 1000 / 100



Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum