home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / SVGABGI3.ZIP / INITSVGA.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-08-25  |  2.4 KB  |  103 lines
  1. { Sample program that initializes the SuperVGA driver}
  2. Program Test256;
  3.  
  4. Uses Graph,Crt,Dos;
  5.  
  6. {$i svga16.inc}
  7. {$i svga256.inc}
  8.  
  9. var
  10.   GraphMode, GraphDriver : integer;
  11.   Ky : Char;
  12.   Drv : Integer;
  13.  
  14. {$F+}
  15. function DetectVGA256 : Integer;
  16. var Vid : Integer;
  17.  
  18. begin
  19.   Writeln('Which video mode would you like to use?');
  20.   Writeln('  0) 320x200x256');
  21.   Writeln('  1) 640x400x256');
  22.   Writeln('  2) 640x480x256');
  23.   Writeln('  3) 800x600x256');
  24.   Writeln('  4) 1024x768x256');
  25.   Write('> ');
  26.   Readln(Vid);
  27.   DetectVGA256 := Vid;
  28. end;
  29.  
  30. function DetectVGA16 : Integer;
  31. var Vid : Integer;
  32.  
  33. begin
  34.   Writeln('Which video mode would you like to use? ');
  35.   Writeln('  0) 320x200x16');
  36.   Writeln('  1) 640x200x16');
  37.   Writeln('  2) 640x350x16');
  38.   Writeln('  3) 640x480x256');
  39.   Writeln('  4) 800x600x16');
  40.   Writeln('  5) 1024x768x16');
  41.   Writeln('>');
  42.   Readln(Vid);
  43.   DetectVGA16 := Vid;
  44. end;
  45.  
  46. function DetectTwk256 : Integer;
  47. var Vid : Integer;
  48.  
  49. begin
  50.   Writeln('Which video mode would you like to use?');
  51.   Writeln('  0) 320x400x256');
  52.   Writeln('  1) 320x480x256');
  53.   Writeln('  2) 360x480x256');
  54.   Writeln('  3) 376x564x256');
  55.   Writeln('  4) 400x564x256');
  56.   Writeln('  5) 400x600x256');
  57.   Write('> ');
  58.   Readln(Vid);
  59.   DetectTwk256 := Vid;
  60. end;
  61.  
  62. function DetectTwk16 : Integer;
  63. var Vid : Integer;
  64.  
  65. begin
  66.   Writeln('Which video mode would you like to use? ');
  67.   Writeln('  0) 704x528x16');
  68.   Writeln('  1) 720x540x16');
  69.   Writeln('  2) 736x552x16');
  70.   Writeln('  3) 752x564x256');
  71.   Writeln('  4) 768x576x16');
  72.   Writeln('  5) 784x588x16');
  73.   Writeln('  6) 800x600x16');
  74.   Writeln('>');
  75.   Readln(Vid);
  76.   DetectTwk16 := Vid;
  77. end;
  78. {$F-}
  79.  
  80. begin
  81.   Writeln('Which driver would you like to use?');
  82.   Writeln('  0) Svga256');
  83.   Writeln('  1) Svga16');
  84.   Writeln('  2) Tweak256');
  85.   Writeln('  3) Tweak16');
  86.   Write('>');
  87.   Readln(Drv);
  88.   if (Drv = 0) then
  89.     GraphDriver := InstallUserDriver('SVGA256',@DetectVGA256)
  90.   else if (Drv = 1)
  91.     GraphDriver := InstallUserDriver('SVGA16',@DetectVGA16)
  92.   else if (Drv = 2)
  93.     GraphDriver := InstallUserDriver('Twk256',@DetectTwk256)
  94.   else if (Drv = 3)
  95.     GraphDriver := InstallUserDriver('Twk16',@DetectTwk16);
  96.   GraphDriver := Detect;
  97.   InitGraph(GraphDriver,GraphMode,'');
  98.   setcolor(15);
  99.   line(0,0,GetMaxX,GetMaxY);
  100.   line(0,GetMaxY,GetMaxX,0);
  101.   Ky := ReadKey;
  102.   CloseGraph;
  103. end.