ako inicializovať v Turbo Pascale 7.0 driver SVGA32k.bgi?

jarrro · Napísal **jarrro**: 10.11.2007 12:00

alebo aj iné SVGA drivery viem inicializovať EGAVGA.bgi,lebo mi to automaticky detekne,ale s týmto si neviem rady samozrejme mám svga.bgi drivery na disku ide mi o rozlíšenie 1280x1024 ak sa to dá aj nejako inak tak niečo poraďte ďakujem.

Doug · **Registrovaný:** 14.07.06 **Príspevky:** 28 **Témy:** 0

dr:=installuserdriver('svga',nil);
mo:=2;
InitGraph(dr,mo, ' ');
podla hodnoty premennej mo sa nastavi rozlisenie a farebny mod
(rovnako zmenou 'svga' sa daju pouzit ine drivery)

jarrro · Napísal autor témy **jarrro**: 10.11.2007 13:59

práve som to skúsil a nefunguje (dal som cestu k driveru)

imcold · Napísal **imcold**: 10.11.2007 21:34

15-ročný systém, generujúci kód pre dos (= beznádejne zastaralý) a rozlíšenie 1280x1024? Čo sa to chystáš robiť?

sento · Napísal **sento**: 10.11.2007 23:11

mozes sem hodit ten "svga.bgi" ...?

ten subor by mal byt v tom istom adresari, kde je aj program.
Kedze ide o prastare programovacie techniky, nepozna to adresare (ani subory), ktore su dlhsie ako 8.3 znakov, a uz vobec to nechce fungovat, ak sa v ceste nachadza medzera. Ani program by sa nemal nachadzat v takom adresari, ktory to nesplna...

jarrro · Napísal autor témy **jarrro**: 11.11.2007 8:29

Kód:

http://www.upnito.sk/download.php?file=svga.rar&dwToken=d1678a1949ffec532e8384e663cfe1a9

v archíve je zložka,v ktorej je aktuálny obsah zložky bgi a pôvodná zložka,v ktorej boli SVGA drivery. Nič špeciálne nejdem robiť,len by som sa chcel naučiť aj grafický režim pascalu a 640x480 je podľa mňa dosť malé rozlíšenie

imcold · Napísal **imcold**: 11.11.2007 9:20

No, pred 15 rokmi si toho moc na výber nemal... doporučil by som ti skôr Freepascal + nejakú modernú knižnicu pre grafiku, nie Graph - napr. SDL, wingraph.

jarrro · Napísal autor témy **jarrro**: 11.11.2007 10:47

už som to nejako rozbehal som si pozrel initvga.pas čo je v pôvodnej zložke keby to niekto potreboval,tak je to

Kód:

function DetectVGA256 : Integer;
begin
  DetectVGA256 :=6;
end;
begin
 gd:=installuserdriver('SVGA256',@detectvga256);
 gd:=detect;
 initgraph(gd,gm,'');

jarrro · Napísal autor témy **jarrro**: 11.11.2007 10:49

len teraz pre zmenu neviem zmeniť farbu pozadia nech tam dám akúkoľvek
vždy je čierna obrazovka,ale nastavenie farby čiary,vzorky idú normálne nevie niekto prečo?

jarrro · Napísal autor témy **jarrro**: 11.11.2007 15:37

dobre kašlite na to stiahol som FPC a môžem povedať,že som spokojný

ako inicializovať v Turbo Pascale 7.0 driver SVGA32k.bgi?

Podobné témy