home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / PRBGI095.ZIP / PASCAL.ZIP / PDRIVERS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-06-17  |  3.1 KB  |  89 lines
  1. unit Pdrivers;
  2.  
  3. INTERFACE
  4.  
  5.  (*   drivers  *)
  6.  
  7.  const Star_SR9   = 0;
  8.        IBM9       = 1;  (* IBM GraphPrinter,IBM ProPrinter  *)
  9.        EPSON9     = 1;     (* EPSON (graphic mode: Esc,'K'/'L'/'Y'/'Z') *)
  10.        EPSON9II   = 2;     (* EPSON (graphic mode: Esc,'*',n) *)
  11.        PANASONIC9 = 3;     (* Panasonic KX-P1124 - not tested *)
  12.        IBM9c      = 4;     (* IBM ProPrinter (color) *)
  13.        EPSON9c    = 4;     (* EPSON (color) (graphic mode: Esc,'K'/'L'/'Y'/'Z') *)
  14.        EPSON9IIc  = 5;     (* EPSON (color) (graphic mode: Esc,'*',n) *)
  15.        EPSON24    = 6;     (* 24 pins EPSON compatible printer *)
  16.        IBM24      = 7;     (* 24 pins IBM compatible printer *)
  17.        EPSON24c   = 8;     (* 24 pins EPSON compatible color printer *)
  18.                            (*  not tested *)
  19.        IBM24c     = 9;     (* 24 pins IBM compatible color printer *)
  20.                            (*  not tested *)
  21.        PaintJet   = 10;    (* Paint Jet  *)
  22.        HPPaintJet = 11;    (* HP Paint Jet *)
  23.        LaserJet   = 12;    (* Laser Jet *)
  24.        HPLJII     = 13;    (* HP Laser Jet *)
  25.  
  26.  (* modes for particular drivers *)
  27.  
  28.    (* EPSON9   *)
  29.       const  EPSON9_60x72     = 0;
  30.       const  EPSON9_120x72    = 1;
  31.       const  EPSON9_120x216   = 2;
  32.       const  EPSON9_240x216   = 3;
  33.    (* STAR_SR9    *)
  34.       const  STAR_SR9_60x72       = 0;
  35.       const  STAR_SR9_120x72      = 1;
  36.       const  STAR_SR9_120x144     = 2;
  37.       const  STAR_SR9_240x144     = 3;
  38.    (* IBM9     *)
  39.       const  IBM9_60x72       = 0;
  40.       const  IBM9_120x72      = 1;
  41.       const  IBM9_120x216     = 2;
  42.       const  IBM9_240x216     = 3;
  43.    (* EPSON24  *)
  44.       const  EPSON24_60x180    = 0;
  45.       const  EPSON24_120x180   = 1;
  46.       const  EPSON24_180x180   = 2;
  47.       const  EPSON24_360x180   = 3;
  48.       const  EPSON24_360x360   = 4;
  49.    (* IBM24    *)
  50.       const  IBM24_60x180    = 0;
  51.       const  IBM24_120x180   = 1;
  52.       const  IBM24_180x180   = 2;
  53.       const  IBM24_360x180   = 3;
  54.    (* PaintJet   *)
  55.       const  PaintJet_90x90       = 0;
  56.       const  PaintJet_180x180     = 1;
  57.       const  PaintJet_90x90c      = 2;
  58.       const  PaintJet_180x180c    = 3;
  59.    (* HPPJ   *)
  60.       const  HPPJ_90x90       = 0;
  61.       const  HPPJ_180x180     = 1;
  62.       const  HPPJ_90x90c      = 2;
  63.       const  HPPJ_180x180c    = 3;
  64.    (* LaserJet   *)
  65.       const  LaserJet_75x75      =  0;
  66.       const  LaserJet_100x100    =  1;
  67.       const  LaserJet_150x150    =  2;
  68.       const  LaserJet_300x300    =  3;
  69.    (* HPLJII   *)
  70.       const  HPLJII_75x75      =  0;
  71.       const  HPLJII_100x100    =  1;
  72.       const  HPLJII_150x150    =  2;
  73.       const  HPLJII_300x300    =  3;
  74.  
  75.  
  76.  
  77. Procedure PRT_LinkDriversDefinitions;
  78. Const PRT__DriversPtr: pointer = nil;
  79.  
  80. IMPLEMENTATION
  81.  
  82. Procedure PRT_LinkDriversDefinitions;
  83.  
  84.          External; {$L Drivers <-------------------------------- }
  85.          { If you didn't compile file Drivers.asm you don't have
  86.            DRIVERS.OBJ  file. Delete or rename this file in that
  87.            case and make will take existing TPU file. }
  88.          { ------------------------------------------------------ }
  89. END {unit Pdrivers}.