MyCity » Programiranje igara / 3D programiranje » Klasa za menjanje rezolucije (Delphi/Pascal)

Klasa za menjanje rezolucije (Delphi/Pascal)

Napisano na dan: 27.10.2009

Klasa za menjanje rezolucije (Delphi/Pascal)
Sledeća strana Pagination

Idi na vrh

Poslao: 27 Okt 2009 21:27
Idi na vrh
offline
  • Srđan Tot
  • Pridružio: 12 Jul 2005
  • Poruke: 2483
  • Gde živiš: Ljubljana

Pre nekog vremena sam odlučio da razvijem jednu igru bez upotrebe 3rd party biblioteka, pa mi je zatrebala jednostavna klasa za menjanje rezolucije zbog fullscreen-a... za slučaj da još nekom treba tako nešto, slobodno može da je iskoristi.

Od operativnih sistema su podržani Windows (od 98 pa na više) i Linux (koristi se xf86vmode ekstenzija). Testirani kompajleri su Delphi 2007, FPC 2.2.4 i Lazarus 0.9.28, ali verovatno radi i na drugim verzijama.

U nastavku je jednostavan konzolni program koji koristi klasu da prikaže trenutno izabranu rezoluciju, da prikaže sve rezolucije koje su moguće na računaru, da promeni rezoluciju i da je posle vrati na normalnu.
program TestBed; {$I Jedi.inc} uses   GUVideoModes; var   VideoModes: TVideoModes;   VideoMode: TVideoMode;   I: Integer; begin   VideoModes := TVideoModes.Create;   WriteLn('Desktop video mode: ', VideoModes.GetDesktopVideoMode.Width,     'x', VideoModes.GetDesktopVideoMode.Height,     'x', VideoModes.GetDesktopVideoMode.BitsPerPixel,     '@', VideoModes.GetDesktopVideoMode.Frequency);   WriteLn('Available video modes:');   for I := 0 to VideoModes.GetVideoModeCount - 1 do   begin     VideoMode := VideoModes.GetVideoMode(I);     WriteLn('  ', VideoMode.Width,       'x', VideoMode.Height,       'x', VideoMode.BitsPerPixel,       '@', VideoMode.Frequency);   end;   VideoModes.ChangeVideoMode(VideoModes.GetBestModeIndex(1024, 768, 32));   ReadLn;   VideoModes.RestoreVideoMode;   VideoModes.Free;   WriteLn('Press enter to exit...');   ReadLn; end.

Klasa: [Link mogu videti samo ulogovani korisnici]



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.

MyCity » Programiranje igara / 3D programiranje » Klasa za menjanje rezolucije (Delphi/Pascal)

Ko je trenutno na forumu
 

Ukupno su 956 korisnika na forumu :: 96 registrovanih, 8 sakrivenih i 852 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 19602 - dana 30 Mar 2026 00:11

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: AC-DC, amonsrb, ArmFPGA, Asparagus, bobo85, Bojan198527, bojcistv, Boroš, BORUTUS, Botovac, BOXRR, Branko Matić, Chainsaw, DeerHunter, dejan1972, dejandr, delboy, Dioniss, dradex, draganca, draganl, DziadekDzidek, FOX, Gargantua, GeoM, gomago, goxsys, GUARIN, hyla, Ivoo, jodzula, JOntra, klepesina, Kobrim, Komanca, Koser, ladro, Lazur_01, lord sir giga, Mackomen, Mamadu, Manjane, Marko00, marsi, Medojed, mercedesamg, milanpb, milenko crazy north, Mili026, mist-mist, mm1811, nenad81, nextyamb, nikoladim, nikolapetkovic, NklJov123, nobutado, Nomica, opt1, orfanel, Oscar, ostoja, Parker, pavle_pzs, PenzosGSP, Pilipenda, PlayerOne, Povratak1912, proka89, Promising0, rakivan, RileHerc, Robin, S-lash, S2M, saputnik plavetnila, Sass Drake, Sawages, shaja1, singa, snikolic, sslay, stegonosa, styg, tamno.nebo, tooooom, Tragač, troki1971, trpche, Username1000, vidra1, wize, Zastava, zeka013, Zmaj Tolak, zubri