home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / tvision / gravis / gv / gvdriver.int < prev    next >
Encoding:
Text File  |  1994-05-23  |  1.1 KB  |  61 lines
  1. Unit GVDriver;
  2.  
  3.  
  4. Interface
  5.  
  6. Uses MyMouse, Gr, MyFonts, Objects, Drivers, Graph, MetaGr;
  7.  
  8.  { Mouse driver routines }
  9.  
  10.  procedure InitEvents;
  11.  procedure DoneEvents;
  12.  procedure HideMouse;
  13.  procedure ShowMouse;
  14.  procedure GetMouseEvent (var Event: TEvent);
  15.  procedure GetKeyEvent (var Event: TEvent);
  16.  procedure SetCriticalArea (var R: TRect);
  17.  procedure SetCurrentCursor (n: Integer);
  18.  
  19.  { Font routines }
  20.  
  21.  procedure InitFonts;
  22.  procedure DoneFonts;
  23.  
  24.  { Screen routines }
  25.  
  26.  procedure InitVideo;
  27.  procedure DoneVideo;
  28.  procedure SetScreenMode(Mode: Byte);
  29.  
  30.  { System error handler routines }
  31.  
  32.  function SysError (ErrorCode: Integer; Drive: Byte): Integer;
  33.  
  34.  procedure InitSysError;
  35.  procedure DoneSysError;
  36.  
  37. Const
  38.  
  39. { System error colors }
  40.  
  41.   BkCol   : Byte = Red;
  42.   TextCol1: Byte = White;
  43.   TextCol2: Byte = Yellow;
  44.  
  45. { Standard Graphics Mode }
  46.  
  47.   StdGrMode: Byte = grVGAHiStd;
  48.  
  49. { Startup VideoMode }
  50.  
  51.   StartUpMode: Byte = 0;
  52.  
  53. { Standard mouse cursor }
  54.  
  55.   mcNoCursor = -1;
  56.  
  57.   MCurStandard: Integer = mcStd;
  58.   MCurrent: Integer = mcNoCursor;
  59.  
  60. Implementation
  61.