Siga-nos em...
Follow us on Twitter Follow us on Facebook Watch us on YouTube
Registro

Alpha Servers
Resultados 1 a 1 de 1
  1. #1

    Avatar de FusioN
    Data de Ingresso
    Jul 2010
    Localização
    Rio de Janeiro - Brasil
    Idade
    29
    Posts
    434
    Agradecido
    18
    Agradeceu
    14
    Peso da Avaliação
    23

    Padrão [Medio]Trocando Resolução do PC

    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
    Última edição por FusioN; 17-08-2010 às 11:17 PM.

 

 

Informações de Tópico

Usuários Navegando neste Tópico

Há 1 usuários navegando neste tópico. (0 registrados e 1 visitantes)

Tópicos Similares

  1. |Dúvida| Trocando o Game Server
    Por [ADM]Lp no fórum Dúvidas
    Respostas: 4
    Último Post: 19-07-2012, 05:52 PM
  2. |Tutorial| Trocando ícones do Forum IPB
    Por Erick Paz no fórum IPB | Tutoriais
    Respostas: 0
    Último Post: 30-03-2011, 01:12 PM
  3. |Tutorial| Trocando a imagem LOADING do seu cliente.
    Por Cøłєridgє no fórum Tutoriais
    Respostas: 0
    Último Post: 20-04-2010, 07:05 PM
  4. |Tutorial| Trocando musicas do seu GC
    Por vinnymga no fórum GC | Tutoriais
    Respostas: 0
    Último Post: 15-04-2010, 02:59 PM
  5. |Tutorial| Arrumar Resoluçao
    Por vinnymga no fórum Servers
    Respostas: 0
    Último Post: 20-02-2010, 12:54 PM

Marcadores

Permissões de Postagem

  • Você não pode iniciar novos tópicos
  • Você não pode enviar respostas
  • Você não pode enviar anexos
  • Você não pode editar suas mensagens
  •