MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!

Participe do fórum, é rápido e fácil

MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!
MMORPG Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

[Tutorial]Trocando Resolução do PC

Ir para baixo

[Tutorial]Trocando Resolução do PC Empty [Tutorial]Trocando Resolução do PC

Mensagem por FusioN Qua 14 Jul 2010, 19:30

Em uma nova aplicação, coloque um LISTBOX(standard) e um BUTTON(standard). Modifique o evento OnCreate do form como mostrado abaixo:

Código:
procedure TForm1.FormCreate(Sender: TObject);
var
  i : Integer;
  procode : TDevMode;
begin
  i := 0;
  while EnumDisplaySettings(nil,i,procode) do
  begin
    with procode do
      ListBox1.Items.Add(Format('[%dx%d]-[%d] Cores',
        [dmPelsWidth,dmPelsHeight, 1 shl dmBitsperPel]));
    Inc(i);
  end;
end;

Agora altere o evento OnClick do BUTTON:

Código:
procedure TForm1.Button1Click(Sender: TObject);
var
  procode : TDevMode;
begin
  EnumDisplaySettings(nil,Listbox1.ItemIndex,procode);
  ChangeDisplaySettings(procode,0);
end;

ATENÇÃO: CUIDADO COM A RESOLUÇÃO QUE VOCÊ IRÁ SELECIONAR, VOCÊ PODERÁ TER PROBLEMAS COM ELES.


Creditos:

FusioN- Tutorial
Calmon Ribeiro - Codigo
FusioN
FusioN
Membro Sênior
Membro Sênior

Mensagens : 273

http://www.mmorpgbr.com

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos