Resolução de Vídeo

10/05/2003

1

Como identificar qual é a resolução de vídeo?

Por exemplo, se for 800x600 executar um comando, mas se for 1024x768 executar outro comando.


Responder

Posts

10/05/2003

Marcelo.c

Pelo que entendi o que você precisa está no código abaixo:

Implementation
const
ScreenWidth: LongInt = 800; {I designed my form in 800x600 mode.}
ScreenHeight: LongInt = 600;
{$R *.DFM}
procedure TForm1.FormCreate (Sender: Tobject);
begin
scaled := true;
if (screen.width <> ScreenWidth) then
begin
height := longint(height) * longint(screen.height) DIV ScreenHeight;
width := longint(width) * longint(screen.width) DIV ScreenWidth;
scaleBy(screen.width, ScreenWidth);
end;
end;


Responder

10/05/2003

Marcelo.c

Ou, indo direto ao ponto que você precisa:

if (GetSystemMetrics(SM_CXScreen)=640) and GetSystemMetrics (SM_CYScreen)=480) then PagesDlg.WindowState:=wsMaximized;


Responder

10/05/2003

Fmd

Valeu [b:dfd8df7dfa]marcelo.c[/b:dfd8df7dfa]. Era isso mesmo que eu estava precisando.


Responder