Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Rezolucija

[es] :: Pascal / Delphi / Kylix :: Rezolucija

[ Pregleda: 2277 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Crazy Mix
Nemanja Avramovic
QuadraSoft
Mladenovac

Član broj: 7103
Poruke: 331
*.041net.co.yu

ICQ: 266136396
Sajt: www.quadrasoft.co.sr


Profil

icon Rezolucija25.01.2003. u 11:38 - pre 241 meseci
Da li neko zna kako da izvrsim "quiet" menjanje rezolucije, da bi mi npr. igra/program bila full screen? Ili postoji neki drugi nacin?

Nemojte mi reci da menjam velicinu svake komponente u runtime-u, zaklacu Vas
 
Odgovor na temu

overflow
Goran Milosavljević
Integration & Internet Senior
Engineer @ Telenor
Beograd

Član broj: 396
Poruke: 345
*.fon.bg.ac.yu

ICQ: 106825659
Sajt: localhost


Profil

icon Re: Rezolucija25.01.2003. u 12:47 - pre 241 meseci
Ako sam te dobro razumeo sta ti treba ...
Prvo pokupi staru rezoluciju:
OldWidth := GetSystemMetrics(SM_CXSCREEN);
OldHeight := GetSystemMetrics(SM_CYSCREEN);

Pa pozovi:
SetScreenResolution(800, 600); // ili vec koja ti treba

Code:

function TfrmMain.SetScreenResolution(Width, Height: integer): Longint;
var
  DeviceMode: TDeviceMode;
begin
    with DeviceMode do 
    begin
      dmSize := SizeOf(TDeviceMode);
      dmPelsWidth := Width;
      dmPelsHeight := Height;
      dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
    end;
    Result := ChangeDisplaySettings(DeviceMode, CDS_UPDATEREGISTRY);
end;

Sve sto je besmislenije, utoliko je bolje.
 
Odgovor na temu

Crazy Mix
Nemanja Avramovic
QuadraSoft
Mladenovac

Član broj: 7103
Poruke: 331
*.041net.co.yu

ICQ: 266136396
Sajt: www.quadrasoft.co.sr


Profil

icon Re: Rezolucija25.01.2003. u 12:58 - pre 241 meseci
Hvala, videcu da li radi, trebalo bi...
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Rezolucija

[ Pregleda: 2277 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.