Resolução

[tiagojacomini]

Boa tarde galera.

alguém saberia me dizer como que faço pra colocar a resolução da tela em 800x600 direto

sem passar pelo procedimento que todos conhecem de encher uma ListBox com os modos de resolução e escolher o desejado...

algo do tipo que num clicar de um botão a tela muda a resolução.

Obrigado.

[Micheus]

Mais detalhes dê uma olhada no Help da API do Windows (Windows SDK)

procedure Resolucao800x600;
var
  DevMode :TDevMode;
begin
  EnumDisplaySettings(nil,      // nil=display corrente
                      0,        // deve ser zero na primeira chamada
                      DevMode); // retorno das confirgurações
  if (DevMode.dmPelsWidth <> 800) and
     (DevMode.dmPelsHeight <> 600) then
  begin
   // atribui nova resolução
    DevMode.dmPelsWidth := 800;
    DevMode.dmPelsHeight := 600;
   // define que parâmetros foram alterados
    DevMode.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
   //
    if ChangeDisplaySettings(DevMode,  // Parâmtros a aplicar
                             0) <> DISP_CHANGE_SUCCESSFUL    then  // 0=Alteração dinâmica da resolução
   // *** se for mudar na configuração do usuário, utilize CDS_UPDATEREGISTRY no lugar do zero
      MessageBox(0, 'Erro alterando a resolução de vídeo', 'Confuguração de Vídeo', MB_OK);
  end;
end;

[tiagojacomini]

nossa!!!! era exatamente disso que eu estava falando!!!

eu coloquei no FormShow pra ele mudar... pra mim restaura a resolucao anterior..

dexa eu te explicar melhor

esse procedure é pra uma tela de venda de supermercado eu to desenvolvendo ela em cima de 800x600 mas pode haver variações entre uma maquina e outra, uma pode trabalhar com 1024x768

eu poderia antes de forçar o 800x600, pegar a resolução atual

jogar em variavel e quando fechar a tela de venda ele restaurar a resolução!???

cara muito obrigado mesmo!!! que código lindo!!!

Obrigado

[tiagojacomini]

já consegui !!! ehehehe

foi só declarar 2 variaveis globais para receber o

Screen.Height

Screen.Width

no FormCreate

dae usando o mesmo código no FormCloseQuery

faco os valores que estao 800x600 receber as variaveis

cara muito bom esse código!!! perfeito!!!

valeu

[Guest orland_linuxer]

Obrigado pela dica pra mim também servio.

Borland_linuxer

[smilox]

ótimo, serviu como uma luva