home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / vpbgib2.zip / BGIMSG.PAS < prev    next >
Pascal/Delphi Source File  |  1996-11-02  |  2KB  |  63 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.   BGIQueueName : String = '\QUEUES\BGIPISRV';
  23.   Maxinput  = 100;
  24.   bgi_Init  = 0;    // Initialisation
  25.   bgi_key   = 1;    // Keyboard event
  26.   bgi_mPos  = 2;    // Mouse position event
  27.   bgi_mou   = 3;    // Mouse click event
  28.  
  29. type
  30.   PointType = record x,y:integer end;
  31.   PolyT  = array [1..maxpts] of PointType;
  32.   CommandListT = record
  33.                    case byte of
  34.                      0: (w: array [0..MaxPar] of word);
  35.                      1: (i: array [0..MaxPar] of integer);
  36.                      2: (p: array [0..1] of word;s: String);
  37.                      3: (nr: word;pts: PolyT);
  38.                      4: (i1,i2,i3,i4,i5,i6:integer);
  39.                      5: (w1,w2,w3,w4,w5,w6:word);
  40.                      6: (x1,y1,x2,y2:integer);
  41.                      7: (x,y:integer; Buffer:Pointer; m:Word );
  42.                    end;
  43.   DisplayListT = record
  44.                    case boolean of
  45.                      true: (w: array [0..MaxDisp] of word);
  46.                      false:(i: array [0..MaxDisp] of integer);
  47.                    end;
  48.   BGIResArT = array [0..256] of word;
  49.   pInputT = ^InputT;
  50.   InputT = record
  51.     case Byte of
  52.       0: (X,Y: Word);
  53.       1: (Ch: Char);
  54.       2: (EventType: byte; EventX, EventY: Word);
  55.     end;
  56.   pInputArrayT = ^InputArrayT;
  57.   InputArrayT = Array[0..MaxInput] of InputT;
  58.  
  59.  
  60. implementation
  61.  
  62. end.
  63.