{ This file is part of the Free Pascal run time library. Copyright (c) 2002 by Yuri Prokushev (prokushev@freemail.ru). OS/2 Presentation Manager Device Context constants, types and function declarations See the file COPYING.FPC, included in this distribution, for details about the copyright. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. **********************************************************************} {Warning: This code is alfa. Future versions of this unit might not be compatible.} unit pmdev; interface uses os2def; //General DEV return values const DEV_ERROR =0; DEV_OK =1; //DC type for DevOpenDC OD_QUEUED =2; OD_DIRECT =5; OD_INFO =6; OD_METAFILE =7; OD_MEMORY =8; OD_METAFILE_NOQUERY =9; //codes for DevQueryCaps CAPS_FAMILY =0; CAPS_IO_CAPS =1; CAPS_TECHNOLOGY =2; CAPS_DRIVER_VERSION =3; CAPS_WIDTH =4; //pels CAPS_HEIGHT =5; //pels CAPS_WIDTH_IN_CHARS =6; CAPS_HEIGHT_IN_CHARS =7; CAPS_HORIZONTAL_RESOLUTION =8; //pels per meter CAPS_VERTICAL_RESOLUTION =9; //pels per meter CAPS_CHAR_WIDTH =10; //pels CAPS_CHAR_HEIGHT =11; //pels CAPS_SMALL_CHAR_WIDTH =12; //pels CAPS_SMALL_CHAR_HEIGHT =13; //pels CAPS_COLORS =14; CAPS_COLOR_PLANES =15; CAPS_COLOR_BITCOUNT =16; CAPS_COLOR_TABLE_SUPPORT =17; CAPS_MOUSE_BUTTONS =18; CAPS_FOREGROUND_MIX_SUPPORT =19; CAPS_BACKGROUND_MIX_SUPPORT =20; CAPS_DEVICE_WINDOWING =31; CAPS_ADDITIONAL_GRAPHICS =32; CAPS_VIO_LOADABLE_FONTS =21; CAPS_WINDOW_BYTE_ALIGNMENT =22; CAPS_BITMAP_FORMATS =23; CAPS_RASTER_CAPS =24; CAPS_MARKER_HEIGHT =25; //pels CAPS_MARKER_WIDTH =26; //pels CAPS_DEVICE_FONTS =27; CAPS_GRAPHICS_SUBSET =28; CAPS_GRAPHICS_VERSION =29; CAPS_GRAPHICS_VECTOR_SUBSET =30; CAPS_PHYS_COLORS =33; CAPS_COLOR_INDEX =34; CAPS_GRAPHICS_CHAR_WIDTH =35; CAPS_GRAPHICS_CHAR_HEIGHT =36; CAPS_HORIZONTAL_FONT_RES =37; CAPS_VERTICAL_FONT_RES =38; CAPS_DEVICE_FONT_SIM =39; CAPS_LINEWIDTH_THICK =40; CAPS_DEVICE_POLYSET_POINTS =41; //Constants for CAPS_IO_CAPS CAPS_IO_DUMMY =1; CAPS_IO_SUPPORTS_OP =2; CAPS_IO_SUPPORTS_IP =3; CAPS_IO_SUPPORTS_IO =4; //Constants for CAPS_TECHNOLOGY CAPS_TECH_UNKNOWN =0; CAPS_TECH_VECTOR_PLOTTER =1; CAPS_TECH_RASTER_DISPLAY =2; CAPS_TECH_RASTER_PRINTER =3; CAPS_TECH_RASTER_CAMERA =4; CAPS_TECH_POSTSCRIPT =5; //Constants for CAPS_COLOR_TABLE_SUPPORT CAPS_COLTABL_RGB_8 =1; CAPS_COLTABL_RGB_8_PLUS =2; CAPS_COLTABL_TRUE_MIX =4; CAPS_COLTABL_REALIZE =8; //Constants for CAPS_FOREGROUND_MIX_SUPPORT CAPS_FM_OR =1; CAPS_FM_OVERPAINT =2; CAPS_FM_XOR =8; CAPS_FM_LEAVEALONE =16; CAPS_FM_AND =32; CAPS_FM_GENERAL_BOOLEAN =64; //Constants for CAPS_BACKGROUND_MIX_SUPPORT CAPS_BM_OR =1; CAPS_BM_OVERPAINT =2; CAPS_BM_XOR =8; CAPS_BM_LEAVEALONE =16; CAPS_BM_AND =32; CAPS_BM_GENERAL_BOOLEAN =64; CAPS_BM_SRCTRANSPARENT =128; CAPS_BM_DESTTRANSPARENT =256; //Constants for CAPS_DEVICE_WINDOWING CAPS_DEV_WINDOWING_SUPPORT =1; //Constants for CAPS_ADDITIONAL_GRAPHICS CAPS_VDD_DDB_TRANSFER =1; CAPS_GRAPHICS_KERNING_SUPPORT =2; CAPS_FONT_OUTLINE_DEFAULT =4; CAPS_FONT_IMAGE_DEFAULT =8; //bits represented by values 16L and 32L are reserved CAPS_SCALED_DEFAULT_MARKERS =64; CAPS_COLOR_CURSOR_SUPPORT =128; CAPS_PALETTE_MANAGER =256; CAPS_COSMETIC_WIDELINE_SUPPORT =512; CAPS_DIRECT_FILL =1024; CAPS_REBUILD_FILLS =2048; CAPS_CLIP_FILLS =$00001000; //4096L CAPS_ENHANCED_FONTMETRICS =$00002000; //8192L CAPS_TRANSFORM_SUPPORT =$00004000; //16384L //Constants for CAPS_WINDOW_BYTE_ALIGNMENT CAPS_BYTE_ALIGN_REQUIRED =0; CAPS_BYTE_ALIGN_RECOMMENDED =1; CAPS_BYTE_ALIGN_NOT_REQUIRED =2; //Constants for CAPS_RASTER_CAPS CAPS_RASTER_BITBLT =1; CAPS_RASTER_BANDING =2; CAPS_RASTER_BITBLT_SCALING =4; CAPS_RASTER_SET_PEL =16; CAPS_RASTER_FONTS =32; CAPS_RASTER_FLOOD_FILL =64; //structures for DEVESC_QUERYVIOCELLSIZES type PVioSizeCount=^VioSizeCount; VioSizeCount=record maxcount: Longint; count: Longint; end; PVioFontCellSize=^VioFontCellSize; VioFontCellSize=record cx: Longint; cy: Longint; end; //structure for DEVESC_GETSCALINGFACTOR PSFactors=^SFactors; SFactors=record x: Longint; y: Longint; end; //structure for DEVESC_NEXTBAND PBandRect=^BandRect; BandRect=record xleft: Longint; ybottom: Longint; xright: Longint; ytop: Longint; end; //return codes for DevEscape const DEVESC_ERROR =-1; DEVESC_NOTIMPLEMENTED =0; //codes for DevEscape DEVESC_QUERYESCSUPPORT = 0; DEVESC_GETSCALINGFACTOR = 1; DEVESC_QUERYVIOCELLSIZES = 2; DEVESC_GETCP =8000; DEVESC_STARTDOC =8150; DEVESC_ENDDOC =8151; DEVESC_NEXTBAND =8152; DEVESC_ABORTDOC =8153; DEVESC_NEWFRAME =16300; DEVESC_DRAFTMODE =16301; DEVESC_FLUSHOUTPUT =16302; DEVESC_RAWDATA =16303; DEVESC_SETMODE =16304; DEVESC_DBE_FIRST =24450; DEVESC_DBE_LAST =24455; //DevEscape codes for adding extra space to character strings DEVESC_CHAR_EXTRA =16998; DEVESC_BREAK_EXTRA =16999; //codes for DevEscape PM_Q_ESC spool files DEVESC_STD_JOURNAL =32600; //structure for DEVESC_SETMODE type PEscMode=^EscMode; EscMode=record mode: cardinal; modedata: byte; end; //return codes for DevPostDeviceModes const DPDM_ERROR =-1; DPDM_NONE =0; //codes for DevPostDeviceModes DPDM_POSTJOBPROP =0; DPDM_CHANGEPROP =1; DPDM_QUERYJOBPROP =2; //string types for DevQueryDeviceNames type Str16= string [15]; Str32= string [31]; Str64= string [63]; //return code for DevQueryHardcopyCaps const DQHC_ERROR =-1; //codes for DevQueryHardcopyCaps const HCAPS_CURRENT =1; HCAPS_SELECTABLE =2; //structure for DevQueryHardcopyCaps type PHCInfo=^HCInfo; HCInfo=record szFormname: Str32; cx: Longint; cy: Longint; xLeftClip: Longint; yBottomClip: Longint; xRightClip: Longint; yTopClip: Longint; xPels: Longint; yPels: Longint; flAttributes: Longint; end; { ----------------------------------------------------------------- Tuple Item used for QUERYSIZE } { djpQRT } { I - Property } { I - type (DJP_ALL or DJP_CURRENT) } { } type TdjpQueryTuple = record ulProperty : Cardinal; lType : Longint; end; TQUERYTUPLE = TdjpQueryTuple; TPQUERYTUPLE = ^TdjpQueryTuple; { ----------------------------------------------------------------- Query Size Structure for DEVESC_QUERYSIZE } { djpQRS } { I - Size of entire structure } { O - Size returned; } { I - Start of tuple list } { use DJP_NONE for end of list } TdjpQuerySize = record cb : Cardinal; ulSizeNeeded : Cardinal; aTuples : array[0..0] of TQUERYTUPLE; end; TQUERYSIZE = TdjpQuerySize; TPQUERYSIZE = ^TdjpQuerySize; { was #define dname def_expr } // function QUERYSIZE_HEADER_SIZE : longint; { return type might be wrong } { ----------------------------------------------------------------- Dynamic Job Property Item } { djpITM } { I/O - sizeof DJP_ITEM structure } { I - Which property } { I/O - DJP_ALL or DJP_CURRENT. } { DJP_ERROR_XXX if error. } { O - How many elements have been } { returned } { O - Variably sized based on } { ulProperty. The smallest } { is a ULONG in size } type TdjpItem = record cb : Cardinal; ulProperty : Cardinal; lType : Longint; ulNumReturned : Cardinal; ulValue : Cardinal; end; TDJP_ITEM = TdjpItem; TPDJP_ITEM = ^TdjpItem; { was #define dname def_expr } // function DJP_HEADER_SIZE : longint; { return type might be wrong } { was #define dname(params) para_def_expr } { argument types are unknown } // function DJP_NEXT_STRUCTP(p : longint) : TPDJP_ITEM; { was #define dname(params) para_def_expr } { argument types are unknown } // function DJP_ELEMENTP(s,t : longint) : ^Tt; (* error #define DJP_SET_ELEMENT(s,t,e) ( *DJP_ELEMENTP (s,t) = (e)) in define line 83 *) { ----------------------------------------------------------------- Types of Dynamic Job Properties To see if the driver is enabled use, DevEscape (DEVESC_QUERYESCSUPPORT, DEVESC_STARTDOC_WPROP, ...) and DevQueryDevice (DEVQRY_QUERYSUPPORT, DEVESC_QUERYJOBPROPERTIES, ...) NOTE: The C/S in the defines indicate the complexity or size of the information. If it is s, then the size is ULONG sized and no special processing for the next element needs to be done. The J/P in the defines indicate the class. J stands for job properties and P stands for printer properties. } { also End Of List marker } const DJP_NONE = 0; DJP_SJ_ORIENTATION = 1; DJP_CJ_RESOLUTION = 2; DJP_SJ_BITSPERPEL = 3; DJP_SJ_COLOR = 4; DJP_SJ_PRINTQUALITY = 5; DJP_SJ_PAPERSIZE = 6; DJP_SJ_TRAYTYPE = 7; DJP_SJ_MEDIA = 8; DJP_SJ_MEDIA_COLOR = 9; DJP_CJ_FORM = 10; DJP_CJ_MIXEDFORMS = 11; DJP_SJ_FONTDOWNLOADING = 12; DJP_SJ_DUPLEX = 13; DJP_SJ_COLLATE = 14; DJP_SJ_FEED = 15; DJP_SJ_COPIES = 16; DJP_SJ_SCALING = 17; DJP_SJ_FORMFEEDCONTROL = 18; DJP_SJ_N_UP = 19; DJP_CJ_OUTPUTBIN = 20; DJP_CJ_TRAYNAME = 21; { Types for DEVESC_QUERYJOBPROPERTIES / DEVESC_SETJOBPROPERTIES } { enumerate the property } DJP_ALL = 1; { from job properties } DJP_CURRENT = 2; { Errors for DEVESC_QUERYJOBPROPERTIES / DEVESC_SETJOBPROPERTIES } { driver doesnt support that property } DJP_ERROR_NOT_SUPPORTED = -(1); { not in the valid range } DJP_ERROR_OUT_OF_RANGE = -(2); { not enumerateable } DJP_ERROR_NOT_ENUM = -(3); { field not proper value } DJP_ERROR_INV_PARMS = -(4); { ----------------------------------------------------------------- DJP_SJ_ORIENTATION } DJP_ORI_PORTRAIT = 1; DJP_ORI_LANDSCAPE = 2; DJP_ORI_REV_PORTRAIT = 3; DJP_ORI_REV_LANDSCAPE = 4; type TDJPT_ORIENTATION = Cardinal; TPDJPT_ORIENTATION = Cardinal; { ----------------------------------------------------------------- DJP_CJ_RESOLUTION } { djpRES } { X resolution (in dots per inch) } { Y resolution (in dots per inch) } TdjpResolution = record usXResolution : Word; usYResolution : Word; end; TDJPT_RESOLUTION = TdjpResolution; TPDJPT_RESOLUTION = ^TdjpResolution; { ----------------------------------------------------------------- DJP_SJ_BITSPERPEL } TDJPT_BITSPERPEL = Cardinal; TPDJPT_BITSPERPEL = Cardinal; { ----------------------------------------------------------------- DJP_SJ_COLOR } const DJP_CLR_MONOCHROME = 1; DJP_CLR_COLOR = 2; type TDJPT_COLOR = Cardinal; TPDJPT_COLOR = Cardinal; { ----------------------------------------------------------------- DJP_SJ_PRINTQUALITY Note: DJP_PQL_DRAFT is the worst quality. In the future, there may be better qualities (such as DJP_PQL_ULTRA_HIGH) which will be numerically greater than DJP_PQL_HIGH. } const DJP_PQL_DRAFT = 1; DJP_PQL_LOW = 2; DJP_PQL_MEDIUM = 3; DJP_PQL_HIGH = 4; DJP_PQL_LAST = DJP_PQL_HIGH; type TDJPT_PRINTQUALITY = Cardinal; TPDJPT_PRINTQUALITY = Cardinal; { ----------------------------------------------------------------- DJP_SJ_PAPERSIZE Note: it is recommended to use DJP_CJ_FORM to chage the papersize. approximate size } { inches millimeters } const DJP_PSI_NONE = 0; { 8.5 x 11 216 x 279 } DJP_PSI_LETTER = 1; { 8.5 x 14 216 x 356 } DJP_PSI_LEGAL = 2; { 13.58 x 11 345 x 279 } DJP_PSI_WIDE = 3; { 17 x 22 431 x 558 } DJP_PSI_CSHEET = 4; { 22 x 34 558 x 863 } DJP_PSI_DSHEET = 5; { 34 x 44 863 x 1117 } DJP_PSI_ESHEET = 6; { } DJP_PSI_LETTERSMALL = 7; { 11 x 17 279 x 431 } DJP_PSI_TABLOID = 8; { 17 x 11 431 x 279 } DJP_PSI_LEDGER = 9; { 5.5 x 8.5 139 x 216 } DJP_PSI_STATEMENT = 10; { 7.25 x 10.5 184 x 266 } DJP_PSI_EXECUTIVE = 11; { 33.11 x 46.81 841 x 1189 } DJP_PSI_A0 = 12; { 23.39 x 33.11 594 x 841 } DJP_PSI_A1 = 13; { 16.54 x 23.39 420 x 594 } DJP_PSI_A2 = 14; { 11.7 x 16.54 297 x 420 } DJP_PSI_A3 = 15; { 8.3 x 11.7 210 x 297 } DJP_PSI_A4 = 16; { } DJP_PSI_A4_SMALL = 17; { 5.83 x 8.27 148 x 210 } DJP_PSI_A5 = 18; { 9.84 x 13.94 250 x 354 } DJP_PSI_B4 = 19; { 7.17 x 10.12 182 x 257 } DJP_PSI_B5 = 20; { 8.5 x 13 216 x 330 } DJP_PSI_FOLIO = 21; { 8.46 x 10.83 215 x 275 } DJP_PSI_QUATRO = 22; { 10 x 14 254 x 355 } DJP_PSI_10X14 = 23; { 11 x 17 279 x 431 } DJP_PSI_11X17 = 24; { } DJP_PSI_NOTE = 25; { } DJP_PSI_ENV_9 = 26; { } DJP_PSI_ENV_10 = 27; { } DJP_PSI_ENV_11 = 28; { } DJP_PSI_ENV_12 = 29; { } DJP_PSI_ENV_14 = 30; { } DJP_PSI_ENV_DL = 31; { } DJP_PSI_ENV_A2 = 32; { } DJP_PSI_ENV_C3 = 33; { } DJP_PSI_ENV_C4 = 34; { } DJP_PSI_ENV_C5 = 35; { } DJP_PSI_ENV_C6 = 36; { } DJP_PSI_ENV_C65 = 37; { } DJP_PSI_ENV_C9 = 38; { } DJP_PSI_ENV_C10 = 39; { } DJP_PSI_ENV_B4 = 40; { } DJP_PSI_ENV_B5 = 41; { } DJP_PSI_ENV_B6 = 42; { } DJP_PSI_ENV_ITALY = 43; { } DJP_PSI_ENV_MONARCH = 44; { } DJP_PSI_ENV_PERSONAL = 45; { } DJP_PSI_FANFOLD_US = 46; { } DJP_PSI_FANFOLD_STD_GERMAN = 47; { } DJP_PSI_FANFOLD_LGL_GERMAN = 48; { } DJP_PSI_ARCHITECT_BSHEET = 49; { } DJP_PSI_ARCHITECT_CSHEET = 50; { } DJP_PSI_ARCHITECT_DSHEET = 51; { } DJP_PSI_ARCHITECT_ESHEET = 52; { } DJP_PSI_CARD_A6 = 53; { } DJP_PSI_CARD_4X6 = 54; { } DJP_PSI_CARD_5X8 = 55; { } DJP_PSI_CARD_HAGAKI = 56; { 1.10 x 3.50 28 x 89 } DJP_PSI_LABEL_STANDARD = 57; { 3.98 x 2.13 101 x 54 } DJP_PSI_LABEL_SHIPPING = 58; { 2.76 x 2.13 70 x 54 } DJP_PSI_LABEL_DISK = 59; { 3.50 x 1.42 89 x 36 } DJP_PSI_LABEL_EURO = 60; { } DJP_PSI_CARD_OUFUKU_HAGAKI = 61; { } DJP_PSI_B0 = 62; { } DJP_PSI_B1 = 63; { } DJP_PSI_B2 = 64; { } DJP_PSI_B3 = 65; { } DJP_PSI_B6 = 66; { } DJP_PSI_B7 = 67; { } DJP_PSI_B8 = 68; { } DJP_PSI_B9 = 69; { } DJP_PSI_B10 = 70; { } DJP_PSI_B0_JIS = 71; { } DJP_PSI_B1_JIS = 72; { } DJP_PSI_B2_JIS = 73; { } DJP_PSI_B3_JIS = 74; { } DJP_PSI_B4_JIS = 75; { } DJP_PSI_B5_JIS = 76; { } DJP_PSI_B6_JIS = 77; { } DJP_PSI_B7_JIS = 78; { } DJP_PSI_B8_JIS = 79; { } DJP_PSI_B9_JIS = 80; { } DJP_PSI_B10_JIS = 81; DJP_PSI_LAST = DJP_PSI_B10_JIS; type TDJPT_PAPERSIZE = Longint; TPDJPT_PAPERSIZE = Longint; { ----------------------------------------------------------------- DJP_SJ_TRAYTYPE Note: it is recommended to use DJP_CJ_FORM to chage the tray type. } const DJP_TRY_NONE = 0; DJP_TRY_UPPER = 1; DJP_TRY_ONLYONE = DJP_TRY_UPPER; DJP_TRY_LOWER = 2; DJP_TRY_MIDDLE = 3; DJP_TRY_MANUAL = 4; DJP_TRY_ENVELOPE = 5; DJP_TRY_ENVMANUAL = 6; DJP_TRY_AUTO = 7; DJP_TRY_TRACTOR = 8; DJP_TRY_SMALLFMT = 9; DJP_TRY_LARGEFMT = 10; DJP_TRY_LARGECAPACITY = 11; DJP_TRY_CASSETTE = 12; DJP_TRY_LAST = DJP_TRY_CASSETTE; type TDJPT_TRAYTYPE = Cardinal; TPDJPT_TRAYTYPE = Cardinal; { ----------------------------------------------------------------- DJP_SJ_MEDIA Note: it is recommended to use DJP_CJ_FORM to chage the media type. } const DJP_MED_NONE = 0; DJP_MED_PLAIN = 1; DJP_MED_TRANSPARENCY = 2; DJP_MED_GLOSSY = 3; DJP_MED_SPECIAL = 4; DJP_MED_COATED = 5; DJP_MED_BACKPRINT = 6; DJP_MED_CLOTH = 7; DJP_MED_THICK = 8; DJP_MED_STATIONARY = 9; DJP_MED_ENVELOPE = 10; DJP_MED_CONTINUOUS_LONG = 11; DJP_MED_CONTINUOUS_SHORT = 12; DJP_MED_TAB_STOCK = 13; DJP_MED_MULTI_PART_FORM = 14; DJP_MED_LABELS = 15; DJP_MED_LAST = DJP_MED_LABELS; type TDJPT_MEDIA = Cardinal; TPDJPT_MEDIA = Cardinal; { ----------------------------------------------------------------- DJP_SJ_MEDIA_COLOR Select the media color (for the same media types). } const DJP_MDC_BLUE = 1; DJP_MDC_BLUFF = 2; DJP_MDC_GOLDENROD = 3; DJP_MDC_GREEN = 4; DJP_MDC_PINK = 5; DJP_MDC_TRANSPARENT = 6; DJP_MDC_WHITE = 7; DJP_MDC_YELLOW = 8; DJP_MDC_LAST = DJP_MDC_YELLOW; type TDJPT_MEDIA_COLOR = Cardinal; TPDJPT_MEDIA_COLOR = Cardinal; { ----------------------------------------------------------------- DJP_CJ_FORM Setting will match all three fields. If szTrayname or szMedianame is null then it will be defaulted to the first one found. Querying will return all fields filled in. } { djpFRM } { System Form name } { System Tray name } { System Media name } { v-= Informational only =-v } { Corresponding hard copy info } { Display Form name (translated) } { Display Tray name (translated) } { Display Media name (translated) } { Simple form id (if not DJP_NONE) } { Simple tray id (if not DJP_NONE) } { Simple media id (if not DJP_NONE) } TdjpForm = record szFormname : Str32; szTrayname : Str32; szMedianame : Str32; ahcInfo : HCINFO; szDisplayFormname : Str64; szDisplayTrayname : Str64; szDisplayMedianame : Str64; djppsFormID : TDJPT_PAPERSIZE; djpttTrayID : TDJPT_TRAYTYPE; djpmdMediaID : TDJPT_MEDIA; end; TDJPT_FORM = TdjpForm; TPDJPT_FORM = ^TdjpForm; { ----------------------------------------------------------------- DJP_CJ_MIXEDFORMS This is unique in that both setting and querying can have multiple elements. Both the first page and the last page are DJP_MXF_INFINITY (which is the separator for individual elements). Some examples are: - Only one form (form1) for the entire job. (DJP_MXF_INFINITY, DJP_MXF_INFINITY, form1) - Page 1 has form1, then pages 2 ... n have form2. (DJP_MXF_INFINITY, 1, form1) (2, DJP_MXF_INFINITY, form2) - Even pages have form1 and odd pages have form2 (DJP_MXF_INFINITY, DJP_MXF_ODD, form1) (DJP_MXF_EVEN, DJP_MXF_INFINITY, form2) or (DJP_MXF_INFINITY, DJP_MXF_EVEN, form2) (DJP_MXF_ODD, DJP_MXF_INFINITY, form1) - First page has form1, even pages have form2 and odd pages have form3 (DJP_MXF_INFINITY, 1, form1) (DJP_MXF_ODD, DJP_MXF_ODD, form1) (DJP_MXF_EVEN, DJP_MXF_INFINITY, form2) or (DJP_MXF_INFINITY, 1, form1) (DJP_MXF_EVEN, DJP_MXF_EVEN, form2) (DJP_MXF_ODD, DJP_MXF_INFINITY, form1) } const DJP_MXF_INFINITY = -(1); DJP_MXF_ODD = -(2); DJP_MXF_EVEN = -(3); { djpMXF } { Starting page number } { Ending page number } { Form associated with the range } type TdjpMixedForms = record lStartRange : Longint; lEndRange : Longint; djpfmForm : TDJPT_FORM; end; TDJPT_MIXEDFORMS = TdjpMixedForms; TPDJPT_MIXEDFORMS = ^TdjpMixedForms; { ----------------------------------------------------------------- DJP_SJ_FONTDOWNLOADING } { Device does not support downloading } const DJP_FDL_NONE = 0; { Download fonts to printer } DJP_FDL_DOWNLOAD = 1; { Rasterize fonts } DJP_FDL_BITMAP = 2; { Substitute device fonts for system } DJP_FDL_SUBSTITUTE = 3; type TDJPT_FONTDOWNLOADING = Cardinal; TPDJPT_FONTDOWNLOADING = Cardinal; { ----------------------------------------------------------------- DJP_SJ_DUPLEX } { Device does not support duplex } const DJP_DUP_NONE = 0; { Duplex is turned off } DJP_DUP_OFF = 1; DJP_DUP_BOOK = 2; DJP_DUP_FLIP = 3; type TDJPT_DUPLEX = Cardinal; TPDJPT_DUPLEX = Cardinal; { ----------------------------------------------------------------- DJP_SJ_COLLATE } { Device does not support collation } const DJP_COL_NONE = 0; DJP_COL_OFF = 1; DJP_COL_ON = 2; { more for printer dialogs than } DJP_COL_PRINTER_SETTING = 3; { programmatic control. Use } { the setting on the printer panel. } type TDJPT_COLLATE = Cardinal; TPDJPT_COLLATE = Cardinal; { ----------------------------------------------------------------- DJP_SJ_FEED } const DJP_FED_MANUAL = 1; DJP_FED_AUTOMATIC = 2; type TDJPT_FEED = Cardinal; TPDJPT_FEED = Cardinal; { ----------------------------------------------------------------- DJP_SJ_COPIES This is the number of copies on a per page basis. This is not enumerateable. } TDJPT_COPIES = Cardinal; TPDJPT_COPIES = Cardinal; { ----------------------------------------------------------------- DJP_SJ_SCALING This is a percentage value. This is not enumerateable. } TDJPT_SCALING = Longint; TPDJPT_SCALING = Longint; { ----------------------------------------------------------------- DJP_SJ_FORMFEEDCONTROL This is a property that effects raw data jobs (print from the command line, DOS print jobs, Windows print jobs). This checks the very last byte of the data stream to see if it is a form feed control character. } { Never add } const DJP_FFC_NONE = 1; { Add if not seen } DJP_FFC_CONDITIONAL = 2; { Always add } DJP_FFC_COMPULSORY = 3; type TDJPT_FORMFEEDCONTROL = Cardinal; TPDJPT_FORMFEEDCONTROL = Cardinal; { ----------------------------------------------------------------- DJP_SJ_N_UP Number of logical pages per physical page (ex: 2-up, 4-up) } TDJPT_NUP = Longint; TPDJPT_NUP = Longint; { ----------------------------------------------------------------- DJP_CJ_OUTPUTBIN Setting will only use szBinname. Querying will return all fields filled in. } { djpOBN } { System Bin name } { v-= Informational only =-v } { Display Bin name (translated) } { Bin id # (-1 for no id) } TdjpOutputBin = record szBinname : Str32; szDisplayBinname : Str64; lBinId : Longint; end; TDJPT_OUTPUTBIN = TdjpOutputBin; TPDJPT_OUTPUTBIN = ^TdjpOutputBin; { ----------------------------------------------------------------- DJP_CJ_TRAYNAME Setting will match only szTrayname. The perfered way to set which tray to use is DJP_CJ_FORM. Otherwise, you are not guaranteed a unique match for all three form, tray, and media possibilities. Querying will return all fields filled in. } { djpTry } { System Tray name } { v-= Informational only =-v } { Display Tray name (translated) } { Simple tray id (if not DJP_NONE) } TdjpInputTray = record szTrayname : Str32; szDisplayTrayname : Str64; djpttTrayID : TDJPT_TRAYTYPE; end; TDJPT_TRAYNAME = TdjpInputTray; TPDJPT_TRAYNAME = ^TdjpInputTray; function DevOpenDC(ahab: HAB; lType: Longint; pszToken: PChar; lCount: Longint; var pdopData: DevOpenStruc; hdcComp: cardinal): cardinal; cdecl; function DevCloseDC(ahdc: cardinal): cardinal; cdecl; function DevEscape(ahdc: cardinal; lCode, lInCount: Longint; var pbInData; var plOutCount: Longint; var pbOutData): Longint; cdecl; function DevQueryCaps(ahdc: cardinal; lStart, lCount: Longint; var alArray: Longint): Longbool; cdecl; function DevQueryDeviceNames(ahab: HAB; pszDriverName: PChar; var pldn: Longint; aDeviceName: Str32; aDeviceDesc: Str64; var pldt: Longint; aDataType: Str16): Longbool; cdecl; function DevQueryHardcopyCaps(ahdc: cardinal; lStartForm, lForms: Longint; var phciHcInfo: HCInfo): Longint; cdecl; function DevPostDeviceModes(ahab: HAB; var pdrivDriverData: DrivData; pszDriverName, pszDeviceName, pszName: PChar; flOptions: cardinal): Longint; cdecl; implementation function DevOpenDC(ahab: HAB; lType: Longint; pszToken: PChar; lCount: Longint; var pdopData: DevOpenStruc; hdcComp: cardinal): cardinal; cdecl; external 'PMGPI' index 610; function DevCloseDC(ahdc: cardinal): cardinal; cdecl; external 'PMGPI' index 604; function DevEscape(ahdc: cardinal; lCode, lInCount: Longint; var pbInData; var plOutCount: Longint; var pbOutData): Longint; cdecl; external 'PMGPI' index 605; function DevQueryCaps(ahdc: cardinal; lStart, lCount: Longint;var alArray: Longint): Longbool; cdecl; external 'PMGPI' index 606; function DevQueryDeviceNames(ahab: HAB; pszDriverName: PChar; var pldn: Longint; aDeviceName: Str32; aDeviceDesc: Str64; var pldt: Longint; aDataType: Str16): Longbool; cdecl; external 'PMGPI' index 607; function DevQueryHardcopyCaps(ahdc: cardinal; lStartForm, lForms: Longint; var phciHcInfo: HCInfo): Longint; cdecl; external 'PMGPI' index 608; function DevPostDeviceModes(ahab: HAB; var pdrivDriverData: DrivData; pszDriverName, pszDeviceName, pszName: PChar; flOptions: cardinal): Longint; cdecl; external 'PMGPI' index 609; { was #define QUERYSIZE_HEADER_SIZE (sizeof (QUERYSIZE) - sizeof (((PQUERYSIZE)NULL)->aTuples)) } // function QUERYSIZE_HEADER_SIZE : longint; // { return type might be wrong } // begin // QUERYSIZE_HEADER_SIZE:=(sizeof(QUERYSIZE)) - (sizeof((TPQUERYSIZE(NULL))^.aTuples)); // end; // #define DJP_HEADER_SIZE (sizeof (DJP_ITEM) - sizeof (((PDJP_ITEM)NULL)->ulValue)) // #define DJP_NEXT_STRUCTP(p) ((PDJP_ITEM)((PBYTE)(p) + (p)->cb)) // #define DJP_ELEMENTP(s,t) ((t*)&((s).ulValue)) // #define DJP_SET_ELEMENT(s,t,e) (*DJP_ELEMENTP (s,t) = (e)) { was #define dname def_expr } // function DJP_HEADER_SIZE : longint; // { return type might be wrong } // begin // DJP_HEADER_SIZE:=(sizeof(DJP_ITEM)) - (sizeof((TPDJP_ITEM(NULL))^.ulValue)); // end; { was #define dname(params) para_def_expr } { argument types are unknown } // function DJP_NEXT_STRUCTP(p : longint) : TPDJP_ITEM; // begin // DJP_NEXT_STRUCTP:=TPDJP_ITEM((TPBYTE(p)) + (p^.cb)); // end; { was #define dname(params) para_def_expr } { argument types are unknown } // function DJP_ELEMENTP(s,t : longint) : ^Tt; // begin // DJP_ELEMENTP:=^Tt(@(s.ulValue)); // end; end.