[delphi-br] Resolução do monitor

Rodrigo Magno Mon, 02 Apr 2007 08:44:43 -0700

Amigos,


Segue abaixo função para resolução de video.

Espero que ajude a todos.


variavel private

var lpDevMode: TDeviceMode;



procedure TfrmMain.N800x6001Click(Sender: TObject);
begin
  inherited;
     If EnumDisplaySettings(nil, 0 ,lpDevMode) then
  begin
        lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT;
        lpDevMode.dmPelsWidth := 800;
        lpDevMode.dmPelsHeight := 600;
        changeDisplaySettingsEx(0,lpDevMode,0,CDS_UPDATEREGISTRY,0);
        N640x4801.Checked:=False;
        N800x6001.Checked:=True;
        N1024x7621.Checked:=False;
        N1152x8641.Checked:=False;
 end;


procedure TfrmMain.N640x4801Click(Sender: TObject);
begin
  inherited;
     If EnumDisplaySettings(nil, 0 ,lpDevMode) then
  begin
        lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT;
        lpDevMode.dmPelsWidth := 640;
        lpDevMode.dmPelsHeight := 480;
        changeDisplaySettingsEx(0,lpDevMode,0,CDS_UPDATEREGISTRY,0);
        N640x4801.Checked:=True;
        N800x6001.Checked:=False;
        N1024x7621.Checked:=False;
        N1152x8641.Checked:=False;
 end;
end;


procedure TfrmMain.N1024x7621Click(Sender: TObject);
begin
  inherited;
     If EnumDisplaySettings(nil, 0 ,lpDevMode) then
  begin
        lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT;
        lpDevMode.dmPelsWidth := 1024;
        lpDevMode.dmPelsHeight := 768;
        changeDisplaySettingsEx(0,lpDevMode,0,CDS_UPDATEREGISTRY,0);
        N640x4801.Checked:=False;
        N800x6001.Checked:=False;
        N1024x7621.Checked:=True;
        N1152x8641.Checked:=False;
 end;
end;
procedure TfrmMain.N1152x8641Click(Sender: TObject);
begin
  inherited;
    If EnumDisplaySettings(nil, 0 ,lpDevMode) then
  begin
        lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT;
        lpDevMode.dmPelsWidth := 1152;
        lpDevMode.dmPelsHeight := 864;
        changeDisplaySettingsEx(0,lpDevMode,0,CDS_UPDATEREGISTRY,0);
        N640x4801.Checked:=False;
        N800x6001.Checked:=False;
        N1024x7621.Checked:=False;
        N1152x8641.Checked:=True;
 end;
end;






















----- Mensagem original ----
De: Hamilton Naves <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Segunda-feira, 2 de Abril de 2007 9:42:35
Assunto: Re: [delphi-br] Resolução do monitor


Screen.Width e Screen.Height

Alexandre escreveu:
> Alguem conhece alguma função que detecte a resolução atual do monitor?????
> 
> Alex
> 
> [As partes desta mensagem que não continham texto foram removidas]
> 
> 
> 




__________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Resolução do monitor

Responder a