Olá espero k ajude.Eu adaptei isto com um ficheir de parametros e
funciona ok
That the procedure I use and it solved all my problems.
I put SCALED := FALSE in the form at design time and
set r_e_s := 800 which is my resolution at design time.
It manage resolution and font.
HTH.
183 - Mudar a resolução do vídeo via programação
- Coloque um ListBox no form
- Modifique o OnCreate do form assim:
procedure TForm1.FormCreate(Sender: TObject);
var
i : Integer;
DevMode : TDevMode;
begin
i := 0;
while EnumDisplaySettings(nil,i,Devmode) do begin
with Devmode do
Exemplo em anexo.
- Original Message -
From: conexaoi
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, March 22, 2006 8:54 AM
Subject: [delphi-br] Mudar resolução video 640x480, 800x600 etc.
Tem como mudar a resolução do video através do delphi 640x480,
800x600,
3 matches
Mail list logo