mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 09:47:56 +02:00
2172 lines
108 KiB
ObjectPascal
2172 lines
108 KiB
ObjectPascal
{****************************************************************************
|
|
|
|
|
|
PMGPI interface unit
|
|
FPC Pascal Runtime Library for OS/2
|
|
Copyright (c) 1999-2000 by Florian Klaempfl
|
|
Copyright (c) 1999-2000 by Ramon Bosque
|
|
|
|
The Free Pascal runtime library is distributed under the Library GNU Public
|
|
License v2. So is this unit. The Library GNU Public License requires you to
|
|
distribute the source code of this unit with any product that uses it.
|
|
Because the EMX library isn't under the LGPL, we grant you an exception to
|
|
this, and that is, when you compile a program with the Free Pascal Compiler,
|
|
you do not need to ship source code with that program, AS LONG AS YOU ARE
|
|
USING UNMODIFIED CODE! If you modify this code, you MUST change the next
|
|
line:
|
|
|
|
<This an official, unmodified Free Pascal source code file.>
|
|
|
|
Send us your modified files, we can work together if you want!
|
|
|
|
Free Pascal 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. See the
|
|
Library GNU General Public License for more details.
|
|
|
|
You should have received a copy of the Library GNU General Public License
|
|
along with Free Pascal; see the file COPYING.LIB. If not, write to
|
|
the Free Software Foundation, 51 Franklin Street, Fifth Floor,
|
|
Boston, MA 02110-1301, USA.
|
|
|
|
****************************************************************************}
|
|
|
|
{Warning: This code is alfa. Future versions of this unit will propably
|
|
not be compatible.}
|
|
|
|
{$IFNDEF FPC_DOTTEDUNITS}
|
|
unit pmgpi;
|
|
{$ENDIF FPC_DOTTEDUNITS}
|
|
|
|
interface
|
|
|
|
{$MACRO ON}
|
|
|
|
{$IFDEF FPC_DOTTEDUNITS}
|
|
uses OS2Api.os2def,OS2Api.pmbitmap;
|
|
{$ELSE FPC_DOTTEDUNITS}
|
|
uses os2def,pmbitmap;
|
|
{$ENDIF FPC_DOTTEDUNITS}
|
|
|
|
const GPI_ERROR = 0;
|
|
GPI_OK = 1;
|
|
GPI_ALTERROR = (-1);
|
|
|
|
CLR_NOINDEX = (-254);
|
|
|
|
PU_ARBITRARY = $0004;
|
|
PU_PELS = $0008;
|
|
PU_LOMETRIC = $000C;
|
|
PU_HIMETRIC = $0010;
|
|
PU_LOENGLISH = $0014;
|
|
PU_HIENGLISH = $0018;
|
|
PU_TWIPS = $001C;
|
|
GPIF_DEFAULT = 0;
|
|
GPIF_SHORT = $0100;
|
|
GPIF_LONG = $0200;
|
|
GPIT_NORMAL = 0;
|
|
GPIT_MICRO = $1000;
|
|
GPIA_NOASSOC = 0;
|
|
GPIA_ASSOC = $4000;
|
|
HDC_ERROR = -1;
|
|
|
|
GRES_ATTRS = $0001;
|
|
GRES_SEGMENTS = $0002;
|
|
GRES_ALL = $0004;
|
|
PS_UNITS = $00FC;
|
|
PS_FORMAT = $0F00;
|
|
PS_TYPE = $1000;
|
|
PS_MODE = $2000;
|
|
PS_ASSOCIATE = $4000;
|
|
PS_NORESET = $8000;
|
|
GPIE_SEGMENT = 0;
|
|
GPIE_ELEMENT = 1;
|
|
GPIE_DATA = 2;
|
|
DCTL_ERASE = 1;
|
|
DCTL_DISPLAY = 2;
|
|
DCTL_BOUNDARY = 3;
|
|
DCTL_DYNAMIC = 4;
|
|
DCTL_CORRELATE = 5;
|
|
DCTL_ERROR = -1;
|
|
DCTL_OFF = 0;
|
|
DCTL_ON = 1;
|
|
SDW_ERROR = -1;
|
|
SDW_OFF = 0;
|
|
SDW_ON = 1;
|
|
DM_ERROR = 0;
|
|
DM_DRAW = 1;
|
|
DM_RETAIN = 2;
|
|
DM_DRAWANDRETAIN = 3;
|
|
|
|
PICKAP_DEFAULT = 0;
|
|
PICKAP_REC = 2;
|
|
PICKSEL_VISIBLE = 0;
|
|
PICKSEL_ALL = 1;
|
|
GPI_HITS = 2;
|
|
|
|
DFORM_NOCONV = 0;
|
|
DFORM_S370SHORT = 1;
|
|
DFORM_PCSHORT = 2;
|
|
DFORM_PCLONG = 4;
|
|
ATTR_ERROR = (-1);
|
|
ATTR_DETECTABLE = 1;
|
|
ATTR_VISIBLE = 2;
|
|
ATTR_CHAINED = 6;
|
|
ATTR_DYNAMIC = 8;
|
|
ATTR_FASTCHAIN = 9;
|
|
ATTR_PROP_DETECTABLE = 10;
|
|
ATTR_PROP_VISIBLE = 11;
|
|
ATTR_OFF = 0;
|
|
ATTR_ON = 1;
|
|
LOWER_PRI = (-1);
|
|
HIGHER_PRI = 1;
|
|
|
|
SEGEM_ERROR = 0;
|
|
SEGEM_INSERT = 1;
|
|
SEGEM_REPLACE = 2;
|
|
|
|
CVTC_WORLD = 1;
|
|
CVTC_MODEL = 2;
|
|
CVTC_DEFAULTPAGE = 3;
|
|
CVTC_PAGE = 4;
|
|
CVTC_DEVICE = 5;
|
|
TRANSFORM_REPLACE = 0;
|
|
TRANSFORM_ADD = 1;
|
|
TRANSFORM_PREEMPT = 2;
|
|
|
|
MPATH_STROKE = 6;
|
|
FPATH_ALTERNATE = 0;
|
|
FPATH_WINDING = 2;
|
|
FPATH_EXCL = 0;
|
|
FPATH_INCL = 8;
|
|
SCP_ALTERNATE = 0;
|
|
SCP_WINDING = 2;
|
|
SCP_AND = 4;
|
|
SCP_RESET = 0;
|
|
SCP_EXCL = 0;
|
|
SCP_INCL = 8;
|
|
|
|
LCOL_RESET = $0001;
|
|
LCOL_REALIZABLE = $0002;
|
|
LCOL_PURECOLOR = $0004;
|
|
LCOL_OVERRIDE_DEFAULT_COLORS = $0008;
|
|
LCOL_REALIZED = $0010;
|
|
LCOLF_DEFAULT = 0;
|
|
LCOLF_INDRGB = 1;
|
|
LCOLF_CONSECRGB = 2;
|
|
LCOLF_RGB = 3;
|
|
LCOLF_PALETTE = 4;
|
|
LCOLOPT_REALIZED = $0001;
|
|
LCOLOPT_INDEX = $0002;
|
|
QLCT_ERROR = (-1);
|
|
QLCT_RGB = (-2);
|
|
QLCT_NOTLOADED = (-1);
|
|
QCD_LCT_FORMAT = 0;
|
|
QCD_LCT_LOINDEX = 1;
|
|
QCD_LCT_HIINDEX = 2;
|
|
QCD_LCT_OPTIONS = 3;
|
|
PAL_ERROR = (-1);
|
|
PC_RESERVED = $01;
|
|
PC_EXPLICIT = $02;
|
|
PC_NOCOLLAPSE = $04;
|
|
|
|
CLR_false = (-5);
|
|
CLR_true = (-4);
|
|
CLR_error = (-255);
|
|
CLR_default = (-3);
|
|
CLR_white = (-2);
|
|
CLR_black = (-1);
|
|
CLR_background = 0;
|
|
CLR_blue = 1;
|
|
CLR_red = 2;
|
|
CLR_pink = 3;
|
|
CLR_green = 4;
|
|
CLR_cyan = 5;
|
|
CLR_yellow = 6;
|
|
CLR_neutral = 7;
|
|
CLR_darkgray = 8;
|
|
CLR_darkblue = 9;
|
|
CLR_darkred = 10;
|
|
CLR_darkpink = 11;
|
|
CLR_darkgreen = 12;
|
|
CLR_darkcyan = 13;
|
|
CLR_brown = 14;
|
|
CLR_palegray = 15;
|
|
|
|
RGB_error = (-255);
|
|
RGB_black = $00000000;
|
|
RGB_blue = $000000FF;
|
|
RGB_green = $0000FF00;
|
|
RGB_cyan = $0000FFFF;
|
|
RGB_red = $00FF0000;
|
|
RGB_pink = $00FF00FF;
|
|
RGB_yellow = $00FFFF00;
|
|
RGB_white = $00FFFFFF;
|
|
|
|
BA_NOBOUNDARY = 0;
|
|
BA_BOUNDARY = $0001;
|
|
BA_ALTERNATE = 0;
|
|
BA_WINDING = $0002;
|
|
BA_EXCL = 0;
|
|
BA_INCL = 8;
|
|
DRO_FILL = 1;
|
|
DRO_OUTLINE = 2;
|
|
DRO_OUTLINEFILL = 3;
|
|
PATSYM_ERROR = (-1);
|
|
PATSYM_DEFAULT = 0;
|
|
PATSYM_DENSE1 = 1;
|
|
PATSYM_DENSE2 = 2;
|
|
PATSYM_DENSE3 = 3;
|
|
PATSYM_DENSE4 = 4;
|
|
PATSYM_DENSE5 = 5;
|
|
PATSYM_DENSE6 = 6;
|
|
PATSYM_DENSE7 = 7;
|
|
PATSYM_DENSE8 = 8;
|
|
PATSYM_VERT = 9;
|
|
PATSYM_HORIZ = 10;
|
|
PATSYM_DIAG1 = 11;
|
|
PATSYM_DIAG2 = 12;
|
|
PATSYM_DIAG3 = 13;
|
|
PATSYM_DIAG4 = 14;
|
|
PATSYM_NOSHADE = 15;
|
|
PATSYM_SOLID = 16;
|
|
PATSYM_HALFTONE = 17;
|
|
PATSYM_HATCH = 18;
|
|
PATSYM_DIAGHATCH = 19;
|
|
PATSYM_BLANK = 64;
|
|
LCID_ERROR = (-1);
|
|
LCID_DEFAULT = 0;
|
|
|
|
AM_ERROR = (-1);
|
|
AM_PRESERVE = 0;
|
|
AM_NOPRESERVE = 1;
|
|
FM_ERROR = (-1);
|
|
FM_DEFAULT = 0;
|
|
FM_OR = 1;
|
|
FM_OVERPAINT = 2;
|
|
FM_LEAVEALONE = 5;
|
|
FM_XOR = 4;
|
|
FM_AND = 6;
|
|
FM_SUBTRACT = 7;
|
|
FM_MASKSRCNOT = 8;
|
|
FM_ZERO = 9;
|
|
FM_NOTMERGESRC = 10;
|
|
FM_NOTXORSRC = 11;
|
|
FM_INVERT = 12;
|
|
FM_MERGESRCNOT = 13;
|
|
FM_NOTCOPYSRC = 14;
|
|
FM_MERGENOTSRC = 15;
|
|
FM_NOTMASKSRC = 16;
|
|
FM_ONE = 17;
|
|
BM_ERROR = (-1);
|
|
BM_DEFAULT = 0;
|
|
BM_OR = 1;
|
|
BM_OVERPAINT = 2;
|
|
BM_LEAVEALONE = 5;
|
|
BM_XOR = 4;
|
|
BM_AND = 6;
|
|
BM_SUBTRACT = 7;
|
|
BM_MASKSRCNOT = 8;
|
|
BM_ZERO = 9;
|
|
BM_NOTMERGESRC = 10;
|
|
BM_NOTXORSRC = 11;
|
|
BM_INVERT = 12;
|
|
BM_MERGESRCNOT = 13;
|
|
BM_NOTCOPYSRC = 14;
|
|
BM_MERGENOTSRC = 15;
|
|
BM_NOTMASKSRC = 16;
|
|
BM_ONE = 17;
|
|
BM_SRCTRANSPARENT = 18;
|
|
BM_DESTTRANSPARENT = 19;
|
|
LINETYPE_ERROR = (-1);
|
|
LINETYPE_DEFAULT = 0;
|
|
LINETYPE_DOT = 1;
|
|
LINETYPE_SHORTDASH = 2;
|
|
LINETYPE_DASHDOT = 3;
|
|
LINETYPE_DOUBLEDOT = 4;
|
|
LINETYPE_LONGDASH = 5;
|
|
LINETYPE_DASHDOUBLEDOT = 6;
|
|
LINETYPE_SOLID = 7;
|
|
LINETYPE_INVISIBLE = 8;
|
|
LINETYPE_ALTERNATE = 9;
|
|
LINEWIDTH_ERROR = (-1);
|
|
LINEWIDTH_DEFAULT = 0;
|
|
LINEWIDTH_NORMAL = $00010000;
|
|
LINEWIDTH_THICK = $00020000;
|
|
LINEWIDTHGEOM_ERROR = (-1);
|
|
LINEEND_ERROR = (-1);
|
|
LINEEND_DEFAULT = 0;
|
|
LINEEND_FLAT = 1;
|
|
LINEEND_SQUARE = 2;
|
|
LINEEND_ROUND = 3;
|
|
LINEJOIN_ERROR = (-1);
|
|
LINEJOIN_DEFAULT = 0;
|
|
LINEJOIN_BEVEL = 1;
|
|
LINEJOIN_ROUND = 2;
|
|
LINEJOIN_MITRE = 3;
|
|
CHDIRN_ERROR = (-1);
|
|
CHDIRN_DEFAULT = 0;
|
|
CHDIRN_LEFTRIGHT = 1;
|
|
CHDIRN_TOPBOTTOM = 2;
|
|
CHDIRN_RIGHTLEFT = 3;
|
|
CHDIRN_BOTTOMTOP = 4;
|
|
TA_NORMAL_HORIZ = $0001;
|
|
TA_LEFT = $0002;
|
|
TA_CENTER = $0003;
|
|
TA_RIGHT = $0004;
|
|
TA_STANDARD_HORIZ = $0005;
|
|
TA_NORMAL_VERT = $0100;
|
|
TA_TOP = $0200;
|
|
TA_HALF = $0300;
|
|
TA_BASE = $0400;
|
|
TA_BOTTOM = $0500;
|
|
TA_STANDARD_VERT = $0600;
|
|
CM_ERROR = (-1);
|
|
CM_DEFAULT = 0;
|
|
CM_MODE1 = 1;
|
|
CM_MODE2 = 2;
|
|
CM_MODE3 = 3;
|
|
MARKSYM_ERROR = (-1);
|
|
MARKSYM_DEFAULT = 0;
|
|
MARKSYM_CROSS = 1;
|
|
MARKSYM_PLUS = 2;
|
|
MARKSYM_DIAMOND = 3;
|
|
MARKSYM_SQUARE = 4;
|
|
MARKSYM_SIXPOINTSTAR = 5;
|
|
MARKSYM_EIGHTPOINTSTAR = 6;
|
|
MARKSYM_SOLIDDIAMOND = 7;
|
|
MARKSYM_SOLIDSQUARE = 8;
|
|
MARKSYM_DOT = 9;
|
|
MARKSYM_SMALLCIRCLE = 10;
|
|
MARKSYM_BLANK = 64;
|
|
CHS_OPAQUE = $0001;
|
|
CHS_VECTOR = $0002;
|
|
CHS_LEAVEPOS = $0008;
|
|
CHS_CLIP = $0010;
|
|
CHS_UNDERSCORE = $0200;
|
|
CHS_STRIKEOUT = $0400;
|
|
PRIM_LINE = 1;
|
|
PRIM_CHAR = 2;
|
|
PRIM_MARKER = 3;
|
|
PRIM_AREA = 4;
|
|
PRIM_IMAGE = 5;
|
|
LBB_COLOR = $0001;
|
|
LBB_BACK_COLOR = $0002;
|
|
LBB_MIX_MODE = $0004;
|
|
LBB_BACK_MIX_MODE = $0008;
|
|
LBB_WIDTH = $0010;
|
|
LBB_GEOM_WIDTH = $0020;
|
|
LBB_TYPE = $0040;
|
|
LBB_END = $0080;
|
|
LBB_JOIN = $0100;
|
|
CBB_COLOR = $0001;
|
|
CBB_BACK_COLOR = $0002;
|
|
CBB_MIX_MODE = $0004;
|
|
CBB_BACK_MIX_MODE = $0008;
|
|
CBB_SET = $0010;
|
|
CBB_MODE = $0020;
|
|
CBB_BOX = $0040;
|
|
CBB_ANGLE = $0080;
|
|
CBB_SHEAR = $0100;
|
|
CBB_DIRECTION = $0200;
|
|
CBB_TEXT_ALIGN = $0400;
|
|
CBB_EXTRA = $0800;
|
|
CBB_BREAK_EXTRA = $1000;
|
|
MBB_COLOR = $0001;
|
|
MBB_BACK_COLOR = $0002;
|
|
MBB_MIX_MODE = $0004;
|
|
MBB_BACK_MIX_MODE = $0008;
|
|
MBB_SET = $0010;
|
|
MBB_SYMBOL = $0020;
|
|
MBB_BOX = $0040;
|
|
ABB_COLOR = $0001;
|
|
ABB_BACK_COLOR = $0002;
|
|
ABB_MIX_MODE = $0004;
|
|
ABB_BACK_MIX_MODE = $0008;
|
|
ABB_SET = $0010;
|
|
ABB_SYMBOL = $0020;
|
|
ABB_REF_POINT = $0040;
|
|
IBB_COLOR = $0001;
|
|
IBB_BACK_COLOR = $0002;
|
|
IBB_MIX_MODE = $0004;
|
|
IBB_BACK_MIX_MODE = $0008;
|
|
|
|
TXTBOX_TOPLEFT = 0;
|
|
TXTBOX_BOTTOMLEFT = 1;
|
|
TXTBOX_TOPRIGHT = 2;
|
|
TXTBOX_BOTTOMRIGHT = 3;
|
|
TXTBOX_CONCAT = 4;
|
|
TXTBOX_COUNT = 5;
|
|
PVIS_ERROR = 0;
|
|
PVIS_INVISIBLE = 1;
|
|
PVIS_VISIBLE = 2;
|
|
RVIS_ERROR = 0;
|
|
RVIS_INVISIBLE = 1;
|
|
RVIS_PARTIAL = 2;
|
|
RVIS_VISIBLE = 3;
|
|
|
|
FONT_DEFAULT = 1;
|
|
FONT_MATCH = 2;
|
|
LCIDT_FONT = 6;
|
|
LCIDT_BITMAP = 7;
|
|
LCID_ALL = (-1);
|
|
|
|
FWEIGHT_DONT_CARE = 0;
|
|
FWEIGHT_ULTRA_LIGHT = 1;
|
|
FWEIGHT_EXTRA_LIGHT = 2;
|
|
FWEIGHT_LIGHT = 3;
|
|
FWEIGHT_SEMI_LIGHT = 4;
|
|
FWEIGHT_NORMAL = 5;
|
|
FWEIGHT_SEMI_BOLD = 6;
|
|
FWEIGHT_BOLD = 7;
|
|
FWEIGHT_EXTRA_BOLD = 8;
|
|
FWEIGHT_ULTRA_BOLD = 9;
|
|
FWIDTH_DONT_CARE = 0;
|
|
FWIDTH_ULTRA_CONDENSED = 1;
|
|
FWIDTH_EXTRA_CONDENSED = 2;
|
|
FWIDTH_CONDENSED = 3;
|
|
FWIDTH_SEMI_CONDENSED = 4;
|
|
FWIDTH_NORMAL = 5;
|
|
FWIDTH_SEMI_EXPANDED = 6;
|
|
FWIDTH_EXPANDED = 7;
|
|
FWIDTH_EXTRA_EXPANDED = 8;
|
|
FWIDTH_ULTRA_EXPANDED = 9;
|
|
FTYPE_ITALIC = $0001;
|
|
FTYPE_ITALIC_DONT_CARE = $0002;
|
|
FTYPE_OBLIQUE = $0004;
|
|
FTYPE_OBLIQUE_DONT_CARE = $0008;
|
|
FTYPE_ROUNDED = $0010;
|
|
FTYPE_ROUNDED_DONT_CARE = $0020;
|
|
QFA_PUBLIC = 1;
|
|
QFA_PRIVATE = 2;
|
|
QFA_ERROR =GPI_ALTERROR;
|
|
QF_PUBLIC = $0001;
|
|
QF_PRIVATE = $0002;
|
|
QF_NO_GENERIC = $0004;
|
|
QF_NO_DEVICE = $0008;
|
|
|
|
ROP_SRCCOPY = $00CC;
|
|
ROP_SRCPAINT = $00EE;
|
|
ROP_SRCAND = $0088;
|
|
ROP_SRCINVERT = $0066;
|
|
ROP_SRCERASE = $0044;
|
|
ROP_NOTSRCCOPY = $0033;
|
|
ROP_NOTSRCERASE = $0011;
|
|
ROP_MERGECOPY = $00C0;
|
|
ROP_MERGEPAINT = $00BB;
|
|
ROP_PATCOPY = $00F0;
|
|
ROP_PATPAINT = $00FB;
|
|
ROP_PATINVERT = $005A;
|
|
ROP_DSTINVERT = $0055;
|
|
ROP_ZERO = $0000;
|
|
ROP_ONE = $00FF;
|
|
BBO_OR = 0;
|
|
BBO_AND = 1;
|
|
BBO_IGNORE = 2;
|
|
BBO_PAL_COLORS = 4;
|
|
BBO_NO_COLOR_INFO = 8;
|
|
FF_BOUNDARY = 0;
|
|
FF_SURFACE = 1;
|
|
HBM_ERROR = -1;
|
|
|
|
{Bitmaps}
|
|
CBM_INIT = $0004;
|
|
BMB_ERROR = (-1);
|
|
|
|
{Regions}
|
|
CRGN_OR = 1;
|
|
CRGN_COPY = 2;
|
|
CRGN_XOR = 4;
|
|
CRGN_AND = 6;
|
|
CRGN_DIFF = 7;
|
|
RECTDIR_LFRT_TOPBOT = 1;
|
|
RECTDIR_RTLF_TOPBOT = 2;
|
|
RECTDIR_LFRT_BOTTOP = 3;
|
|
RECTDIR_RTLF_BOTTOP = 4;
|
|
RGN_ERROR = 0;
|
|
RGN_NULL = 1;
|
|
RGN_RECT = 2;
|
|
RGN_COMPLEX = 3;
|
|
PRGN_ERROR = 0;
|
|
PRGN_OUTSIDE = 1;
|
|
PRGN_INSIDE = 2;
|
|
RRGN_ERROR = 0;
|
|
RRGN_OUTSIDE = 1;
|
|
RRGN_PARTIAL = 2;
|
|
RRGN_INSIDE = 3;
|
|
EQRGN_ERROR = 0;
|
|
EQRGN_NOTEQUAL = 1;
|
|
EQRGN_EQUAL = 2;
|
|
HRGN_ERROR = -1;
|
|
|
|
{Metafiles}
|
|
PMF_SEGBASE = 0;
|
|
PMF_LOADTYPE = 1;
|
|
PMF_RESOLVE = 2;
|
|
PMF_LCIDS = 3;
|
|
PMF_RESET = 4;
|
|
PMF_SUPPRESS = 5;
|
|
PMF_COLORTABLES = 6;
|
|
PMF_COLORREALIZABLE = 7;
|
|
PMF_DEFAULTS = 8;
|
|
PMF_DELETEOBJECTS = 9;
|
|
RS_DEFAULT = 0;
|
|
RS_NODISCARD = 1;
|
|
LC_DEFAULT = 0;
|
|
LC_NOLOAD = 1;
|
|
LC_LOADDISC = 3;
|
|
LT_DEFAULT = 0;
|
|
LT_NOMODIFY = 1;
|
|
LT_ORIGINALVIEW = 4;
|
|
RES_DEFAULT = 0;
|
|
RES_NORESET = 1;
|
|
RES_RESET = 2;
|
|
SUP_DEFAULT = 0;
|
|
SUP_NOSUPPRESS = 1;
|
|
SUP_SUPPRESS = 2;
|
|
CTAB_DEFAULT = 0;
|
|
CTAB_NOMODIFY = 1;
|
|
CTAB_REPLACE = 3;
|
|
CTAB_REPLACEPALETTE = 4;
|
|
CREA_DEFAULT = 0;
|
|
CREA_REALIZE = 1;
|
|
CREA_NOREALIZE = 2;
|
|
CREA_DOREALIZE = 3;
|
|
DDEF_DEFAULT = 0;
|
|
DDEF_IGNORE = 1;
|
|
DDEF_LOADDISC = 3;
|
|
DOBJ_DEFAULT = 0;
|
|
DOBJ_NODELETE = 1;
|
|
DOBJ_DELETE = 2;
|
|
RSP_DEFAULT = 0;
|
|
RSP_NODISCARD = 1;
|
|
|
|
{Polygons}
|
|
POLYGON_NOBOUNDARY = 0;
|
|
POLYGON_BOUNDARY = $0001;
|
|
POLYGON_ALTERNATE = 0;
|
|
POLYGON_WINDING = $0002;
|
|
POLYGON_EXCL = 0;
|
|
POLYGON_INCL = $0008;
|
|
|
|
type SizeL=record
|
|
cx,cy:longint;
|
|
end;
|
|
PSizeL=^SizeL;
|
|
TSizeL=SizeL;
|
|
|
|
MatrixLF=record
|
|
fxm11:longint;
|
|
fxm12:longint;
|
|
lm13:longint;
|
|
fxm21:longint;
|
|
fxm22:longint;
|
|
lm23:longint;
|
|
lm31:longint;
|
|
lm32:longint;
|
|
lm33:longint;
|
|
end;
|
|
PMatrixLF=^MatrixLF;
|
|
TMatrixLF=MatrixLF;
|
|
|
|
ArcParams=record
|
|
lp,lq,lr,ls:longint;
|
|
end;
|
|
PArcParams=^ArcParams;
|
|
TArcParams=ArcParams;
|
|
|
|
SizeF=record
|
|
cx,cy:longint;
|
|
end;
|
|
PSizeF=^SizeF;
|
|
TSizeF=SizeF;
|
|
|
|
GradientL=record
|
|
x,y:longint;
|
|
end;
|
|
PGradientL=^GradientL;
|
|
TGradientL=GradientL;
|
|
|
|
LineBundle=record
|
|
lColor:longint;
|
|
lBackColor:longint;
|
|
usMixMode:word;
|
|
usBackMixMode:word;
|
|
fxWidth:longint;
|
|
lGeomWidth:longint;
|
|
usType:word;
|
|
usEnd:word;
|
|
usJoin:word;
|
|
usReserved:word;
|
|
end;
|
|
PLineBundle=^LineBundle;
|
|
TLineBundle=LineBundle;
|
|
|
|
CharBundle=record
|
|
lColor:longint;
|
|
lBackColor:longint;
|
|
usMixMode:word;
|
|
usBackMixMode:word;
|
|
usSet:word;
|
|
usPrecision:word;
|
|
sizfxCell:sizef;
|
|
ptlAngle:pointl;
|
|
ptlShear:pointl;
|
|
usDirection:word;
|
|
usTextAlign:word;
|
|
fxExtra:longint;
|
|
fxBreakExtra:longint;
|
|
end;
|
|
PCharBundle=^CharBundle;
|
|
TCharBundle=CharBundle;
|
|
|
|
MarkerBundle=record
|
|
lColor:longint;
|
|
lBackColor:longint;
|
|
usMixMode:word;
|
|
usBackMixMode:word;
|
|
usSet:word;
|
|
usSymbol:word;
|
|
sizFxCell:SizeF;
|
|
end;
|
|
PMarkerBundle=^MarkerBundle;
|
|
TMarkerBundle=MarkerBundle;
|
|
|
|
AreaBundle=record
|
|
lColor:longint;
|
|
lBackColor:longint;
|
|
usMixMode:word;
|
|
usBackMixMode:word;
|
|
usSet:word;
|
|
usSymbol:word;
|
|
ptlRefPoint:pointl;
|
|
end;
|
|
PAreaBundle=^AreaBundle;
|
|
TAreaBundle=AreaBundle;
|
|
|
|
ImageBundle=record
|
|
lColor:longint;
|
|
lBackColor:longint;
|
|
usMixMode:word;
|
|
usBackMixMode:word;
|
|
end;
|
|
PImageBundle=^ImageBundle;
|
|
TImageBundle=ImageBundle;
|
|
|
|
KerningPairs=record
|
|
sFirstChar:integer;
|
|
sSecondChar:integer;
|
|
lKerningAmount:longint;
|
|
end;
|
|
PKerningPairs=^KerningPairs;
|
|
TKerningPairs=KerningPairs;
|
|
|
|
FaceNameDesc=record
|
|
usSize:word;
|
|
usWeightClass:word;
|
|
usWidthClass:word;
|
|
usReserved:word;
|
|
flOptions:cardinal;
|
|
end;
|
|
PFaceNameDesc=^FaceNameDesc;
|
|
TFaceNameDesc=FaceNameDesc;
|
|
|
|
FFDescs=array[0..1,0..FaceSize-1] of AnsiChar;
|
|
PFFDescs=^FFDescs;
|
|
TFFDescs = FFDescs;
|
|
|
|
FFDescs2=record
|
|
cbLength:cardinal;
|
|
cbFacenameOffset:cardinal;
|
|
abFamilyName:array[0..1-1] of byte;
|
|
end;
|
|
PFFDescs2=^FFDescs2;
|
|
TFFDescs2=FFDescs2;
|
|
|
|
RgnRect=record
|
|
ircStart:cardinal;
|
|
crc:cardinal;
|
|
crcReturned:cardinal;
|
|
ulDirection:cardinal;
|
|
end;
|
|
PRgnRect=^RgnRect;
|
|
TRgnRect=RgnRect;
|
|
|
|
Polygon=record
|
|
ulPoints:cardinal;
|
|
aPointl:Ppointl;
|
|
end;
|
|
PPolygon=^Polygon;
|
|
TPolygon=Polygon;
|
|
|
|
Polyset=record
|
|
ulPolys:cardinal;
|
|
aPolygon:array[0..1-1] of TPolygon;
|
|
end;
|
|
PPolyset=^Polyset;
|
|
TPolyset=Polyset;
|
|
|
|
// ===========================================================================
|
|
//*
|
|
//* The orders fall into 4 categories :-
|
|
//*
|
|
//* 1) 1-byte orders
|
|
//*
|
|
//* 2) 2-byte orders - second byte contains the value
|
|
//*
|
|
//* 3) Long orders - second byte gives the order length, subsequent bytes
|
|
//* contain the values (up to 256 bytes long)
|
|
//*
|
|
//* 4) Very long orders - third and fourth bytes gives the order length,
|
|
//* subsequent bytes contain the values (up to 64K long)
|
|
//*
|
|
//* ===========================================================================
|
|
|
|
//#pragma pack(1) /* pack on byte boundary */
|
|
|
|
//***************************************************************************\
|
|
//*
|
|
//* Miscellaneous structures used in this file
|
|
//*
|
|
//***************************************************************************/
|
|
|
|
// form of RECTL with shorts instead of longs
|
|
type
|
|
RECT1S=record // rcs
|
|
xLeft: Integer;
|
|
yBottom: Integer;
|
|
xRight: Integer;
|
|
yTop: Integer;
|
|
end;
|
|
|
|
// form of POINTL with 1 byte offsets instead of longs
|
|
ODPOINT=record // odpt
|
|
dx: AnsiChar;
|
|
dy: AnsiChar;
|
|
end;
|
|
|
|
// form of SIZEL with shorts instead of longs
|
|
SIZES=record // sizs
|
|
cx: Integer;
|
|
cy: Integer;
|
|
end;
|
|
|
|
// unsigned two-byte swapped integer
|
|
SWPUSHORT=record // swpus
|
|
HiByte: Byte;
|
|
LoByte: Byte;
|
|
end;
|
|
|
|
//***************************************************************************\
|
|
//*
|
|
//* 1-byte orders
|
|
//*
|
|
//***************************************************************************/
|
|
|
|
// macro to tell whether this is a 1-byte order
|
|
{$define BYTE_ORDER(oc):=((oc)=OCODE_GNOP1 or (oc)=OCODE_GESD)}
|
|
|
|
// 1-byte order codes
|
|
const
|
|
OCODE_GNOP1 =$00; // No-operation
|
|
OCODE_GESD =$FF; // End symbol definition
|
|
|
|
//***************************************************************************\
|
|
//
|
|
// 2-byte orders
|
|
//
|
|
//***************************************************************************/
|
|
|
|
// definitions to help determine whether an order code is a 2-byte order
|
|
const
|
|
OCODE2_1 =$80;
|
|
OCODE2_2 =$88;
|
|
|
|
{$define SHORT_ORDER(oc):=((((oc) xor OCODE2_1) and OCODE2_2)=OCODE2_2)}
|
|
|
|
// General 2-byte order structure
|
|
type
|
|
ORDER=record // ord
|
|
idCode: Byte;
|
|
uchData: Byte;
|
|
end;
|
|
|
|
// 2-byte order codes
|
|
const
|
|
OCODE_GBAR =$68; // Begin area
|
|
OCODE_GCFIG =$7D; // Close figure
|
|
OCODE_GEEL =$49; // End element
|
|
OCODE_GEPTH =$7F; // End path
|
|
OCODE_GEPROL =$3E; // End prologue
|
|
OCODE_GPOP =$3F; // Pop
|
|
OCODE_GSBMX =$0D; // Set background mix
|
|
OCODE_GPSBMX =$4D; // Push & set b/g mix
|
|
OCODE_GSCD =$3A; // Set char direction
|
|
OCODE_GPSCD =$7A; // Push & set char direction
|
|
OCODE_GSCR =$39; // Set char precision
|
|
OCODE_GPSCR =$79; // Push & set char precision
|
|
OCODE_GSCS =$38; // Set char set
|
|
OCODE_GPSCS =$78; // Push & set char set
|
|
OCODE_GSCOL =$0A; // Set color
|
|
OCODE_GPSCOL =$4A; // Push & set color
|
|
OCODE_GSLE =$1A; // Set line end
|
|
OCODE_GPSLE =$5A; // Push & set line end
|
|
OCODE_GSLJ =$1B; // Set line join
|
|
OCODE_GPSLJ =$5B; // Push & set line join
|
|
OCODE_GSLT =$18; // Set line type
|
|
OCODE_GPSLT =$58; // Push & set line type
|
|
OCODE_GSLW =$19; // Set line width
|
|
OCODE_GPSLW =$59; // Push & set line width
|
|
OCODE_GSMP =$3B; // Set marker precision
|
|
OCODE_GPSMP =$7B; // Push & set marker precision
|
|
OCODE_GSMS =$3C; // Set marker set
|
|
OCODE_GPSMS =$7C; // Push & set marker set
|
|
OCODE_GSMT =$29; // Set marker symbol
|
|
OCODE_GPSMT =$69; // Push & set marker symbol
|
|
OCODE_GSMX =$0C; // Set mix
|
|
OCODE_GPSMX =$4C; // Push & set mix
|
|
OCODE_GSPS =$08; // Set pattern set
|
|
OCODE_GPSPS =$48; // Push & set pattern set
|
|
OCODE_GSPT =$28; // Set pattern symbol
|
|
OCODE_GPSPT =$09; // Push & set pattern symbol
|
|
|
|
// constants for 2-byte orders
|
|
|
|
// Begin area
|
|
const
|
|
GBAR_RESERVED =$80;
|
|
GBAR_BOUNDARY =$C0;
|
|
GBAR_NOBOUNDARY =$80;
|
|
GBAR_WINDING =$A0;
|
|
GBAR_ALTERNATE =$80;
|
|
|
|
// Set Character Precision
|
|
const
|
|
GSCR_PRECISION =$0F;
|
|
|
|
//***************************************************************************\
|
|
//*
|
|
//* Long orders
|
|
//*
|
|
//***************************************************************************/
|
|
|
|
// definitions to help determine whether an order code is a long order
|
|
const
|
|
OCODE_VLONG =$FE;
|
|
|
|
{$define LONG_ORDER(oc):=(not((oc)=OCODE_VLONG or BYTE_ORDER(oc) or SHORT_ORDER(oc)))}
|
|
|
|
// long order structure
|
|
const
|
|
LORDER_ML=253;
|
|
|
|
type
|
|
LORDER=record // lord
|
|
idCode: Byte;
|
|
uchLength: Byte;
|
|
uchData: Array[0..LORDER_ML-1] of Byte;
|
|
end;
|
|
|
|
// Long orders for which the length of data is normally zero
|
|
const
|
|
OCODE_GEAR =$60; // End Area
|
|
OCODE_GEIMG =$93; // End Image
|
|
|
|
// Long orders for which the data is contained in a type already defined
|
|
|
|
// Character String
|
|
const
|
|
OCODE_GCCHST = $83; // char string at curr posn
|
|
GCCHST_MC = 255; // Max len of string in bytes
|
|
|
|
OCODE_GCHST = $C3; // char string at given pos
|
|
GCHST_SMC = 251; // Max len of string (S)
|
|
GCHST_LMC = 247; // Max len of string (L)
|
|
|
|
// Character String Move
|
|
OCODE_GCCHSTM = $B1; // char string move at c.p.
|
|
GCCHSTM_MC = 255; // Max len of string in byte
|
|
|
|
OCODE_GCHSTM = $F1; // char string move at g.p.
|
|
GCHSTM_SMC = 251; // Max len of string (S)
|
|
GCHSTM_LMC = 247; // Max len of string (L)
|
|
|
|
// Comment
|
|
OCODE_GCOMT = $01; // Comment
|
|
GCOMT_ML = 255; // Maximum len of comment data
|
|
|
|
// Image
|
|
OCODE_GIMD = $92; // Image data
|
|
GIMD_ML = 255; // Maximum len of image data
|
|
|
|
// Full Arc
|
|
OCODE_GCFARC = $87; // full arc at current posn
|
|
OCODE_GFARC = $C7; // full arc at given posn
|
|
|
|
// Label
|
|
OCODE_GLABL = $D3; // Label
|
|
|
|
// Set Current Position
|
|
OCODE_GSCP = $21; // Set current position
|
|
OCODE_GPSCP = $61; // Push and set curr posn
|
|
|
|
// Bezier spline
|
|
OCODE_GCBEZ = $A5; // Bezier spline at curr pos
|
|
GCBEZ_SMB = 21; // Max number of splines (S)
|
|
GCBEZ_LMB = 10; // Max number of splines (L)
|
|
|
|
OCODE_GBEZ = $E5; // Bezier spline at given pos
|
|
GBEZ_SMB = 20; // Max number of splines (S)
|
|
GBEZ_LMB = 10; // Max number of splines (L)
|
|
|
|
// Fillet
|
|
OCODE_GCFLT = $85; // fillet at current posn
|
|
GCFLT_SMP = 63; // Max number of points (S)
|
|
GCFLT_LMP = 31; // Max number of points (L)
|
|
|
|
OCODE_GFLT = $C5; // fillet at given position
|
|
GFLT_SMP = 62; // Max number of points (S)
|
|
GFLT_LMP = 30; // Max number of points (L)
|
|
|
|
// Polyline
|
|
OCODE_GCLINE = $81; // polyline at current posn
|
|
GCLINE_SMP = 63; // Max number of points (S)
|
|
GCLINE_LMP = 31; // Max number of points (L)
|
|
|
|
OCODE_GLINE = $C1; // polyline at given posn
|
|
GLINE_SMP = 62; // Max number of points (S)
|
|
GLINE_LMP = 30; // Max number of points (L)
|
|
|
|
// Polymarker
|
|
OCODE_GCMRK = $82; // marker at current posn
|
|
GCMRK_SMP = 63; // Max number of points (S)
|
|
GCMRK_LMP = 31; // Max number of points (L)
|
|
|
|
OCODE_GMRK = $C2; // marker at given posn
|
|
GMRK_SMP = 62; // Max number of points (S)
|
|
GMRK_LMP = 30; // Max number of points (L)
|
|
|
|
// Relative Line
|
|
OCODE_GCRLINE =$A1; // Relative line at curr pos
|
|
GCRLINE_MP =127; // Max number of points
|
|
|
|
OCODE_GRLINE = $E1; // Relative line at givn pos
|
|
GRLINE_SMP = 125; // Max number of points (S)
|
|
GRLINE_LMP = 123; // Max number of points (L)
|
|
|
|
// Set Background Color
|
|
OCODE_GSBCOL = $25; // Set background color
|
|
OCODE_GPSBCOL = $65; // Push and set b/g color
|
|
|
|
// Set Extended Color
|
|
OCODE_GSECOL = $26; // Set extended color
|
|
OCODE_GPSECOL = $66; // Push and set ext color
|
|
|
|
// Extended Color values
|
|
SECOL_DEFAULT0 =$0000;
|
|
SECOL_DEFAULT1 =$FF00;
|
|
SECOL_NEUTRAL =$FF07;
|
|
SECOL_RESET =$FF08;
|
|
|
|
// Set Character Angle
|
|
OCODE_GSCA = $34; // Set character angle
|
|
OCODE_GPSCA = $74; // Push and set char angle
|
|
|
|
// Set Character Shear
|
|
OCODE_GSCH = $35; // Set character shear
|
|
OCODE_GPSCH = $75; // Push and set char shear
|
|
|
|
// Set Fractional Line Width
|
|
OCODE_GSFLW = $11; // Set fractional line width
|
|
OCODE_GPSFLW = $51; // Push and set frac l width
|
|
|
|
// Set Pick Identifier
|
|
OCODE_GSPIK = $43; // Set pick identifier
|
|
OCODE_GPSPIK = $23; // Push and set pick id
|
|
|
|
|
|
// Long Orders for which a structure can be defined for the data
|
|
|
|
// Arc
|
|
OCODE_GCARC = $86; // Arc at Current Position
|
|
OCODE_GARC = $C6; // Arc at Given Position
|
|
|
|
type
|
|
ORDERS_GCARC=record // osgcarc
|
|
ptInter: POINTS;
|
|
ptEnd: POINTS;
|
|
end;
|
|
|
|
ORDERL_GCARC=record // olgcarc
|
|
ptInter: POINTL;
|
|
ptEnd: POINTL;
|
|
end;
|
|
|
|
// Begin Element
|
|
const
|
|
OCODE_GBEL = $D2; // Begin Element
|
|
|
|
GBEL_DL = 251;
|
|
|
|
type
|
|
ORDER_GBEL=record // ogbel
|
|
lElementType: Longint;
|
|
achDesc: Array[0..GBEL_DL-1] of AnsiChar;
|
|
end;
|
|
|
|
// Begin Image
|
|
const
|
|
OCODE_GCBIMG = $91; // Begin Image at curr posn
|
|
OCODE_GBIMG = $D1; // Begin Image at given posn
|
|
|
|
type
|
|
ORDER_GCBIMG=record // ogbimg
|
|
uchFormat: Byte;
|
|
uchReserved: Byte;
|
|
cx: SWPUSHORT;
|
|
cy: SWPUSHORT;
|
|
end;
|
|
|
|
// Begin Path
|
|
const
|
|
OCODE_GBPTH = $D0; // Begin Path
|
|
|
|
type
|
|
ORDER_GBPTH=record // ogbpth
|
|
usReserved: Word;
|
|
idPath: Longint;
|
|
end;
|
|
|
|
// Box
|
|
const
|
|
OCODE_GCBOX =$80; // Box at current position
|
|
OCODE_GBOX =$C0; // Box at given position
|
|
|
|
type
|
|
ORDERS_GCBOX=record // osgcbox
|
|
fbFlags: Byte;
|
|
uchReserved: Byte;
|
|
ptCorner: POINTS;
|
|
hAxis: Integer;
|
|
vAxis: Integer;
|
|
end;
|
|
|
|
ORDERL_GCBOX=record // olgcbox
|
|
fbFlags: Byte;
|
|
uchReserved: Byte;
|
|
ptCorner: POINTL;
|
|
hAxis: Longint;
|
|
vAxis: Longint;
|
|
end;
|
|
|
|
const
|
|
GCBOX_FILL =$40;
|
|
GCBOX_BOUNDARY =$20;
|
|
|
|
// Call Segment
|
|
OCODE_GCALLS =$07; // call segment
|
|
|
|
type
|
|
ORDER_GCALLS=record // ogcalls
|
|
sReserved: Word;
|
|
idSegment: Longint;
|
|
end;
|
|
|
|
// Fill Path
|
|
const
|
|
OCODE_GFPTH =$D7; // Fill path
|
|
|
|
type
|
|
ORDER_GFPTH=record // ogfpth
|
|
fbFlags: Byte;
|
|
uchReserved: Byte;
|
|
idPath: Longint;
|
|
end;
|
|
|
|
const
|
|
GFPTH_ALTERNATE =$00;
|
|
GFPTH_WINDING =$40;
|
|
GFPTH_MODIFY =$20;
|
|
|
|
// Outline Path
|
|
OCODE_GOPTH =$D4; // Outline Path
|
|
|
|
type
|
|
ORDER_GOPTH=record // ogopth
|
|
fbFlags: Byte;
|
|
uchReserved: Byte;
|
|
idPath: Longint;
|
|
end;
|
|
|
|
// Modify Path
|
|
const
|
|
OCODE_GMPTH =$D8; // modify path
|
|
|
|
type
|
|
ORDER_GMPTH=record // ogmpth
|
|
uchMode: Byte;
|
|
uchReserved: Byte;
|
|
idPath: Longint;
|
|
end;
|
|
|
|
const
|
|
GMPTH_STROKE =$06;
|
|
|
|
// Partial Arc
|
|
OCODE_GCPARC =$A3; // Partial arc at curr posn
|
|
OCODE_GPARC =$E3; // Partial arc at given posn
|
|
|
|
type
|
|
ORDERS_GCPARC=record // osgcparc
|
|
ptCenter: POINTS;
|
|
ufx88Multiplier: FIXED88;
|
|
usStartAngle: Longint;
|
|
usSweepAngle: Longint;
|
|
end;
|
|
|
|
ORDERL_GCPARC=record // olgcparc
|
|
ptCenter: POINTL;
|
|
ufxMultiplier: FIXED;
|
|
usStartAngle: Longint;
|
|
usSweepAngle: Longint;
|
|
end;
|
|
|
|
// Set Clip Path
|
|
const
|
|
OCODE_GSCPTH =$B4; // Set clip path
|
|
|
|
type
|
|
ORDER_GSCPTH=record // ogscpth
|
|
fbFlags: Byte;
|
|
uchReserved: Byte;
|
|
idPath: Longint;
|
|
end;
|
|
|
|
const
|
|
GSCPTH_ALTERNATE =$00;
|
|
GSCPTH_WINDING =$40;
|
|
GSCPTH_RESET =$00;
|
|
GSCPTH_INTERSECT =$20;
|
|
|
|
// Set Arc Parameters
|
|
OCODE_GSAP =$22; // Set arc parameters
|
|
OCODE_GPSAP =$62; // Push and set arc params
|
|
|
|
type
|
|
ORDERS_GSAP=record // osgsap
|
|
p: Integer;
|
|
q: Integer;
|
|
r: Integer;
|
|
s: Integer;
|
|
end;
|
|
|
|
ORDERL_GSAP=record // olgsap
|
|
p: Longint;
|
|
q: Longint;
|
|
r: Longint;
|
|
s: Longint;
|
|
end;
|
|
|
|
// Set Background Indexed Color
|
|
const
|
|
OCODE_GSBICOL =$A7; // Set b/g indexed color
|
|
OCODE_GPSBICOL =$E7; // Push and set b/g ind color
|
|
OCODE_GSICOL =$A6; // Set indexed color
|
|
OCODE_GPSICOL =$E6; // Push and set indexd color
|
|
|
|
|
|
type
|
|
ORDER_GSBICOL=record // ogbicol
|
|
fbFlags: Byte;
|
|
auchColor: Array[0..3-1] of Byte;
|
|
end;
|
|
|
|
const
|
|
SICOL_SPECIFY =$00;
|
|
SICOL_SPECIAL =$40;
|
|
SICOL_DEFAULT =$80;
|
|
SICOL_BLACK =1;
|
|
SICOL_WHITE =2;
|
|
SICOL_ONES =4;
|
|
SICOL_ZEROES =5;
|
|
|
|
// Set Character Cell
|
|
OCODE_GSCC =$33; // Set character cell
|
|
OCODE_GPSCC =$03; // Push and set char cell
|
|
|
|
type
|
|
ORDERS_GSCC=record // osgscc
|
|
cxInt: Integer;
|
|
cyInt: Integer;
|
|
cxFract: Word;
|
|
cyFract: Word;
|
|
fbFlags: Byte;
|
|
uchReserved: Byte;
|
|
end;
|
|
|
|
ORDERL_GSCC=record // olgscc
|
|
cxInt: Longint;
|
|
cyInt: Longint;
|
|
cxFract: Word;
|
|
cyFract: Word;
|
|
fbFlags: Byte;
|
|
uchReserved: Byte;
|
|
end;
|
|
|
|
const
|
|
GSCC_ZERODEF =$00;
|
|
GSCC_ZEROZERO =$80;
|
|
|
|
// Set Marker Cell
|
|
OCODE_GSMC =$37; // Set marker cell
|
|
OCODE_GPSMC =$77; // Push and set marker cell
|
|
|
|
type
|
|
ORDERS_GSMC=record // osgsmc
|
|
cx: Integer;
|
|
cy: Integer;
|
|
fbFlags: Byte;
|
|
uchReserved: Byte;
|
|
end;
|
|
|
|
ORDERL_GSMC=record // olgsmc
|
|
cx: Longint;
|
|
cy: Longint;
|
|
fbFlags: Byte;
|
|
uchReserved: Byte;
|
|
end;
|
|
|
|
const
|
|
GSMC_ZERODEF =$00;
|
|
GSMC_ZEROZERO =$80;
|
|
|
|
// Set Pattern Reference Point
|
|
OCODE_GSPRP =$A0; // Set pattern ref point
|
|
OCODE_GPSPRP =$E0; // Push and set patt ref pt
|
|
|
|
type
|
|
ORDERS_GSPRP=record // osgsprp
|
|
fbFlags: Byte;
|
|
uchReserved: Byte;
|
|
ptPos: POINTS;
|
|
end;
|
|
|
|
ORDERL_GSPRP=record // olgsprp
|
|
fbFlags: Byte;
|
|
uchReserved: Byte;
|
|
ptPos: POINTL;
|
|
end;
|
|
|
|
const
|
|
GSPRP_DEFAULT =$80;
|
|
GSPRP_SPECIFY =$00;
|
|
|
|
|
|
// Set Individual Attribute
|
|
OCODE_GSIA =$14; // Set individual attribute
|
|
OCODE_GPSIA =$54; // Push and set ind attr
|
|
|
|
GSIA_VL=3;
|
|
|
|
type
|
|
ORDER_GSIA=record // ogsia
|
|
uchAttrType: Byte;
|
|
uchPrimType: Byte;
|
|
fbFlags: Byte;
|
|
auchValue: Array[0..GSIA_VL-1] of Byte;
|
|
end;
|
|
|
|
const
|
|
GSIA_COLOR =$01;
|
|
GSIA_BCOLOR =$02;
|
|
GSIA_MIX =$03;
|
|
GSIA_BMIX =$04;
|
|
GSIA_LINE =$01;
|
|
GSIA_CHAR =$02;
|
|
GSIA_MARKER =$03;
|
|
GSIA_PATTERN =$04;
|
|
GSIA_IMAGE =$05;
|
|
GSIA_SPECIFY =$00;
|
|
GSIA_SPECIAL =$40;
|
|
GSIA_DEFAULT =$80;
|
|
GSIA_BLACK =1;
|
|
GSIA_WHITE =2;
|
|
GSIA_ONES =4;
|
|
GSIA_ZEROES =5;
|
|
|
|
|
|
// Set Model /Viewing Transform
|
|
OCODE_GSTM =$24; // Set model transform
|
|
OCODE_GPSTM =$64; // Push and set model tfm
|
|
|
|
OCODE_GSTV =$31; // Set Viewing Transform
|
|
|
|
GSTM_ML =16;
|
|
|
|
type
|
|
ORDERS_GSTM=record // osgstm
|
|
uchReserved: Byte;
|
|
fbFlags: Byte;
|
|
fsMask: Word;
|
|
asMatrix: Array[0..GSTM_ML-1] of Integer;
|
|
end;
|
|
|
|
ORDERL_GSTM=record // olgstm
|
|
uchReserved: Byte;
|
|
fbFlags: Byte;
|
|
fsMask: Word;
|
|
alMatrix: Array[0..GSTM_ML-1] of Longint;
|
|
end;
|
|
|
|
const
|
|
GSTM_M11 =$8000;
|
|
GSTM_M12 =$4000;
|
|
GSTM_M13 =$2000;
|
|
GSTM_M14 =$1000;
|
|
GSTM_M21 =$0800;
|
|
GSTM_M22 =$0400;
|
|
GSTM_M23 =$0200;
|
|
GSTM_M24 =$0100;
|
|
GSTM_M31 =$0080;
|
|
GSTM_M32 =$0040;
|
|
GSTM_M33 =$0020;
|
|
GSTM_M34 =$0010;
|
|
GSTM_M41 =$0008;
|
|
GSTM_M42 =$0004;
|
|
GSTM_M43 =$0002;
|
|
GSTM_M44 =$0001;
|
|
|
|
GSTM_UNITY =$00;
|
|
GSTM_AFTER =$01;
|
|
GSTM_BEFORE =$02;
|
|
GSTM_OVERWRITE =$03;
|
|
|
|
GSTV_OVERWRITE =$00;
|
|
GSTV_AFTER =$04;
|
|
|
|
// Set Segment Boundary, Viewing Window
|
|
OCODE_GSSB =$32; // Set segment boundary
|
|
OCODE_GSVW =$27; // Set viewing window
|
|
OCODE_GPSVW =$67; // Push and set view window
|
|
|
|
GSSB_ML =4;
|
|
|
|
type
|
|
ORDERS_GSSB=record // osgssb
|
|
fbFlags: Byte;
|
|
fbMask: Byte;
|
|
alMatrix: Array[0..GSSB_ML-1] of Integer;
|
|
end;
|
|
|
|
ORDERL_GSSB=record // olgssb
|
|
fbFLags: Byte;
|
|
fbMask: Byte;
|
|
alMatrix: Array[0..GSSB_ML-1] of Longint;
|
|
end;
|
|
|
|
const
|
|
GSSB_XLEFT =$20;
|
|
GSSB_XRIGHT =$10;
|
|
GSSB_YBOTTOM =$08;
|
|
GSSB_YTOP =$04;
|
|
|
|
GSVW_INTERSECT =$00;
|
|
GSVW_REPLACE =$80;
|
|
|
|
// Set Segment Characteristics
|
|
OCODE_GSGCH =$04; // Set segment characteristics
|
|
|
|
GSGCH_ML =254;
|
|
|
|
type
|
|
ORDER_GSGCH=record // ogsgch
|
|
uchIdent: Byte;
|
|
auchData: Array[0..GSGCH_ML-1] of Byte;
|
|
end;
|
|
|
|
// Set Stroke Line Width
|
|
const
|
|
OCODE_GSSLW =$15; // Set stroke line width
|
|
OCODE_GPSSLW =$55; // Push and set strk l width
|
|
|
|
type
|
|
ORDERS_GSSLW=record // osgsslw
|
|
fbFlags: Byte;
|
|
uchReserved: Byte;
|
|
LineWidth: Integer;
|
|
end;
|
|
|
|
type
|
|
ORDERL_GSSLW=record // olgsslw
|
|
fbFlags: Byte;
|
|
uchReserved: Byte;
|
|
LineWidth: Longint;
|
|
end;
|
|
|
|
const
|
|
GSSLW_DEFAULT =$80;
|
|
GSSLW_SPECIFY =$00;
|
|
|
|
// Sharp Fillet at Current Position
|
|
OCODE_GCSFLT =$A4; // Sharp fillet at curr pos
|
|
OCODE_GSFLT =$E4; // Sharp fillet at given pos
|
|
|
|
GCSFLT_SMF =21;
|
|
GSFLT_SMF =20;
|
|
|
|
type
|
|
ORDERS_GCSFLT=record // osgcsflt
|
|
apt: Array[0..2*GCSFLT_SMF-1] of POINTS;
|
|
afxSharpness: Array[0..GCSFLT_SMF-1] of FIXED;
|
|
end;
|
|
|
|
const
|
|
GCSFLT_LMF = 12;
|
|
GSFLT_LMF = 12;
|
|
|
|
type
|
|
ORDERL_GCSFLT=record // olgcsflt
|
|
apt: Array[0..2*GCSFLT_SMF-1] of POINTL;
|
|
afxSharpness: Array[0..GCSFLT_SMF-1] of FIXED;
|
|
end;
|
|
|
|
// Bitblt
|
|
const
|
|
OCODE_GBBLT =$D6; // Bitblt
|
|
|
|
type
|
|
ORDERS_GBBLT=record // osgbblt
|
|
fsFlags: Word;
|
|
usMix: Word;
|
|
hbmSrc: HBITMAP;
|
|
lOptions: Longint;
|
|
rcsTargetRect: RECT1S;
|
|
rclSourceRect: RECTL;
|
|
end;
|
|
|
|
ORDERL_GBBLT=record // olgbblt
|
|
fsFlags: Word;
|
|
usMix: Word;
|
|
hbmSrc: HBITMAP;
|
|
lOptions: Longint;
|
|
rclTargetRect: RECTL;
|
|
rclSourceRect: RECTL;
|
|
end;
|
|
|
|
// Char & break extra
|
|
const
|
|
OCODE_GSCE =$17; // Set char extra
|
|
OCODE_GPSCE =$57; // Push and set char extra
|
|
OCODE_GSCBE =$05; // Set char break extra
|
|
OCODE_GPSCBE =$45; // Push and set char break extra
|
|
|
|
type
|
|
ORDER_GSCBE=record // osgsce
|
|
fbFlags: Byte;
|
|
uchReserved: Byte;
|
|
ufxextra: FIXED;
|
|
end;
|
|
ORDER_GSCE=ORDER_GSCBE;
|
|
ORDER_GPSCE=ORDER_GSCBE;
|
|
ORDER_GPSCBE=ORDER_GSCBE;
|
|
|
|
// Escape
|
|
const
|
|
OCODE_GESCP =$D5; // Escape
|
|
|
|
|
|
//* type describes type of escape order, identifier gives the escape
|
|
//* order if the type is registered
|
|
const
|
|
GESCP_ML = 253;
|
|
|
|
type
|
|
ORDER_GESCP=record // ogescp
|
|
uchType: Byte;
|
|
uchIdent: Byte;
|
|
auchData: Array[0..GESCP_ML-1] of Byte; // Escape data
|
|
end;
|
|
|
|
const
|
|
GESCP_REG =$80; // identifier is registered
|
|
|
|
// Escape (Bitblt)
|
|
const
|
|
GEBB_REGID =$02; // uchIdent - Bitblt
|
|
|
|
ETYPE_GEBB =$800200D5;
|
|
|
|
GEBB_LMP =29;
|
|
|
|
type
|
|
ORDERL_GEBB=record // olgebb
|
|
fbFlags: Byte;
|
|
usMix: Word;
|
|
cPoints: Byte;
|
|
hbmSrc: HBITMAP;
|
|
lReserved: Longint;
|
|
lOptions: Longint;
|
|
aptPoints: Array[0..GEBB_LMP-1] of POINTL;
|
|
end;
|
|
|
|
// Escape (Set Pel)
|
|
const
|
|
GEPEL_REGID =$01; // uchIdent - Set Pel
|
|
|
|
ETYPE_GEPEL =$800100D5;
|
|
|
|
// Escape (DrawBits)
|
|
GEDB_REGID =$04; // uchIdent - DrawBits
|
|
|
|
ETYPE_GEDB =$800400D5;
|
|
|
|
type
|
|
ORDERL_GEDB=record // olgedb
|
|
fsFlags: Word;
|
|
usMix: Word;
|
|
pBits: Pointer;
|
|
pbmi: PBITMAPINFO2;
|
|
lOptions: Longint;
|
|
rclTargetRect: RECTL;
|
|
rclSourceRect: RECTL;
|
|
end;
|
|
|
|
// Escape (FloodFill)
|
|
const
|
|
GEFF_REGID =$03; // uchIdent - FloodFill
|
|
|
|
ETYPE_GEFF =$800300D5;
|
|
|
|
type
|
|
ORDERL_GEFF=record // olgeff
|
|
fsFlags: Byte;
|
|
auchColor: Array[0..3-1] of Byte;
|
|
end;
|
|
|
|
// Element Types for attribute bundles
|
|
const
|
|
ETYPE_LINEBUNDLE =$0000FD01;
|
|
ETYPE_CHARBUNDLE =$0000FD02;
|
|
ETYPE_MARKERBUNDLE =$0000FD03;
|
|
ETYPE_AREABUNDLE =$0000FD04;
|
|
ETYPE_IMAGEBUNDLE =$0000FD05;
|
|
|
|
//***************************************************************************\
|
|
//*
|
|
//* Very long orders
|
|
//*
|
|
//***************************************************************************/
|
|
|
|
// macro to tell whether this is a very long order
|
|
{$define VLONG_ORDER(oc):=((oc)=OCODE_VLONG)}
|
|
|
|
// Very long order structure
|
|
const
|
|
VORDER_ML =65531;
|
|
|
|
type
|
|
VORDER=record // vord
|
|
idCode: Byte;
|
|
uchQualifier: Byte;
|
|
uchLength: SWPUSHORT;
|
|
uchData: Array[0..VORDER_ML-1] of Byte;
|
|
end;
|
|
|
|
// Character String Extended
|
|
const
|
|
OCODEQ_GCCHSTE =$B0; // Qualifier - current posn
|
|
OCODEQ_GCHSTE =$F0; // Qualifier - given position
|
|
OCODEQ_GTCHSPA =$F4; // Tabbed Char String At
|
|
|
|
ETYPE_GCCHSTE =$0000FEB0;
|
|
ETYPE_GCHSTE =$0000FEF0;
|
|
|
|
type
|
|
ORDERS_GCCHSTE=record // osgcchste
|
|
fbFlags: Byte;
|
|
uchReserved: Byte;
|
|
ptRect: Array[0..2-1] of POINTS;
|
|
cchString: SWPUSHORT;
|
|
achString: Array[0..1-1] of AnsiChar;
|
|
adx: Array[0..1-1] of Integer;
|
|
end;
|
|
|
|
ORDERL_GCCHSTE=record // olgcchste
|
|
fbFlags: Byte;
|
|
uchReserved: Byte;
|
|
ptRect: Array[0..2-1] of POINTL;
|
|
cchString: SWPUSHORT;
|
|
achString: Array[0..1-1] of AnsiChar;
|
|
adx: Array[0..1-1] of Longint;
|
|
end;
|
|
|
|
ORDERL_GTCHSPA=record // olgcchspa
|
|
fbFlags: Byte;
|
|
uchReserved: Byte;
|
|
ptRect: Array[0..2-1] of POINTL;
|
|
cchString: SWPUSHORT;
|
|
achString: Array[0..1-1] of AnsiChar;
|
|
adx: Array[0..2-1] of Longint;
|
|
tabs: Array[0..1-1] of Longint;
|
|
end;
|
|
|
|
const
|
|
GCCHSTE_DRAWRECT =$80;
|
|
GCCHSTE_NORECT =$00;
|
|
GCCHSTE_CLIP =$40;
|
|
GCCHSTE_NOCLIP =$00;
|
|
GCCHSTE_DEEMPHASIZE =$20; // Reserved
|
|
GCCHSTE_NODEEMPHASIZE =$00;
|
|
GCCHSTE_LEAVEPOS =$10;
|
|
GCCHSTE_MOVEPOS =$00;
|
|
GCCHSTE_UNDERSCORE =$08;
|
|
GCCHSTE_NOUNDERSCORE =$00;
|
|
GCCHSTE_STRIKEOUT =$04;
|
|
GCCHSTE_NOSTRIKEOUT =$00;
|
|
GTCHSPA_STARTPOS =$02;
|
|
GTCHSPA_NOSTARTPOS =$00;
|
|
|
|
// Extended Escape
|
|
OCODEQ_GEESCP =$D5; // Qualifier - extended escape
|
|
|
|
GEESCP_ML =65533;
|
|
|
|
type
|
|
ORDER_GEESCP=record // ogeescp
|
|
uchType: Byte;
|
|
uchIdent: Byte;
|
|
auchData: Array[0..GEESCP_ML-1] of Byte;
|
|
end;
|
|
|
|
//#pragma pack() /* reset to default packing */
|
|
|
|
|
|
|
|
function GpiCreatePS(hab,hdc : cardinal;var psizlSize : SIZEL;flOptions : cardinal) : cardinal;cdecl;
|
|
function GpiDestroyPS(hps : cardinal) : longbool;cdecl;
|
|
function GpiAssociate(hps,hdc : cardinal) : longbool;cdecl;
|
|
function GpiRestorePS(hps : cardinal;lPSid : longint) : longbool;cdecl;
|
|
function GpiSavePS(hps : cardinal) : longint;cdecl;
|
|
function GpiErase(hps : cardinal) : longbool;cdecl;
|
|
function GpiQueryDevice(hps : cardinal) : cardinal;cdecl;
|
|
function GpiResetPS(hps,flOptions : cardinal) : longbool;cdecl;
|
|
function GpiSetPS(hps : cardinal;var psizlsize : SIZEL;flOptions : cardinal) : longbool;cdecl;
|
|
function GpiQueryPS(hps : cardinal;var psizlSize : SIZEL) : cardinal;cdecl;
|
|
function GpiErrorSegmentData(hps : cardinal;var plSegment,plContext : longint) : longint; cdecl;
|
|
function GpiQueryDrawControl(hps : cardinal;lControl : longint) : longint;cdecl;
|
|
function GpiSetDrawControl(hps : cardinal;lControl,lValue : longint) : longbool;cdecl;
|
|
function GpiQueryDrawingMode(hps : cardinal) : longint;cdecl;
|
|
function GpiSetDrawingMode(hps : cardinal;lMode : longint) : longbool;cdecl;
|
|
function GpiQueryStopDraw(hps : cardinal) : longint;cdecl;
|
|
function GpiSetStopDraw(hps : cardinal;lValue : longint) : longbool;cdecl;
|
|
function GpiCorrelateChain(hps : cardinal;lType : longint;var pptlPick : POINTL;lMaxHits,lMaxDepth : longint;var pl2 : longint) : longint;cdecl;
|
|
function GpiQueryTag(hps : cardinal;var plTag : longint) : longbool;cdecl;
|
|
function GpiSetTag(hps : cardinal;lTag : longint) : longbool;cdecl;
|
|
function GpiQueryPickApertureSize(hps : cardinal;var psizlSize : SIZEL) : longbool; cdecl;
|
|
function GpiSetPickApertureSize(hps : cardinal;lOptions : longint;var psizlSize : SIZEL) : longbool; cdecl;
|
|
function GpiQueryPickAperturePosition(hps : cardinal;var pptlPoint : POINTL) : longbool; cdecl;
|
|
function GpiSetPickAperturePosition(hps : cardinal;var pptlPick : POINTL) : longbool; cdecl;
|
|
function GpiQueryBoundaryData(hps : cardinal;var prclBoundary : RECTL) : longbool; cdecl;
|
|
function GpiResetBoundaryData(hps : cardinal) : longbool; cdecl;
|
|
function GpiCorrelateFrom(hps : cardinal;lFirstSegment,lLastSegment,lType : longint;var pptlPick : POINTL;lMaxHits,lMaxDepth : longint;var plSegTag : longint) : longint; cdecl;
|
|
function GpiCorrelateSegment(hps : cardinal;lSegment,lType : longint;var pptlPick : POINTL;lMaxHits,lMaxDepth : longint;var alSegTag : longint) : longint; cdecl;
|
|
function GpiOpenSegment(hps : cardinal;lSegment : longint) : longbool; cdecl;
|
|
function GpiCloseSegment(hps : cardinal) : longbool; cdecl;
|
|
function GpiDeleteSegment(hps : cardinal;lSegid : longint) : longbool; cdecl;
|
|
function GpiQueryInitialSegmentAttrs(hps : cardinal;lAttribute : longint) : longint; cdecl;
|
|
function GpiSetInitialSegmentAttrs(hps : cardinal;lAttribute,lValue : longint) : longbool; cdecl;
|
|
function GpiQuerySegmentAttrs(hps : cardinal;lSegid,lAttribute : longint) : longint; cdecl;
|
|
function GpiSetSegmentAttrs(hps : cardinal;lSegid,lAttribute,lValue : longint) : longbool; cdecl;
|
|
function GpiQuerySegmentPriority(hps : cardinal;lRefSegid,lOrder : longint) : longint; cdecl;
|
|
function GpiSetSegmentPriority(hps : cardinal;lSegid,lRefSegid,lOrder : longint) : longbool; cdecl;
|
|
function GpiDeleteSegments(hps : cardinal;lFirstSegment,lLastSegment : longint) : longbool; cdecl;
|
|
function GpiQuerySegmentNames(hps : cardinal;lFirstSegid,lLastSegid,lMax : longint;var alSegids : longint) : longint; cdecl;
|
|
function GpiGetData(hps : cardinal;lSegid : longint;var plOffset : longint;lFormat,lLength : longint;var pbData : BYTE) : longint; cdecl;
|
|
function GpiPutData(hps : cardinal;lFormat : longint;var plCount : longint;var pbData : BYTE) : longint; cdecl;
|
|
function GpiDrawChain(hps : cardinal) : longbool; cdecl;
|
|
function GpiDrawFrom(hps : cardinal;lFirstSegment,lLastSegment : longint) : longbool; cdecl;
|
|
function GpiDrawSegment(hps : cardinal;lSegment : longint) : longbool; cdecl;
|
|
function GpiDrawDynamics(hps : cardinal) : longbool; cdecl;
|
|
function GpiRemoveDynamics(hps : cardinal;lFirstSegid,lLastSegid : longint) : longbool; cdecl;
|
|
function GpiBeginElement(hps : cardinal;lType : longint;pszDesc : PAnsiChar) : longbool; cdecl;
|
|
function GpiEndElement(hps : cardinal) : longbool; cdecl;
|
|
function GpiLabel(hps : cardinal;lLabel : longint) : longbool; cdecl;
|
|
function GpiElement(hps : cardinal;lType : longint;pszDesc : PAnsiChar;lLength : longint;var pbData : BYTE) : longint; cdecl;
|
|
function GpiQueryElement(hps : cardinal;lOff,lMaxLength : longint;var pbData : BYTE) : longint; cdecl;
|
|
function GpiDeleteElement(hps : cardinal) : longbool; cdecl;
|
|
function GpiDeleteElementRange(hps : cardinal;lFirstElement,lLastElement : longint) : longbool; cdecl;
|
|
function GpiDeleteElementsBetweenLabels(hps : cardinal;lFirstLabel,lLastLabel : longint) : longbool; cdecl;
|
|
function GpiQueryEditMode(hps : cardinal) : longint; cdecl;
|
|
function GpiSetEditMode(hps : cardinal;lMode : longint) : longbool; cdecl;
|
|
function GpiQueryElementPointer(hps : cardinal) : longint; cdecl;
|
|
function GpiSetElementPointer(hps : cardinal;lElement : longint) : longbool; cdecl;
|
|
function GpiOffsetElementPointer(hps : cardinal;loffset : longint) : longbool; cdecl;
|
|
function GpiQueryElementType(hps : cardinal;var plType : longint;lLength : longint;pszData : PAnsiChar) : longint; cdecl;
|
|
function GpiSetElementPointerAtLabel(hps : cardinal;lLabel : longint) : longbool; cdecl;
|
|
function GpiQuerySegmentTransformMatrix(hps : cardinal;lSegid,lCount : longint;var pmatlfArray : MATRIXLF) : longbool; cdecl;
|
|
function GpiSetSegmentTransformMatrix(hps : cardinal;lSegid,lCount : longint;var pmatlfarray : MATRIXLF;lOptions : longint) : longbool; cdecl;
|
|
function GpiConvert(hps : cardinal;lSrc,lTarg,lCount : longint;var aptlPoints : POINTL) : longbool; cdecl;
|
|
function GpiConvertWithMatrix(hps : cardinal;lCountp : longint;var aptlPoints : POINTL;lCount : longint;var pmatlfArray : MATRIXLF) : longbool; cdecl;
|
|
function GpiQueryModelTransformMatrix(hps : cardinal;lCount : longint;var pmatlfArray : MATRIXLF) : longbool; cdecl;
|
|
function GpiSetModelTransformMatrix(hps : cardinal;lCount : longint;var pmatlfArray : MATRIXLF;lOptions : longint) : longbool; cdecl;
|
|
function GpiCallSegmentMatrix(hps : cardinal;lSegment,lCount : longint;var pmatlfArray : MATRIXLF;lOptions : longint) : longint; cdecl;
|
|
function GpiQueryDefaultViewMatrix(hps : cardinal;lCount : longint;var pmatlfArray : MATRIXLF) : longbool; cdecl;
|
|
function GpiSetDefaultViewMatrix(hps : cardinal;lCount : longint;var pmatlfarray : MATRIXLF;lOptions : longint) : longbool; cdecl;
|
|
function GpiQueryPageViewport(hps : cardinal;var prclViewport : RECTL) : longbool; cdecl;
|
|
function GpiSetPageViewport(hps : cardinal;var prclViewport : RECTL) : longbool; cdecl;
|
|
function GpiQueryViewingTransformMatrix(hps : cardinal;lCount : longint;var pmatlfArray : MATRIXLF) : longbool; cdecl;
|
|
function GpiSetViewingTransformMatrix(hps : cardinal;lCount : longint;var pmatlfArray : MATRIXLF;lOptions : longint) : longbool; cdecl;
|
|
function GpiTranslate(hps : cardinal;var pmatrixlf : MATRIXLF;long : longint;var ppointl : POINTL) : longbool; cdecl;
|
|
function GpiScale(hps : cardinal;var p1 : MATRIXLF;p2 : longint;var p3 : longint;var p4 : POINTL) : longbool; cdecl;
|
|
function GpiRotate(p1 : cardinal;var p2 : MATRIXLF;p3,p4 : longint;var p5 : POINTL) : longbool; cdecl;
|
|
function GpiSetGraphicsField(hps : cardinal;var prclField : RECTL) : longbool; cdecl;
|
|
function GpiQueryGraphicsField(hps : cardinal;var prclField : RECTL) : longbool; cdecl;
|
|
function GpiSetViewingLimits(hps : cardinal;var prclLimits : RECTL) : longbool; cdecl;
|
|
function GpiQueryViewingLimits(hps : cardinal;var prclLimits : RECTL) : longbool; cdecl;
|
|
function GpiBeginPath(hps : cardinal;lPath : longint) : longbool; cdecl;
|
|
function GpiEndPath(hps : cardinal) : longbool; cdecl;
|
|
function GpiCloseFigure(hps : cardinal) : longbool; cdecl;
|
|
function GpiModifyPath(hps : cardinal;lPath,lMode : longint) : longbool; cdecl;
|
|
function GpiFillPath(hps : cardinal;lPath,lOptions : longint) : longint; cdecl;
|
|
function GpiSetClipPath(hps : cardinal;lPath,lOptions : longint) : longbool; cdecl;
|
|
function GpiOutlinePath(hps : cardinal;lPath,lOptions : longint) : longint; cdecl;
|
|
function GpiPathToRegion(GpiH : cardinal;lPath,lOptions : longint) : cardinal; cdecl;
|
|
function GpiStrokePath(hps : cardinal;lPath : longint;flOptions : cardinal) : longint; cdecl;
|
|
function GpiCreateLogColorTable(hps,flOptions : cardinal;lFormat,lStart,lCount : longint;var alTable : longint) : longbool; cdecl;
|
|
function GpiQueryColorData(hps : cardinal;lCount : longint;var alArray : longint) : longbool; cdecl;
|
|
function GpiQueryLogColorTable(hps,flOptions : cardinal;lStart,lCount : longint;var alArray : longint) : longint; cdecl;
|
|
function GpiQueryRealColors(hps,flOptions : cardinal;lStart,lCount : longint;var alColors : longint) : longint; cdecl;
|
|
function GpiQueryNearestColor(hps,flOptions : cardinal;lRgbIn : longint) : longint; cdecl;
|
|
function GpiQueryColorIndex(hps,flOptions : cardinal;lRgbColor : longint) : longint; cdecl;
|
|
function GpiQueryRGBColor(hps,flOptions : cardinal;lColorIndex : longint) : longint; cdecl;
|
|
function GpiCreatePalette(hab,flOptions,ulFormat,ulCount : cardinal;var aulTable) : cardinal; cdecl;
|
|
function GpiDeletePalette(hpal : cardinal) : longbool; cdecl;
|
|
function GpiSelectPalette(hps,hpal : cardinal) : cardinal; cdecl;
|
|
function GpiAnimatePalette(hpal,ulFormat,ulStart,ulCount : cardinal;var aulTable) : longint; cdecl;
|
|
function GpiSetPaletteEntries(hpal,ulFormat,ulStart,ulCount : cardinal;var aulTable) : longbool; cdecl;
|
|
function GpiQueryPalette(hps : cardinal) : cardinal; cdecl;
|
|
function GpiQueryPaletteInfo(hpal,hps,flOptions,ulStart,ulCount : cardinal;var aulArray) : longint; cdecl;
|
|
function GpiSetColor(hps : cardinal;lColor : longint) : longbool; cdecl;
|
|
function GpiQueryColor(hps : cardinal) : longint; cdecl;
|
|
function GpiBox(hps : cardinal;lControl : longint;var pptlPoint : POINTL;lHRound,lVRound : longint) : longint; cdecl;
|
|
function GpiMove(hps : cardinal;var pptlPoint : POINTL) : longbool; cdecl;
|
|
function GpiLine(hps : cardinal;var pptlEndPoint : POINTL) : longint; cdecl;
|
|
function GpiPolyLine(hps : cardinal;lCount : longint;var aptlPoints : POINTL) : longint; cdecl;
|
|
function GpiPolyLineDisjoint(hps : cardinal;lCount : longint;var aptlPoints : POINTL) : longint; cdecl;
|
|
function GpiSetPattern(hps : cardinal;lPatternSymbol : longint) : longbool; cdecl;
|
|
function GpiQueryPattern(hps : cardinal) : longint; cdecl;
|
|
function GpiBeginArea(hps,flOptions : cardinal) : longbool; cdecl;
|
|
function GpiEndArea(hps : cardinal) : longint; cdecl;
|
|
function GpiCharString(hps : cardinal;lCount : longint;pchString : PAnsiChar) : longint; cdecl;
|
|
function GpiCharStringAt(hps : cardinal;var pptlPoint : POINTL;lCount : longint;pchString : PAnsiChar) : longint; cdecl;
|
|
function GpiSetAttrMode(hps : cardinal;lMode : longint) : longbool; cdecl;
|
|
function GpiQueryAttrMode(hps : cardinal) : longint; cdecl;
|
|
function GpiSetAttrs(hps : cardinal;lPrimType : longint;flAttrMask,flDefMask : cardinal;ppbunAttrs : pointer) : longbool; cdecl;
|
|
function GpiQueryAttrs(hps : cardinal;lPrimType : longint;flAttrMask : cardinal;ppbunAttrs : pointer) : longint; cdecl;
|
|
function GpiSetBackColor(hps : cardinal;lColor : longint) : longbool; cdecl;
|
|
function GpiQueryBackColor(hps : cardinal) : longint; cdecl;
|
|
function GpiSetMix(hps : cardinal;lMixMode : longint) : longbool; cdecl;
|
|
function GpiQueryMix(hps : cardinal) : longint; cdecl;
|
|
function GpiSetBackMix(hps : cardinal;lMixMode : longint) : longbool; cdecl;
|
|
function GpiQueryBackMix(hps : cardinal) : longint; cdecl;
|
|
function GpiSetLineType(hps : cardinal;lLineType : longint) : longbool; cdecl;
|
|
function GpiQueryLineType(hps : cardinal) : longint; cdecl;
|
|
function GpiSetLineWidth(hps : cardinal;fxLineWidth : longint) : longbool; cdecl;
|
|
function GpiQueryLineWidth(hps : cardinal) : longint; cdecl;
|
|
function GpiSetLineWidthGeom(hps : cardinal;lLineWidth : longint) : longbool; cdecl;
|
|
function GpiQueryLineWidthGeom(hps : cardinal) : longint; cdecl;
|
|
function GpiSetLineEnd(hps : cardinal;lLineEnd : longint) : longbool; cdecl;
|
|
function GpiQueryLineEnd(hps : cardinal) : longint; cdecl;
|
|
function GpiSetLineJoin(hps : cardinal;lLineJoin : longint) : longbool; cdecl;
|
|
function GpiQueryLineJoin(hps : cardinal) : longint; cdecl;
|
|
function GpiSetCurrentPosition(hps : cardinal;var pptlPoint : POINTL) : longbool; cdecl;
|
|
function GpiQueryCurrentPosition(hps : cardinal;var pptlPoint : POINTL) : longbool; cdecl;
|
|
function GpiSetArcParams(hps : cardinal;var parcpArcParams : ARCPARAMS) : longbool; cdecl;
|
|
function GpiQueryArcParams(hps : cardinal;var parcpArcParams : ARCPARAMS) : longbool; cdecl;
|
|
function GpiPointArc(hps : cardinal;var pptl2 : POINTL) : longint; cdecl;
|
|
function GpiFullArc(hps : cardinal;lControl,fxMultiplier : longint) : longint; cdecl;
|
|
function GpiPartialArc(hps : cardinal;var pptlCenter : POINTL;fxMultiplier,fxStartAngle,fxSweepAngle : longint) : longint; cdecl;
|
|
function GpiPolyFillet(hps : cardinal;lCount : longint;var aptlPoints : POINTL) : longint; cdecl;
|
|
function GpiPolySpline(hps : cardinal;lCount : longint;var aptlPoints : POINTL) : longint; cdecl;
|
|
function GpiPolyFilletSharp(hps : cardinal;lCount : longint;var aptlPoints : POINTL;var afxPoints : longint) : longint; cdecl;
|
|
function GpiSetPatternSet(hps : cardinal;lSet : longint) : longbool; cdecl;
|
|
function GpiQueryPatternSet(hps : cardinal) : longint; cdecl;
|
|
function GpiSetPatternRefPoint(hps : cardinal;var pptlRefPoint : POINTL) : longbool; cdecl;
|
|
function GpiQueryPatternRefPoint(hps : cardinal;var pptlRefPoint : POINTL) : longbool; cdecl;
|
|
function GpiQueryCharStringPos(hps,flOptions : cardinal;lCount : longint;pchString : PAnsiChar;var alXincrements : longint;var aptlPositions : POINTL) : longbool; cdecl;
|
|
function GpiQueryCharStringPosAt(hps : cardinal;var pptlStart : POINTL;flOptions : cardinal;lCount : longint;pchString : PAnsiChar;var alXincrements : longint;var aptlPositions : POINTL) : longbool; cdecl;
|
|
function GpiQueryTextBox(hps : cardinal;lCount1 : longint;pchString : PAnsiChar;lCount2 : longint;var aptlPoints : POINTL) : longbool; cdecl;
|
|
function GpiQueryDefCharBox(hps : cardinal;var psizlSize : SIZEL) : longbool; cdecl;
|
|
function GpiSetCharSet(hps : cardinal;llcid : longint) : longbool; cdecl;
|
|
function GpiQueryCharSet(hps : cardinal) : longint; cdecl;
|
|
function GpiSetCharBox(hps : cardinal;var psizfxBox : SIZEF) : longbool; cdecl;
|
|
function GpiQueryCharBox(hps : cardinal;var psizfxSize : SIZEF) : longbool; cdecl;
|
|
function GpiSetCharAngle(hps : cardinal;var pgradlAngle : GRADIENTL) : longbool; cdecl;
|
|
function GpiQueryCharAngle(hps : cardinal;var pgradlAngle : GRADIENTL) : longbool; cdecl;
|
|
function GpiSetCharShear(hps : cardinal;var pptlAngle : POINTL) : longbool; cdecl;
|
|
function GpiQueryCharShear(hps : cardinal;var pptlShear : POINTL) : longbool; cdecl;
|
|
function GpiSetCharDirection(hps : cardinal;lDirection : longint) : longbool; cdecl;
|
|
function GpiQueryCharDirection(hps : cardinal) : longint; cdecl;
|
|
function GpiSetCharMode(hps : cardinal;lMode : longint) : longbool; cdecl;
|
|
function GpiQueryCharMode(hps : cardinal) : longint; cdecl;
|
|
function GpiSetTextAlignment(hps : cardinal;lHoriz,lVert : longint) : longbool; cdecl;
|
|
function GpiQueryTextAlignment(hps : cardinal;var plHoriz,plVert : longint) : longbool; cdecl;
|
|
function GpiCharStringPos(hps : cardinal;var prclRect : RECTL;flOptions : cardinal;lCount : longint;pchString : PAnsiChar;var alAdx : longint) : longint; cdecl;
|
|
function GpiCharStringPosAt(hps : cardinal;var pptlStart : POINTL;var prclRect : RECTL;flOptions : cardinal;lCount : longint;pchString : PAnsiChar;var alAdx : longint) : longint; cdecl;
|
|
function GpiSetCharExtra(hps : cardinal;Extra : longint) : longbool; cdecl;
|
|
function GpiSetCharBreakExtra(hps : cardinal;BreakExtra : longint) : longbool; cdecl;
|
|
function GpiQueryCharExtra(hps : cardinal;var Extra : longint) : longbool; cdecl;
|
|
function GpiQueryCharBreakExtra(hps : cardinal;var BreakExtra : longint) : longbool; cdecl;
|
|
function GpiMarker(hps : cardinal;var pptlPoint : POINTL) : longint; cdecl;
|
|
function GpiPolyMarker(hps : cardinal;lCount : longint;var aptlPoints : POINTL) : longint; cdecl;
|
|
function GpiSetMarker(hps : cardinal;lSymbol : longint) : longbool; cdecl;
|
|
function GpiSetMarkerBox(hps : cardinal;var psizfxSize : SIZEF) : longbool; cdecl;
|
|
function GpiSetMarkerSet(hps : cardinal;lSet : longint) : longbool; cdecl;
|
|
function GpiQueryMarker(hps : cardinal) : longint; cdecl;
|
|
function GpiQueryMarkerBox(hps : cardinal;var psizfxSize : SIZEF) : longbool; cdecl;
|
|
function GpiQueryMarkerSet(hps : cardinal) : longint; cdecl;
|
|
function GpiImage(hps : cardinal;lFormat : longint;var psizlImageSize : SIZEL;lLength : longint;var pbData : BYTE) : longint; cdecl;
|
|
function GpiPop(hps : cardinal;lCount : longint) : longbool; cdecl;
|
|
function GpiPtVisible(hps : cardinal;var pptlPoint : POINTL) : longint; cdecl;
|
|
function GpiRectVisible(hps : cardinal;var prclRectangle : RECTL) : longint; cdecl;
|
|
function GpiComment(hps : cardinal;lLength : longint;var pbData : BYTE) : longbool; cdecl;
|
|
function GpiCreateLogFont(hps : cardinal;var pName : STR8;lLcid : longint;var pfatAttrs : FATTRS) : longint; cdecl;
|
|
function GpiDeleteSetId(hps : cardinal;lLcid : longint) : longbool; cdecl;
|
|
function GpiLoadFonts(hab : cardinal;pszFilename : PAnsiChar) : longbool; cdecl;
|
|
function GpiUnloadFonts(hab : cardinal;pszFilename : PAnsiChar) : longbool; cdecl;
|
|
function GpiQueryFonts(hps,flOptions : cardinal;pszFacename : PAnsiChar;var plReqFonts : longint;lMetricsLength : longint;var afmMetrics : FONTMETRICS) : longint; cdecl;
|
|
function GpiQueryFontMetrics(hps : cardinal;lMetricsLength : longint;var pfmMetrics : FONTMETRICS) : longbool; cdecl;
|
|
function GpiQueryKerningPairs(hps : cardinal;lCount : longint;var akrnprData : KERNINGPAIRS) : longint; cdecl;
|
|
function GpiQueryWidthTable(hps : cardinal;lFirstChar,lCount : longint;var alData : longint) : longbool; cdecl;
|
|
function GpiQueryNumberSetIds(hps : cardinal) : longint; cdecl;
|
|
function GpiQuerySetIds(hps : cardinal;lCount : longint;var alTypes : longint;var aNames : STR8;var allcids : longint) : longbool; cdecl;
|
|
function GpiQueryFaceString(PS : cardinal;FamilyName : PAnsiChar;var attrs : FACENAMEDESC;length : longint;CompoundFaceName : PAnsiChar) : cardinal; cdecl;
|
|
function GpiQueryLogicalFont(PS : cardinal;lcid : longint;var name : STR8;var attrs : FATTRS;length : longint) : longbool; cdecl;
|
|
function GpiQueryFontAction(anchor,options : cardinal) : cardinal; cdecl;
|
|
function GpiLoadPublicFonts(p1 : cardinal;p2 : PAnsiChar):longbool; cdecl;
|
|
function GpiUnloadPublicFonts(p1 : cardinal;p2 : PAnsiChar) : longbool; cdecl;
|
|
function GpiSetCp(hps,ulCodePage : cardinal) : longbool; cdecl;
|
|
function GpiQueryCp(hps : cardinal) : cardinal; cdecl;
|
|
function GpiQueryFontFileDescriptions(hab : cardinal;pszFilename : PAnsiChar;var plCount : longint;var affdescsNames : FFDESCS) : longint; cdecl;
|
|
function GpiQueryFullFontFileDescs(hab : cardinal;pszFilename : PAnsiChar;var plCount : longint;pNames : pointer;var plNamesBuffLength : longint) : longint; cdecl;
|
|
function GpiBitBlt(hpsTarget,hpsSource : cardinal;lCount : longint;var aptlPoints : POINTL;lRop : longint;flOptions : cardinal) : longint; cdecl;
|
|
function GpiDeleteBitmap(hbm : cardinal) : longbool; cdecl;
|
|
function GpiLoadBitmap(hps,Resource,idBitmap : cardinal;lWidth,lHeight : longint) : cardinal; cdecl;
|
|
function GpiSetBitmap(hps,hbm : cardinal) : cardinal; cdecl;
|
|
function GpiWCBitBlt(hpsTarget,hbmSource : cardinal;lCount : longint;var aptlPoints : POINTL;lRop : longint;flOptions : cardinal) : longint; cdecl;
|
|
function GpiCreateBitmap(hps : cardinal;var pbmpNew : Tbitmapinfoheader2;flOptions : cardinal;var pbInitData : BYTE;var pbmiInfoTable : Tbitmapinfo2) : cardinal; cdecl;
|
|
function GpiSetBitmapBits(hps : cardinal;lScanStart,lScans : longint;var pbBuffer : BYTE;var pbmiInfoTable : Tbitmapinfo2) : longint; cdecl;
|
|
function GpiSetBitmapDimension(hbm : cardinal;var psizlBitmapDimension : SIZEL) : longbool; cdecl;
|
|
function GpiSetBitmapId(hps,hbm : cardinal;lLcid : longint) : longbool; cdecl;
|
|
function GpiQueryBitmapBits(hps : cardinal;lScanStart,lScans : longint;var pbBuffer : BYTE;var pbmiInfoTable :Tbitmapinfo2) : longint; cdecl;
|
|
function GpiQueryBitmapDimension(hbm : cardinal;var psizlBitmapDimension : SIZEL) : longbool; cdecl;
|
|
function GpiQueryBitmapHandle(hps : cardinal;lLcid : longint) : cardinal; cdecl;
|
|
function GpiQueryBitmapParameters(hbm : cardinal;var pbmpData : Tbitmapinfoheader) : longbool; cdecl;
|
|
function GpiQueryBitmapInfoHeader(hbm : cardinal;var pbmpData : Tbitmapinfoheader2) : longbool; cdecl;
|
|
function GpiQueryDeviceBitmapFormats(hps : cardinal;lCount : longint;var alArray : longint) : longbool; cdecl;
|
|
function GpiSetPel(hps : cardinal;var pptlPoint : POINTL) : longint; cdecl;
|
|
function GpiQueryPel(hps : cardinal;var pptlPoint : POINTL) : longint; cdecl;
|
|
function GpiFloodFill(hps : cardinal;lOptions,lColor : longint) : longint; cdecl;
|
|
function GpiDrawBits(hps : cardinal;pBits : pointer;var pbmiInfoTable :Tbitmapinfo2;lCount : longint;var aptlPoints : POINTL;lRop : longint;flOptions : cardinal) : longint; cdecl;
|
|
function GpiCombineRegion(hps,hrgnDest,hrgnSrc1,hrgnSrc2 : cardinal;lMode : longint) : longint; cdecl;
|
|
function GpiCreateRegion(hps : cardinal;lCount : longint;var arclRectangles : RECTL) : cardinal; cdecl;
|
|
function GpiDestroyRegion(hps,hrgn : cardinal) : longbool; cdecl;
|
|
function GpiEqualRegion(hps,hrgnSrc1,hrgnSrc2 : cardinal) : longint; cdecl;
|
|
function GpiOffsetRegion(hps,Hrgn : cardinal;var pptlOffset : POINTL) : longbool; cdecl;
|
|
function GpiPaintRegion(hps,hrgn : cardinal) : longint; cdecl;
|
|
function GpiFrameRegion(hps,hrgn : cardinal;var thickness : SIZEL) : longint; cdecl;
|
|
function GpiPtInRegion(hps,hrgn : cardinal;var pptlPoint : POINTL) : longint; cdecl;
|
|
function GpiQueryRegionBox(hps,hrgn : cardinal;var prclBound : RECTL) : longint; cdecl;
|
|
function GpiQueryRegionRects(hps,hrgn : cardinal;var prclBound : RECTL;var prgnrcControl : RGNRECT;var prclRect : RECTL) : longbool; cdecl;
|
|
function GpiRectInRegion(hps,hrgn : cardinal;var prclRect : RECTL) : longint; cdecl;
|
|
function GpiSetRegion(hps,hrgn : cardinal;lcount : longint;var arclRectangles : RECTL) : longbool;cdecl;
|
|
function GpiSetClipRegion(hps,hrgn : cardinal;var phrgnOld : cardinal) : longint; cdecl;
|
|
function GpiQueryClipRegion(hps : cardinal) : cardinal; cdecl;
|
|
function GpiQueryClipBox(hps : cardinal;var prclBound : RECTL) : longint; cdecl;
|
|
function GpiExcludeClipRectangle(hps : cardinal;var prclRectangle : RECTL) : longint; cdecl;
|
|
function GpiIntersectClipRectangle(hps : cardinal;var prclRectangle : RECTL) : longint; cdecl;
|
|
function GpiOffsetClipRegion(hps : cardinal;var pptlPoint : POINTL) : longint; cdecl;
|
|
function GpiCopyMetaFile(hmf : cardinal) : cardinal; cdecl;
|
|
function GpiDeleteMetaFile(hmf : cardinal) : longbool; cdecl;
|
|
function GpiLoadMetaFile(hab : cardinal;pszFilename : PAnsiChar) : cardinal; cdecl;
|
|
function GpiPlayMetaFile(hps,hmf : cardinal;lCount1 : longint;var alOptarray,plSegCount : longint;lCount2 : longint;pszDesc : PAnsiChar) : longint; cdecl;
|
|
function GpiQueryMetaFileBits(hmf : cardinal;lOffset,lLength : longint;var pbData : BYTE) : longbool; cdecl;
|
|
function GpiQueryMetaFileLength(hmf : cardinal) : longint; cdecl;
|
|
function GpiSaveMetaFile(hmf : cardinal;pszFilename : PAnsiChar) : longbool; cdecl;
|
|
function GpiSetMetaFileBits(hmf : cardinal;lOffset,lLength : longint;var pbBuffer : BYTE) : longbool; cdecl;
|
|
function GpiQueryDefArcParams(hps : cardinal;var parcpArcParams : ARCPARAMS) : longbool; cdecl;
|
|
function GpiQueryDefAttrs(hps : cardinal;lPrimType : longint;flAttrMask : cardinal;ppbunAttrs : pointer) : longbool; cdecl;
|
|
function GpiQueryDefTag(hps : cardinal;var plTag : longint) : longbool; cdecl;
|
|
function GpiQueryDefViewingLimits(hps : cardinal;var prclLimits : RECTL) : longbool; cdecl;
|
|
function GpiSetDefArcParams(hps : cardinal;var parcpArcParams : ARCPARAMS) : longbool; cdecl;
|
|
function GpiSetDefAttrs(hps : cardinal;lPrimType : longint;flAttrMask : cardinal;ppbunAttrs : pointer) : longbool;cdecl;
|
|
function GpiSetDefTag(hps : cardinal;lTag : longint) : longbool; cdecl;
|
|
function GpiSetDefViewingLimits(hps : cardinal;var prclLimits : RECTL) : longbool; cdecl;
|
|
function GpiPolygons(hps,ulCount : cardinal;var paplgn : POLYGON;flOptions,flModel : cardinal) : longint; cdecl;
|
|
|
|
implementation
|
|
|
|
function GpiCreatePS(hab,hdc : cardinal;var psizlSize : SIZEL;flOptions : cardinal) : cardinal;cdecl;external 'pmgpi' index 369;
|
|
function GpiDestroyPS(hps : cardinal) : longbool;cdecl;external 'pmgpi' index 379;
|
|
function GpiAssociate(hps,hdc : cardinal) : longbool;cdecl;external 'pmgpi' index 351;
|
|
function GpiRestorePS(hps : cardinal;lPSid : longint) : longbool;cdecl;external 'pmgpi' index 499;
|
|
function GpiSavePS(hps : cardinal) : longint;cdecl;external 'pmgpi' index 501;
|
|
function GpiErase(hps : cardinal) : longbool;cdecl;external 'pmgpi' index 389;
|
|
function GpiQueryDevice(hps : cardinal) : cardinal;cdecl;external 'pmgpi' index 444;
|
|
function GpiResetPS(hps,flOptions : cardinal) : longbool;cdecl;external 'pmgpi' index 498;
|
|
function GpiSetPS(hps : cardinal;var psizlsize : SIZEL;flOptions : cardinal) : longbool;cdecl;external 'pmgpi' index 539;
|
|
function GpiQueryPS(hps : cardinal;var psizlSize : SIZEL) : cardinal;cdecl;external 'pmgpi' index 471;
|
|
function GpiErrorSegmentData(hps : cardinal;var plSegment,plContext : longint) : longint;cdecl;external 'pmgpi' index 390;
|
|
function GpiQueryDrawControl(hps : cardinal;lControl : longint) : longint;cdecl;external 'pmgpi' index 446;
|
|
function GpiSetDrawControl(hps : cardinal;lControl,lValue : longint) : longbool;cdecl;external 'pmgpi' index 521;
|
|
function GpiQueryDrawingMode(hps : cardinal) : longint;cdecl;external 'pmgpi' index 447;
|
|
function GpiSetDrawingMode(hps : cardinal;lMode : longint) : longbool;cdecl;external 'pmgpi' index 522;
|
|
function GpiQueryStopDraw(hps : cardinal) : longint;cdecl; external 'pmgpi' index 487;
|
|
function GpiSetStopDraw(hps : cardinal;lValue : longint) : longbool; cdecl; external 'pmgpi' index 550;
|
|
function GpiCorrelateChain(hps : cardinal;lType : longint;var pptlPick : POINTL;lMaxHits : longint;lMaxDepth : longint;var pl2 : longint) : longint; cdecl; external 'pmgpi' index 366;
|
|
function GpiQueryTag(hps : cardinal;var plTag : longint) : longbool; cdecl; external 'pmgpi' index 488;
|
|
function GpiSetTag(hps : cardinal;lTag : longint) : longbool; cdecl; external 'pmgpi' index 551;
|
|
function GpiQueryPickApertureSize(hps : cardinal;var psizlSize : SIZEL) : longbool; cdecl; external 'pmgpi' index 478;
|
|
function GpiSetPickApertureSize(hps : cardinal;lOptions : longint;var psizlSize : SIZEL) : longbool; cdecl; external 'pmgpi' index 589;
|
|
function GpiQueryPickAperturePosition(hps : cardinal;var pptlPoint : POINTL) : longbool; cdecl; external 'pmgpi' index 477;
|
|
function GpiSetPickAperturePosition(hps : cardinal;var pptlPick : POINTL) : longbool; cdecl; external 'pmgpi' index 545;
|
|
function GpiQueryBoundaryData(hps : cardinal;var prclBoundary : RECTL) : longbool; cdecl; external 'pmgpi' index 428;
|
|
function GpiResetBoundaryData(hps : cardinal) : longbool; cdecl; external 'pmgpi' index 497;
|
|
function GpiCorrelateFrom(hps : cardinal;lFirstSegment,lLastSegment,lType : longint;var pptlPick : POINTL;lMaxHits,lMaxDepth : longint;var plSegTag : longint) : longint; cdecl; external 'pmgpi' index 367;
|
|
function GpiCorrelateSegment(hps : cardinal;lSegment,lType : longint;var pptlPick : POINTL;lMaxHits,lMaxDepth : longint;var alSegTag : longint) : longint; cdecl; external 'pmgpi' index 582;
|
|
function GpiOpenSegment(hps : cardinal;lSegment : longint) : longbool; cdecl; external 'pmgpi' index 408;
|
|
function GpiCloseSegment(hps : cardinal) : longbool; cdecl; external 'pmgpi' index 361;
|
|
function GpiDeleteSegment(hps : cardinal;lSegid : longint) : longbool; cdecl; external 'pmgpi' index 376;
|
|
function GpiQueryInitialSegmentAttrs(hps : cardinal;lAttribute : longint) : longint; cdecl; external 'pmgpi' index 455;
|
|
function GpiSetInitialSegmentAttrs(hps : cardinal;lAttribute,lValue : longint) : longbool; cdecl; external 'pmgpi' index 527;
|
|
function GpiQuerySegmentAttrs(hps : cardinal;lSegid,lAttribute : longint) : longint; cdecl; external 'pmgpi' index 482;
|
|
function GpiSetSegmentAttrs(hps : cardinal;lSegid,lAttribute,lValue : longint) : longbool; cdecl; external 'pmgpi' index 547;
|
|
function GpiQuerySegmentPriority(hps : cardinal;lRefSegid,lOrder : longint) : longint; cdecl; external 'pmgpi' index 484;
|
|
function GpiSetSegmentPriority(hps : cardinal;lSegid,lRefSegid,lOrder : longint) : longbool; cdecl; external 'pmgpi' index 548;
|
|
function GpiDeleteSegments(hps : cardinal;lFirstSegment,lLastSegment : longint) : longbool; cdecl; external 'pmgpi' index 377;
|
|
function GpiQuerySegmentNames(hps : cardinal;lFirstSegid,lLastSegid,lMax : longint;var alSegids : longint) : longint; cdecl; external 'pmgpi' index 483;
|
|
function GpiGetData(hps : cardinal;lSegid : longint;var plOffset : longint;lFormat,lLength : longint;var pbData : BYTE) : longint; cdecl; external 'pmgpi' index 394;
|
|
function GpiPutData(hps : cardinal;lFormat : longint;var plCount : longint;var pbData : BYTE) : longint; cdecl; external 'pmgpi' index 421;
|
|
function GpiDrawChain(hps : cardinal) : longbool; cdecl; external 'pmgpi' index 380;
|
|
function GpiDrawFrom(hps : cardinal;lFirstSegment,lLastSegment : longint) : longbool; cdecl; external 'pmgpi' index 382;
|
|
function GpiDrawSegment(hps : cardinal;lSegment : longint) : longbool; cdecl; external 'pmgpi' index 383;
|
|
function GpiDrawDynamics(hps : cardinal) : longbool; cdecl; external 'pmgpi' index 381;
|
|
function GpiRemoveDynamics(hps : cardinal;lFirstSegid,lLastSegid : longint) : longbool; cdecl; external 'pmgpi' index 496;
|
|
function GpiBeginElement(hps : cardinal;lType : longint;pszDesc : PAnsiChar) : longbool; cdecl; external 'pmgpi' index 353;
|
|
function GpiEndElement(hps : cardinal) : longbool; cdecl; external 'pmgpi' index 386;
|
|
function GpiLabel(hps : cardinal;lLabel : longint) : longbool; cdecl; external 'pmgpi' index 397;
|
|
function GpiElement(hps : cardinal;lType : longint;pszDesc : PAnsiChar;lLength : longint;var pbData : BYTE) : longint; cdecl; external 'pmgpi' index 384;
|
|
function GpiQueryElement(hps : cardinal;lOff,lMaxLength : longint;var pbData : BYTE) : longint; cdecl; external 'pmgpi' index 449;
|
|
function GpiDeleteElement(hps : cardinal) : longbool; cdecl; external 'pmgpi' index 372;
|
|
function GpiDeleteElementRange(hps : cardinal;lFirstElement,lLastElement : longint) : longbool; cdecl; external 'pmgpi' index 373;
|
|
function GpiDeleteElementsBetweenLabels(hps : cardinal;lFirstLabel,lLastLabel : longint) : longbool; cdecl; external 'pmgpi' index 374;
|
|
function GpiQueryEditMode(hps : cardinal) : longint; cdecl; external 'pmgpi' index 448;
|
|
function GpiSetEditMode(hps : cardinal;lMode : longint) : longbool; cdecl; external 'pmgpi' index 523;
|
|
function GpiQueryElementPointer(hps : cardinal) : longint; cdecl; external 'pmgpi' index 450;
|
|
function GpiSetElementPointer(hps : cardinal;lElement : longint) : longbool; cdecl; external 'pmgpi' index 524;
|
|
function GpiOffsetElementPointer(hps : cardinal;loffset : longint) : longbool; cdecl; external 'pmgpi' index 406;
|
|
function GpiQueryElementType(hps : cardinal;var plType : longint;lLength : longint;pszData : PAnsiChar) : longint; cdecl; external 'pmgpi' index 451;
|
|
function GpiSetElementPointerAtLabel(hps : cardinal;lLabel : longint) : longbool; cdecl; external 'pmgpi' index 525;
|
|
function GpiQuerySegmentTransformMatrix(hps : cardinal;lSegid,lCount : longint;var pmatlfArray : MATRIXLF) : longbool; cdecl; external 'pmgpi' index 485;
|
|
function GpiSetSegmentTransformMatrix(hps : cardinal;lSegid,lCount : longint;var pmatlfarray : MATRIXLF;lOptions : longint) : longbool; cdecl; external 'pmgpi' index 549;
|
|
function GpiConvert(hps : cardinal;lSrc,lTarg,lCount : longint;var aptlPoints : POINTL) : longbool; cdecl; external 'pmgpi' index 364;
|
|
function GpiConvertWithMatrix(hps : cardinal;lCountp : longint;var aptlPoints : POINTL;lCount : longint;var pmatlfArray : MATRIXLF) : longbool; cdecl; external 'pmgpi' index 618;
|
|
function GpiQueryModelTransformMatrix(hps : cardinal;lCount : longint;var pmatlfArray : MATRIXLF) : longbool; cdecl; external 'pmgpi' index 468;
|
|
function GpiSetModelTransformMatrix(hps : cardinal;lCount : longint;var pmatlfArray : MATRIXLF;lOptions : longint) : longbool; cdecl; external 'pmgpi' index 538;
|
|
function GpiCallSegmentMatrix(hps : cardinal;lSegment,lCount : longint;var pmatlfArray : MATRIXLF;lOptions : longint) : longint; cdecl; external 'pmgpi' index 357;
|
|
function GpiQueryDefaultViewMatrix(hps : cardinal;lCount : longint;var pmatlfArray : MATRIXLF) : longbool; cdecl; external 'pmgpi' index 443;
|
|
function GpiSetDefaultViewMatrix(hps : cardinal;lCount : longint;var pmatlfarray : MATRIXLF;lOptions : longint) : longbool; cdecl; external 'pmgpi' index 520;
|
|
function GpiQueryPageViewport(hps : cardinal;var prclViewport : RECTL) : longbool; cdecl; external 'pmgpi' index 472;
|
|
function GpiSetPageViewport(hps : cardinal;var prclViewport : RECTL) : longbool; cdecl; external 'pmgpi' index 540;
|
|
function GpiQueryViewingTransformMatrix(hps : cardinal;lCount : longint;var pmatlfArray : MATRIXLF) : longbool; cdecl; external 'pmgpi' index 491;
|
|
function GpiSetViewingTransformMatrix(hps : cardinal;lCount : longint;var pmatlfArray : MATRIXLF;lOptions : longint) : longbool; cdecl; external 'pmgpi' index 553;
|
|
function GpiTranslate(hps : cardinal;var pmatrixlf : MATRIXLF;long : longint;var ppointl : POINTL) : longbool; cdecl; external 'pmgpi' index 564;
|
|
function GpiScale(hps : cardinal;var p1 : MATRIXLF;p2 : longint;var p3 : longint;var p4 : POINTL) : longbool; cdecl; external 'pmgpi' index 565;
|
|
function GpiRotate(p1 : cardinal;var p2 : MATRIXLF;p3,p4 : longint;var p5 : POINTL) : longbool; cdecl; external 'pmgpi' index 566;
|
|
function GpiSetGraphicsField(hps : cardinal;var prclField : RECTL) : longbool; cdecl; external 'pmgpi' index 526;
|
|
function GpiQueryGraphicsField(hps : cardinal;var prclField : RECTL) : longbool; cdecl; external 'pmgpi' index 454;
|
|
function GpiSetViewingLimits(hps : cardinal;var prclLimits : RECTL) : longbool; cdecl; external 'pmgpi' index 552;
|
|
function GpiQueryViewingLimits(hps : cardinal;var prclLimits : RECTL) : longbool; cdecl; external 'pmgpi' index 490;
|
|
function GpiBeginPath(hps : cardinal;lPath : longint) : longbool; cdecl; external 'pmgpi' index 354;
|
|
function GpiEndPath(hps : cardinal) : longbool; cdecl; external 'pmgpi' index 387;
|
|
function GpiCloseFigure(hps : cardinal) : longbool; cdecl; external 'pmgpi' index 360;
|
|
function GpiModifyPath(hps : cardinal;lPath,lMode : longint) : longbool; cdecl; external 'pmgpi' index 403;
|
|
function GpiFillPath(hps : cardinal;lPath,lOptions : longint) : longint; cdecl; external 'pmgpi' index 392;
|
|
function GpiSetClipPath(hps : cardinal;lPath,lOptions : longint) : longbool; cdecl; external 'pmgpi' index 515;
|
|
function GpiOutlinePath(hps : cardinal;lPath,lOptions : longint) : longint; cdecl; external 'pmgpi' index 563;
|
|
function GpiPathToRegion(GpiH : cardinal;lPath,lOptions : longint) : cardinal; cdecl; external 'pmgpi' index 559;
|
|
function GpiStrokePath(hps : cardinal;lPath : longint;flOptions : cardinal) : longint; cdecl; external 'pmgpi' index 554;
|
|
function GpiCreateLogColorTable(hps,flOptions : cardinal;lFormat,lStart,lCount : longint;var alTable : longint) : longbool; cdecl; external 'pmgpi' index 592;
|
|
function GpiQueryColorData(hps : cardinal;lCount : longint;var alArray : longint) : longbool; cdecl; external 'pmgpi' index 438;
|
|
function GpiQueryLogColorTable(hps,flOptions : cardinal;lStart,lCount : longint;var alArray : longint) : longint; cdecl; external 'pmgpi' index 593;
|
|
function GpiQueryRealColors(hps,flOptions : cardinal;lStart,lCount : longint;var alColors : longint) : longint; cdecl; external 'pmgpi' index 480;
|
|
function GpiQueryNearestColor(hps,flOptions : cardinal;lRgbIn : longint) : longint; cdecl; external 'pmgpi' index 469;
|
|
function GpiQueryColorIndex(hps,flOptions : cardinal;lRgbColor : longint) : longint; cdecl; external 'pmgpi' index 439;
|
|
function GpiQueryRGBColor(hps,flOptions : cardinal;lColorIndex : longint) : longint; cdecl; external 'pmgpi' index 479;
|
|
function GpiCreatePalette(hab,flOptions,ulFormat,ulCount : cardinal;var aulTable) : cardinal; cdecl; external 'pmgpi' index 594;
|
|
function GpiDeletePalette(hpal : cardinal) : longbool; cdecl; external 'pmgpi' index 577;
|
|
function GpiSelectPalette(hps,hpal : cardinal) : cardinal; cdecl; external 'pmgpi' index 578;
|
|
function GpiAnimatePalette(hpal,ulFormat,ulStart,ulCount : cardinal;var aulTable) : longint; cdecl; external 'pmgpi' index 595;
|
|
function GpiSetPaletteEntries(hpal,ulFormat,ulStart,ulCount : cardinal;var aulTable) : longbool; cdecl; external 'pmgpi' index 596;
|
|
function GpiQueryPalette(hps : cardinal) : cardinal; cdecl; external 'pmgpi' index 579;
|
|
function GpiQueryPaletteInfo(hpal,hps,flOptions,ulStart,ulCount : cardinal;var aulArray) : longint; cdecl; external 'pmgpi' index 597;
|
|
function GpiSetColor(hps : cardinal;lColor : longint) : longbool; cdecl; external 'pmgpi' index 517;
|
|
function GpiQueryColor(hps : cardinal) : longint; cdecl; external 'pmgpi' index 437;
|
|
function GpiBox(hps : cardinal;lControl : longint;var pptlPoint : POINTL;lHRound,lVRound : longint) : longint; cdecl; external 'pmgpi' index 356;
|
|
function GpiMove(hps : cardinal;var pptlPoint : POINTL) : longbool; cdecl; external 'pmgpi' index 404;
|
|
function GpiLine(hps : cardinal;var pptlEndPoint : POINTL) : longint; cdecl; external 'pmgpi' index 398;
|
|
function GpiPolyLine(hps : cardinal;lCount : longint;var aptlPoints : POINTL) : longint; cdecl; external 'pmgpi' index 415;
|
|
function GpiPolyLineDisjoint(hps : cardinal;lCount : longint;var aptlPoints : POINTL) : longint; cdecl; external 'pmgpi' index 558;
|
|
function GpiSetPattern(hps : cardinal;lPatternSymbol : longint) : longbool; cdecl; external 'pmgpi' index 541;
|
|
function GpiQueryPattern(hps : cardinal) : longint; cdecl; external 'pmgpi' index 473;
|
|
function GpiBeginArea(hps,flOptions : cardinal) : longbool; cdecl; external 'pmgpi' index 352;
|
|
function GpiEndArea(hps : cardinal) : longint; cdecl; external 'pmgpi' index 385;
|
|
function GpiCharString(hps : cardinal;lCount : longint;pchString : PAnsiChar) : longint; cdecl; external 'pmgpi' index 358;
|
|
function GpiCharStringAt(hps : cardinal;var pptlPoint : POINTL;lCount : longint;pchString : PAnsiChar) : longint; cdecl; external 'pmgpi' index 359;
|
|
function GpiSetAttrMode(hps : cardinal;lMode : longint) : longbool; cdecl; external 'pmgpi' index 503;
|
|
function GpiQueryAttrMode(hps : cardinal) : longint; cdecl; external 'pmgpi' index 423;
|
|
function GpiSetAttrs(hps : cardinal;lPrimType : longint;flAttrMask,flDefMask : cardinal;ppbunAttrs : pointer) : longbool; cdecl; external 'pmgpi' index 588;
|
|
function GpiQueryAttrs(hps : cardinal;lPrimType : longint;flAttrMask : cardinal;ppbunAttrs : pointer) : longint; cdecl; external 'pmgpi' index 583;
|
|
function GpiSetBackColor(hps : cardinal;lColor : longint) : longbool; cdecl; external 'pmgpi' index 504;
|
|
function GpiQueryBackColor(hps : cardinal) : longint; cdecl; external 'pmgpi' index 424;
|
|
function GpiSetMix(hps : cardinal;lMixMode : longint) : longbool; cdecl; external 'pmgpi' index 537;
|
|
function GpiQueryMix(hps : cardinal) : longint; cdecl; external 'pmgpi' index 467;
|
|
function GpiSetBackMix(hps : cardinal;lMixMode : longint) : longbool; cdecl; external 'pmgpi' index 505;
|
|
function GpiQueryBackMix(hps : cardinal) : longint; cdecl; external 'pmgpi' index 425;
|
|
function GpiSetLineType(hps : cardinal;lLineType : longint) : longbool; cdecl; external 'pmgpi' index 530;
|
|
function GpiQueryLineType(hps : cardinal) : longint; cdecl; external 'pmgpi' index 459;
|
|
function GpiSetLineWidth(hps : cardinal;fxLineWidth : longint) : longbool; cdecl; external 'pmgpi' index 531;
|
|
function GpiQueryLineWidth(hps : cardinal) : longint; cdecl; external 'pmgpi' index 460;
|
|
function GpiSetLineWidthGeom(hps : cardinal;lLineWidth : longint) : longbool; cdecl; external 'pmgpi' index 532;
|
|
function GpiQueryLineWidthGeom(hps : cardinal) : longint; cdecl; external 'pmgpi' index 461;
|
|
function GpiSetLineEnd(hps : cardinal;lLineEnd : longint) : longbool; cdecl; external 'pmgpi' index 528;
|
|
function GpiQueryLineEnd(hps : cardinal) : longint; cdecl; external 'pmgpi' index 457;
|
|
function GpiSetLineJoin(hps : cardinal;lLineJoin : longint) : longbool; cdecl; external 'pmgpi' index 529;
|
|
function GpiQueryLineJoin(hps : cardinal) : longint; cdecl; external 'pmgpi' index 458;
|
|
function GpiSetCurrentPosition(hps : cardinal;var pptlPoint : POINTL) : longbool; cdecl; external 'pmgpi' index 519;
|
|
function GpiQueryCurrentPosition(hps : cardinal;var pptlPoint : POINTL) : longbool; cdecl; external 'pmgpi' index 441;
|
|
function GpiSetArcParams(hps : cardinal;var parcpArcParams : ARCPARAMS) : longbool; cdecl; external 'pmgpi' index 502;
|
|
function GpiQueryArcParams(hps : cardinal;var parcpArcParams : ARCPARAMS) : longbool; cdecl; external 'pmgpi' index 422;
|
|
function GpiPointArc(hps : cardinal;var pptl2 : POINTL) : longint; cdecl; external 'pmgpi' index 412;
|
|
function GpiFullArc(hps : cardinal;lControl,fxMultiplier : longint) : longint; cdecl; external 'pmgpi' index 393;
|
|
function GpiPartialArc(hps : cardinal;var pptlCenter : POINTL;fxMultiplier,fxStartAngle,fxSweepAngle : longint) : longint; cdecl; external 'pmgpi' index 612;
|
|
function GpiPolyFillet(hps : cardinal;lCount : longint;var aptlPoints : POINTL) : longint; cdecl; external 'pmgpi' index 413;
|
|
function GpiPolySpline(hps : cardinal;lCount : longint;var aptlPoints : POINTL) : longint; cdecl; external 'pmgpi' index 417;
|
|
function GpiPolyFilletSharp(hps : cardinal;lCount : longint;var aptlPoints : POINTL;var afxPoints : longint) : longint; cdecl; external 'pmgpi' index 414;
|
|
function GpiSetPatternSet(hps : cardinal;lSet : longint) : longbool; cdecl; external 'pmgpi' index 543;
|
|
function GpiQueryPatternSet(hps : cardinal) : longint; cdecl; external 'pmgpi' index 475;
|
|
function GpiSetPatternRefPoint(hps : cardinal;var pptlRefPoint : POINTL) : longbool; cdecl; external 'pmgpi' index 542;
|
|
function GpiQueryPatternRefPoint(hps : cardinal;var pptlRefPoint : POINTL) : longbool; cdecl; external 'pmgpi' index 474;
|
|
function GpiQueryCharStringPos(hps,flOptions : cardinal;lCount : longint;pchString : PAnsiChar;var alXincrements : longint;var aptlPositions : POINTL) : longbool; cdecl; external 'pmgpi' index 584;
|
|
function GpiQueryCharStringPosAt(hps : cardinal;var pptlStart : POINTL;flOptions : cardinal;lCount : longint;pchString : PAnsiChar;var alXincrements : longint;var aptlPositions : POINTL) : longbool; cdecl; external 'pmgpi' index 585;
|
|
function GpiQueryTextBox(hps : cardinal;lCount1 : longint;pchString : PAnsiChar;lCount2 : longint;var aptlPoints : POINTL) : longbool; cdecl; external 'pmgpi' index 489;
|
|
function GpiQueryDefCharBox(hps : cardinal;var psizlSize : SIZEL) : longbool; cdecl; external 'pmgpi' index 442;
|
|
function GpiSetCharSet(hps : cardinal;llcid : longint) : longbool; cdecl; external 'pmgpi' index 513;
|
|
function GpiQueryCharSet(hps : cardinal) : longint; cdecl; external 'pmgpi' index 433;
|
|
function GpiSetCharBox(hps : cardinal;var psizfxBox : SIZEF) : longbool; cdecl; external 'pmgpi' index 510;
|
|
function GpiQueryCharBox(hps : cardinal;var psizfxSize : SIZEF) : longbool; cdecl; external 'pmgpi' index 430;
|
|
function GpiSetCharAngle(hps : cardinal;var pgradlAngle : GRADIENTL) : longbool; cdecl; external 'pmgpi' index 509;
|
|
function GpiQueryCharAngle(hps : cardinal;var pgradlAngle : GRADIENTL) : longbool; cdecl; external 'pmgpi' index 429;
|
|
function GpiSetCharShear(hps : cardinal;var pptlAngle : POINTL) : longbool; cdecl; external 'pmgpi' index 514;
|
|
function GpiQueryCharShear(hps : cardinal;var pptlShear : POINTL) : longbool; cdecl; external 'pmgpi' index 434;
|
|
function GpiSetCharDirection(hps : cardinal;lDirection : longint) : longbool; cdecl; external 'pmgpi' index 511;
|
|
function GpiQueryCharDirection(hps : cardinal) : longint; cdecl; external 'pmgpi' index 431;
|
|
function GpiSetCharMode(hps : cardinal;lMode : longint) : longbool; cdecl; external 'pmgpi' index 512;
|
|
function GpiQueryCharMode(hps : cardinal) : longint; cdecl; external 'pmgpi' index 432;
|
|
function GpiSetTextAlignment(hps : cardinal;lHoriz,lVert : longint) : longbool; cdecl; external 'pmgpi' index 649;
|
|
function GpiQueryTextAlignment(hps : cardinal;var plHoriz,plVert : longint) : longbool; cdecl; external 'pmgpi' index 648;
|
|
function GpiCharStringPos(hps : cardinal;var prclRect : RECTL;flOptions : cardinal;lCount : longint;pchString : PAnsiChar;var alAdx : longint) : longint; cdecl; external 'pmgpi' index 580;
|
|
function GpiCharStringPosAt(hps : cardinal;var pptlStart : POINTL;var prclRect : RECTL;flOptions : cardinal;lCount : longint;pchString : PAnsiChar;var alAdx : longint) : longint; cdecl; external 'pmgpi' index 581;
|
|
function GpiSetCharExtra(hps : cardinal;Extra : longint) : longbool; cdecl; external 'pmgpi' index 614;
|
|
function GpiSetCharBreakExtra(hps : cardinal;BreakExtra : longint) : longbool; cdecl; external 'pmgpi' index 616;
|
|
function GpiQueryCharExtra(hps : cardinal;var Extra : longint) : longbool; cdecl; external 'pmgpi' index 613;
|
|
function GpiQueryCharBreakExtra(hps : cardinal;var BreakExtra : longint) : longbool; cdecl; external 'pmgpi' index 615;
|
|
function GpiMarker(hps : cardinal;var pptlPoint : POINTL) : longint; cdecl; external 'pmgpi' index 402;
|
|
function GpiPolyMarker(hps : cardinal;lCount : longint;var aptlPoints : POINTL) : longint; cdecl; external 'pmgpi' index 416;
|
|
function GpiSetMarker(hps : cardinal;lSymbol : longint) : longbool; cdecl; external 'pmgpi' index 533;
|
|
function GpiSetMarkerBox(hps : cardinal;var psizfxSize : SIZEF) : longbool; cdecl; external 'pmgpi' index 534;
|
|
function GpiSetMarkerSet(hps : cardinal;lSet : longint) : longbool; cdecl; external 'pmgpi' index 535;
|
|
function GpiQueryMarker(hps : cardinal) : longint; cdecl; external 'pmgpi' index 462;
|
|
function GpiQueryMarkerBox(hps : cardinal;var psizfxSize : SIZEF) : longbool; cdecl; external 'pmgpi' index 463;
|
|
function GpiQueryMarkerSet(hps : cardinal) : longint; cdecl; external 'pmgpi' index 464;
|
|
function GpiImage(hps : cardinal;lFormat : longint;var psizlImageSize : SIZEL;lLength : longint;var pbData : BYTE) : longint; cdecl; external 'pmgpi' index 395;
|
|
function GpiPop(hps : cardinal;lCount : longint) : longbool; cdecl; external 'pmgpi' index 418;
|
|
function GpiPtVisible(hps : cardinal;var pptlPoint : POINTL) : longint; cdecl; external 'pmgpi' index 420;
|
|
function GpiRectVisible(hps : cardinal;var prclRectangle : RECTL) : longint; cdecl; external 'pmgpi' index 495;
|
|
function GpiComment(hps : cardinal;lLength : longint;var pbData : BYTE) : longbool; cdecl; external 'pmgpi' index 363;
|
|
function GpiCreateLogFont(hps : cardinal;var pName : STR8;lLcid : longint;var pfatAttrs : FATTRS) : longint; cdecl; external 'pmgpi' index 368;
|
|
function GpiDeleteSetId(hps : cardinal;lLcid : longint) : longbool; cdecl; external 'pmgpi' index 378;
|
|
function GpiLoadFonts(hab : cardinal;pszFilename : PAnsiChar) : longbool; cdecl; external 'pmgpi' index 400;
|
|
function GpiUnloadFonts(hab : cardinal;pszFilename : PAnsiChar) : longbool; cdecl; external 'pmgpi' index 555;
|
|
function GpiQueryFonts(hps,flOptions : cardinal;pszFacename : PAnsiChar;var plReqFonts : longint;lMetricsLength : longint;var afmMetrics : FONTMETRICS) : longint; cdecl; external 'pmgpi' index 586;
|
|
function GpiQueryFontMetrics(hps : cardinal;lMetricsLength : longint;var pfmMetrics : FONTMETRICS) : longbool; cdecl; external 'pmgpi' index 453;
|
|
function GpiQueryKerningPairs(hps : cardinal;lCount : longint;var akrnprData : KERNINGPAIRS) : longint; cdecl; external 'pmgpi' index 456;
|
|
function GpiQueryWidthTable(hps : cardinal;lFirstChar,lCount : longint;var alData : longint) : longbool; cdecl; external 'pmgpi' index 492;
|
|
function GpiQueryNumberSetIds(hps : cardinal) : longint; cdecl; external 'pmgpi' index 470;
|
|
function GpiQuerySetIds(hps : cardinal;lCount : longint;var alTypes : longint;var aNames : STR8;var allcids : longint) : longbool; cdecl; external 'pmgpi' index 486;
|
|
function GpiQueryFaceString(PS : cardinal;FamilyName : PAnsiChar;var attrs : FACENAMEDESC;length : longint;CompoundFaceName : PAnsiChar) : cardinal; cdecl; external 'pmgpi' index 575;
|
|
function GpiQueryLogicalFont(PS : cardinal;lcid : longint;var name : STR8;var attrs : FATTRS;length : longint) : longbool; cdecl; external 'pmgpi' index 574;
|
|
function GpiQueryFontAction(anchor,options : cardinal) : cardinal; cdecl; external 'pmgpi' index 576;
|
|
function GpiLoadPublicFonts(p1 : cardinal;p2 : PAnsiChar) : longbool; cdecl; external 'pmgpi' index 622;
|
|
function GpiUnloadPublicFonts(p1 : cardinal;p2 : PAnsiChar) : longbool; cdecl; external 'pmgpi' index 623;
|
|
function GpiSetCp(hps,ulCodePage : cardinal) : longbool; cdecl; external 'pmgpi' index 518;
|
|
function GpiQueryCp(hps : cardinal) : cardinal; cdecl; external 'pmgpi' index 440;
|
|
function GpiQueryFontFileDescriptions(hab : cardinal;pszFilename : PAnsiChar;var plCount : longint;var affdescsNames : FFDESCS) : longint; cdecl; external 'pmgpi' index 452;
|
|
function GpiQueryFullFontFileDescs(hab : cardinal;pszFilename : PAnsiChar;var plCount : longint;pNames : pointer;var plNamesBuffLength : longint) : longint; cdecl; external 'pmgpi' index 657;
|
|
function GpiBitBlt(hpsTarget,hpsSource : cardinal;lCount : longint;var aptlPoints : POINTL;lRop : longint;flOptions : cardinal) : longint; cdecl; external 'pmgpi' index 355;
|
|
function GpiDeleteBitmap(hbm : cardinal) : longbool; cdecl; external 'pmgpi' index 371;
|
|
function GpiLoadBitmap(hps,Resource,idBitmap:cardinal;lWidth,lHeight : longint) : cardinal; cdecl; external 'pmgpi' index 399;
|
|
function GpiSetBitmap(hps,hbm : cardinal) : cardinal; cdecl; external 'pmgpi' index 506;
|
|
function GpiWCBitBlt(hpsTarget,hbmSource : cardinal;lCount : longint;var aptlPoints : POINTL;lRop : longint;flOptions : cardinal) : longint; cdecl; external 'pmgpi' index 557;
|
|
function GpiCreateBitmap(hps : cardinal;var pbmpNew :Tbitmapinfoheader2;flOptions : cardinal;var pbInitData : BYTE;var pbmiInfoTable :Tbitmapinfo2) : cardinal; cdecl; external 'pmgpi' index 598;
|
|
function GpiSetBitmapBits(hps : cardinal;lScanStart,lScans : longint;var pbBuffer : BYTE;var pbmiInfoTable :Tbitmapinfo2) : longint; cdecl; external 'pmgpi' index 602;
|
|
function GpiSetBitmapDimension(hbm : cardinal;var psizlBitmapDimension : SIZEL) : longbool; cdecl; external 'pmgpi' index 507;
|
|
function GpiSetBitmapId(hps,hbm : cardinal;lLcid : longint) : longbool; cdecl; external 'pmgpi' index 508;
|
|
function GpiQueryBitmapBits(hps : cardinal;lScanStart,lScans : longint;var pbBuffer : BYTE;var pbmiInfoTable :Tbitmapinfo2) : longint; cdecl; external 'pmgpi' index 599;
|
|
function GpiQueryBitmapDimension(hbm : cardinal;var psizlBitmapDimension : SIZEL) : longbool; cdecl; external 'pmgpi' index 426;
|
|
function GpiQueryBitmapHandle(hps : cardinal;lLcid : longint) : cardinal; cdecl; external 'pmgpi' index 427;
|
|
function GpiQueryBitmapParameters(hbm : cardinal;var pbmpData :Tbitmapinfoheader) : longbool; cdecl; external 'pmgpi' index 573;
|
|
function GpiQueryBitmapInfoHeader(hbm : cardinal;var pbmpData :Tbitmapinfoheader2) : longbool; cdecl; external 'pmgpi' index 601;
|
|
function GpiQueryDeviceBitmapFormats(hps : cardinal;lCount : longint;var alArray : longint) : longbool; cdecl; external 'pmgpi' index 445;
|
|
function GpiSetPel(hps : cardinal;var pptlPoint : POINTL) : longint; cdecl; external 'pmgpi' index 544;
|
|
function GpiQueryPel(hps : cardinal;var pptlPoint : POINTL) : longint; cdecl; external 'pmgpi' index 476;
|
|
function GpiFloodFill(hps : cardinal;lOptions,lColor : longint) : longint; cdecl; external 'pmgpi' index 560;
|
|
function GpiDrawBits(hps : cardinal;pBits : pointer;var pbmiInfoTable :Tbitmapinfo2;lCount : longint;var aptlPoints : POINTL;lRop : longint;flOptions : cardinal) : longint; cdecl; external 'pmgpi' index 603;
|
|
function GpiCombineRegion(hps,hrgnDest,hrgnSrc1,hrgnSrc2 : cardinal;lMode : longint) : longint; cdecl; external 'pmgpi' index 362;
|
|
function GpiCreateRegion(hps : cardinal;lCount : longint;var arclRectangles : RECTL) : cardinal; cdecl; external 'pmgpi' index 370;
|
|
function GpiDestroyRegion(hps,hrgn : cardinal) : longbool; cdecl; external 'pmgpi' index 611;
|
|
function GpiEqualRegion(hps,hrgnSrc1,hrgnSrc2 : cardinal) : longint; cdecl; external 'pmgpi' index 388;
|
|
function GpiOffsetRegion(hps,Hrgn : cardinal;var pptlOffset : POINTL) : longbool; cdecl; external 'pmgpi' index 407;
|
|
function GpiPaintRegion(hps,hrgn : cardinal) : longint; cdecl; external 'pmgpi' index 409;
|
|
function GpiFrameRegion(hps,hrgn : cardinal;var thickness : SIZEL) : longint; cdecl; external 'pmgpi' index 617;
|
|
function GpiPtInRegion(hps,hrgn : cardinal;var pptlPoint : POINTL) : longint; cdecl; external 'pmgpi' index 419;
|
|
function GpiQueryRegionBox(hps,hrgn : cardinal;var prclBound : RECTL) : longint; cdecl; external 'pmgpi' index 481;
|
|
function GpiQueryRegionRects(hps,hrgn : cardinal;var prclBound : RECTL;var prgnrcControl : RGNRECT;var prclRect : RECTL) : longbool; cdecl; external 'pmgpi' index 587;
|
|
function GpiRectInRegion(hps,hrgn : cardinal;var prclRect : RECTL) : longint; cdecl; external 'pmgpi' index 494;
|
|
function GpiSetRegion(hps,hrgn : cardinal;lcount : longint;var arclRectangles : RECTL) : longbool; cdecl; external 'pmgpi' index 546;
|
|
function GpiSetClipRegion(hps,hrgn : cardinal;var phrgnOld : cardinal) : longint; cdecl; external 'pmgpi' index 516;
|
|
function GpiQueryClipRegion(hps : cardinal) : cardinal; cdecl; external 'pmgpi' index 436;
|
|
function GpiQueryClipBox(hps : cardinal;var prclBound : RECTL) : longint; cdecl; external 'pmgpi' index 435;
|
|
function GpiExcludeClipRectangle(hps : cardinal;var prclRectangle : RECTL) : longint; cdecl; external 'pmgpi' index 391;
|
|
function GpiIntersectClipRectangle(hps : cardinal;var prclRectangle : RECTL) : longint; cdecl; external 'pmgpi' index 396;
|
|
function GpiOffsetClipRegion(hps : cardinal;var pptlPoint : POINTL) : longint; cdecl; external 'pmgpi' index 405;
|
|
function GpiCopyMetaFile(hmf : cardinal) : cardinal; cdecl; external 'pmgpi' index 365;
|
|
function GpiDeleteMetaFile(hmf : cardinal) : longbool; cdecl; external 'pmgpi' index 375;
|
|
function GpiLoadMetaFile(hab : cardinal;pszFilename : PAnsiChar) : cardinal; cdecl; external 'pmgpi' index 401;
|
|
function GpiPlayMetaFile(hps,hmf : cardinal;lCount1 : longint;var alOptarray,plSegCount : longint;lCount2 : longint;pszDesc : PAnsiChar) : longint; cdecl; external 'pmgpi' index 411;
|
|
function GpiQueryMetaFileBits(hmf : cardinal;lOffset,lLength : longint;var pbData : BYTE) : longbool; cdecl; external 'pmgpi' index 465;
|
|
function GpiQueryMetaFileLength(hmf : cardinal) : longint; cdecl; external 'pmgpi' index 466;
|
|
function GpiSaveMetaFile(hmf : cardinal;pszFilename : PAnsiChar) : longbool; cdecl; external 'pmgpi' index 500;
|
|
function GpiSetMetaFileBits(hmf : cardinal;lOffset,lLength : longint;var pbBuffer : BYTE) : longbool; cdecl; external 'pmgpi' index 536;
|
|
function GpiQueryDefArcParams(hps : cardinal;var parcpArcParams : ARCPARAMS) : longbool; cdecl; external 'pmgpi' index 567;
|
|
function GpiQueryDefAttrs(hps : cardinal;lPrimType : longint;flAttrMask : cardinal;ppbunAttrs : pointer) : longbool; cdecl; external 'pmgpi' index 590;
|
|
function GpiQueryDefTag(hps : cardinal;var plTag : longint) : longbool; cdecl; external 'pmgpi' index 568;
|
|
function GpiQueryDefViewingLimits(hps : cardinal;var prclLimits : RECTL) : longbool; cdecl; external 'pmgpi' index 569;
|
|
function GpiSetDefArcParams(hps : cardinal;var parcpArcParams : ARCPARAMS) : longbool; cdecl; external 'pmgpi' index 570;
|
|
function GpiSetDefAttrs(hps : cardinal;lPrimType : longint;flAttrMask : cardinal;ppbunAttrs : pointer) : longbool; cdecl; external 'pmgpi' index 591;
|
|
function GpiSetDefTag(hps : cardinal;lTag : longint) : longbool; cdecl; external 'pmgpi' index 571;
|
|
function GpiSetDefViewingLimits(hps : cardinal;var prclLimits : RECTL) : longbool; cdecl; external 'pmgpi' index 572;
|
|
function GpiPolygons(hps,ulCount : cardinal;var paplgn : POLYGON;flOptions,flModel : cardinal) : longint; cdecl; external 'pmgpi' index 650;
|
|
|
|
end.
|