home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware 1 2 the Maxx
/
sw_1.zip
/
sw_1
/
PROGRAM
/
PRBGI094.ZIP
/
PASCAL.ZIP
/
PDRIVERS.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1992-05-19
|
2KB
|
73 lines
unit Pdrivers;
INTERFACE
(* drivers *)
const Star_SR9 = 0;
IBM9 = 1; (* IBM GraphPrinter *)
EPSON9 = 1; (* EPSON, IBM ProPrinter *)
PANASONIC9 = 2; (* Panasonic KX-P1124 - not tested *)
IBM9c = 3; (* IBM ProPrinter (color) *)
EPSON9c = 3; (* EPSON (color) *)
EPSON24 = 4; (* 24 pins EPSON compatible printer *)
IBM24 = 5; (* 24 pins IBM compatible printer *)
EPSON24c = 6; (* 24 pins EPSON compatible color printer *)
(* not tested *)
IBM24c = 7; (* 24 pins IBM compatible color printer *)
(* not tested *)
HPPaintJet = 8; (* HP Paint Jet - not tested *)
HPLJII = 9; (* HP Laser Jet *)
(* modes for particular drivers *)
(* EPSON9 *)
const EPSON9_60x72 = 0;
const EPSON9_120x72 = 1;
const EPSON9_120x216 = 2;
const EPSON9_240x216 = 3;
(* STAR_SR9 *)
const STAR_SR9_60x72 = 0;
const STAR_SR9_120x72 = 1;
const STAR_SR9_120x144 = 2;
const STAR_SR9_240x144 = 3;
(* IBM9 *)
const IBM9_60x72 = 0;
const IBM9_120x72 = 1;
const IBM9_120x216 = 2;
const IBM9_240x216 = 3;
(* EPSON24 *)
const EPSON24_60x180 = 0;
const EPSON24_120x180 = 1;
const EPSON24_180x180 = 2;
const EPSON24_360x180 = 3;
const EPSON24_360x360 = 4;
(* IBM24 *)
const IBM24_60x180 = 0;
const IBM24_120x180 = 1;
const IBM24_180x180 = 2;
const IBM24_360x180 = 3;
(* HPPJ *)
const HPPJ_90x90 = 0;
const HPPJ_180x180 = 1;
const HPPJ_90x90c = 2;
const HPPJ_180x180c = 3;
(* HPLJII *)
const HPLJII_75x75 = 0;
const HPLJII_100x100 = 1;
const HPLJII_150x150 = 2;
const HPLJII_300x300 = 3;
Procedure PRT_LinkDriversDefinitions;
Const PRT__DriversPtr: pointer = nil;
IMPLEMENTATION
Procedure PRT_LinkDriversDefinitions;
External; {$L Drivers <-------------------------------- }
{ If you didn't compile file Drivers.asm you don't have
Drivers.Obj file. Delete or rename this file in that
case and make will take existing TPU file. }
END {unit Pdrivers}.