home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / vpbgib1.zip / BGIMSG.PAS < prev    next >
Pascal/Delphi Source File  |  1996-08-08  |  1KB  |  46 lines
  1. {█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█}
  2. {█                                                       █}
  3. {█      Virtual Pascal Run-time Library v1.1             █}
  4. {█      BGI Graphics messages definitions                █}
  5. {█      ─────────────────────────────────────────────────█}
  6. {█      Copyright (C) 1996 fPrint UK Ltd                 █}
  7. {█                                                       █}
  8. {▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀}
  9.  
  10. Unit BGIMsg;
  11.  
  12. interface
  13.  
  14. uses
  15.   Use32;
  16.  
  17. const
  18.   MaxDisp = 4100;
  19.   MaxPts  = 1024;
  20.   MaxPar  = 4092;
  21.   BGIPipeName : String = '\PIPE\BGIPISRV';
  22.  
  23. type
  24.   PointType = record x,y:integer end;
  25.   PolyT  = array [1..maxpts] of PointType;
  26.   CommandListT = record
  27.                    case byte of
  28.                      0: (w: array [0..MaxPar] of word);
  29.                      1: (i: array [0..MaxPar] of integer);
  30.                      2: (p: array [0..1] of word;s: String);
  31.                      3: (nr: word;pts: PolyT);
  32.                      4: (i1,i2,i3,i4,i5,i6:integer);
  33.                      5: (w1,w2,w3,w4,w5,w6:word);
  34.                      6: (x1,y1,x2,y2:integer);
  35.                    end;
  36.   DisplayListT = record
  37.                    case boolean of
  38.                      true: (w: array [0..MaxDisp] of word);
  39.                      false:(i: array [0..MaxDisp] of integer);
  40.                    end;
  41.   BGIResArT = array [0..256] of word;
  42.  
  43. implementation
  44.  
  45. end.
  46.