home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / das_buch / grafik / extdrv.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-09  |  1.1 KB  |  41 lines
  1. (*===================================================================*)
  2. (*                             EXTDRV.PAS                            *)
  3. (*             Bindet die erweiterten BGI-Treiber ein                *)
  4. (*===================================================================*)
  5. UNIT ExtDrv;
  6.  
  7. INTERFACE
  8.  
  9. USES
  10.   Graph, GraphErg;
  11.  
  12. PROCEDURE SVGADriverProc;
  13. PROCEDURE VEAS16DriverProc;
  14. PROCEDURE VGA256DriverProc;
  15.  
  16. IMPLEMENTATION
  17.  
  18. VAR
  19.   UserDriver : INTEGER;
  20.  
  21. PROCEDURE SVGADriverProc;    EXTERNAL; {$L SVGA.OBJ}
  22. PROCEDURE VESA16DriverProc;  EXTERNAL; {$L VESA16.OBJ}
  23. PROCEDURE VGA256DriverProc;  EXTERNAL; {$L VGA256.OBJ}
  24.  
  25. BEGIN
  26. (*
  27.  In jedem Programm darf nur ein Treiber registriert werden (eingebunden
  28.  dürfen mehr sein !!!!!
  29. *)
  30. {$IFDEF SVGA}
  31.   UserDriver := RegisterBGIDriver(@SVGADriverProc);
  32. {$ENDIF}
  33. {$IFDEF VESA16}
  34.   UserDriver := RegisterBGIDriver(@VESA16DriverProc);
  35. {$ENDIF}
  36. {$IFDEF VGA256}
  37.   UserDriver := RegisterBGIDriver(@VGA256DriverProc);
  38. {$ENDIF}
  39.  
  40. END.
  41. (*===================================================================*)