home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / tvision / gravis / gv / extgraph.int < prev    next >
Encoding:
Text File  |  1994-05-23  |  871 b   |  32 lines
  1. Unit ExtGraph;
  2.  
  3.  
  4. interface
  5.  
  6. uses Objects, VGAMem;
  7.  
  8. const SignX:Byte=30; SignY:Byte=20;
  9.  
  10. { Font Identifiers }
  11.  
  12.   ftSystem    = 0;
  13.   ftSansSerif = 1;
  14.   ftMonoSpace = 2;
  15.  
  16. { Graphics Vision graphic routines }
  17.  
  18.   Procedure RBar (var R:TRect);
  19.   Procedure RRect (var R:TRect);
  20.   Procedure OutTextP (P:TPoint; S:String);
  21.   Function GetShortCut (S: String): Char;
  22.   Procedure OutGVText (P:TPoint; S:String; Col1, Col2:Byte; Size: TPoint; Center:Boolean);
  23.   Procedure SetGVStyle (AFont: Integer);
  24.   Procedure PutGVImage (var R:TRect; Sign:Pointer; BkCol:Byte);
  25.   Procedure DrawButton (var R: TRect; Down, Small: Boolean; BkCol, FrameCol, NormCol, ShadowCol: Byte);
  26.   Procedure DrawIcon (x1, y1, n:Integer; Mode:Word);
  27.   Procedure DrawColIcon (x1, y1, n: Integer; Color: Byte);
  28.  
  29.   Procedure DrawMbIcon (x1, y1, n:Integer; Mode:Word);
  30.  
  31. implementation
  32.