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 1084 korisnika na forumu :: 99 registrovanih, 10 sakrivenih i 975 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 20624 - dana 04 Apr 2026 04:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: A.R.Chafee.Jr., amaterSRB, Areal84, Aristotle2002, Arsenije, Asteker, b_z_b, bankulen, Bbbggg1979, bbrasnjo3, bojan_t, Boris.A, Boroš, boskelazo, branko87, BrcakRS, carinko, Cirkon, Clouseau, coaaco, CraniumWhite, CrazyDiablo, Dare, Deki Duga Devetka, Devil city 1989, Dimitrise93, djonsule, Dolinc, draganl, Duh sa sekirom, Dzambas, dzoni19, Flanker-G, Giskard, glados, Glavni Oružni, gregorxix, Hitri, Ice, Ilija84, ivan1973, Jecmendo, Jester, JOntra, kaskadija, kinderpingvin, king111, klepesina, Komder, komenski, Komentator, laurusri, luka35, M74AB3, MadMike, Marko00, mat, mercedesamg, Metanoja, mikhailo, milanpb, milenko crazy north, MiljanXD, MiloradKomadic, Mićko, N.e.m.a.nj.a., nelezele, nikozamela, Papadubi, pera bager, procesor, Prometeus, RajkoB, raptorsi, repac, Sami_1ali, Semberija, shiro, sickmouse, Sky diver 29, slowhand, ss10, stegonosa, stingD, styg, tecataki, Tila Painen, UAV operator, umpah-pah, uruk, vathra, vidra boy, VJ, Vlada1389, vojnik švejk, vrgudinac, zeka013, ZetaMan, zvomar