From cc192abd33173fde7cd88b5bacac78652902db0c Mon Sep 17 00:00:00 2001 From: daniel Date: Thu, 6 May 1999 08:15:39 +0000 Subject: [PATCH] * New versions by Ramon Bosque --- rtl/os2/os2def.pas | 20 +- rtl/os2/pmgpi.pas | 2699 ++++++++++++++++++++------------------------ rtl/os2/pmwin.pas | 554 ++++----- 3 files changed, 1492 insertions(+), 1781 deletions(-) diff --git a/rtl/os2/os2def.pas b/rtl/os2/os2def.pas index 315db91605..797f89416a 100644 --- a/rtl/os2/os2def.pas +++ b/rtl/os2/os2def.pas @@ -114,15 +114,15 @@ const PDEVOPENDATA = pshortint; {Initially, ^PSZ} DEVOPENSTRUC = record - pszLogAddress : pshortint; - pszDriverName : pshortint; + pszLogAddress : pchar; + pszDriverName : pchar; pdriv : PDRIVDATA; - pszDataType : pshortint; - pszComment : pshortint; - pszQueueProcName : pshortint; - pszQueueProcParams : pshortint; - pszSpoolerParams : pshortint; - pszNetworkParams : pshortint; + pszDataType : pchar; + pszComment : pchar; + pszQueueProcName : pchar; + pszQueueProcParams : pchar; + pszSpoolerParams : pchar; + pszNetworkParams : pchar; end; PDEVOPENSTRUC = ^DEVOPENSTRUC; @@ -130,11 +130,11 @@ const PRINTDEST = record cb : cardinal; lType : longint; - pszToken : pshortint; + pszToken : pchar; lCount : longint; pdopData : PDEVOPENDATA; fl : cardinal; - pszPrinter : pshortint; + pszPrinter : pchar; end; PPRINTDEST = ^PRINTDEST; diff --git a/rtl/os2/pmgpi.pas b/rtl/os2/pmgpi.pas index c63d20be9e..692a926f33 100644 --- a/rtl/os2/pmgpi.pas +++ b/rtl/os2/pmgpi.pas @@ -1,1495 +1,1204 @@ -{**************************************************************************** - - Copyright (c) 1993,94 by Florian Kl„mpfl - - ****************************************************************************} -unit pmgpi; - - interface - - uses - os2def,pmbitmap; - - const - GPI_ERROR = 0; - GPI_OK = 1; - GPI_ALTERROR = (-1); - - type - FIXED = LONG; - - PFIXED = ^FIXED; - - FIXED88 = USHORT; - - FIXED114 = USHORT; - - SIZEL = record - cx : LONG; - cy : LONG; - end; - - PSIZEL = ^SIZEL; - - const - 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; - - function GpiCreatePS(hab : HAB;hdc : HDC;psizlSize : PSIZEL;flOptions : ULONG) : HPS; - - function GpiDestroyPS(hps : HPS) : BOOL; - - function GpiAssociate(hps : HPS;hdc : HDC) : BOOL; - - function GpiRestorePS(hps : HPS;lPSid : LONG) : BOOL; - - function GpiSavePS(hps : HPS) : LONG; - - function GpiErase(hps : HPS) : BOOL; - - function GpiQueryDevice(hps : HPS) : HDC; - - const - 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; - - function GpiResetPS(hps : HPS;flOptions : ULONG) : BOOL; - - function GpiSetPS(hps : HPS;psizlsize : PSIZEL;flOptions : ULONG) : BOOL; - - function GpiQueryPS(hps : HPS;psizlSize : PSIZEL) : ULONG; - - function GpiErrorSegmentData(hps : HPS;plSegment : PLONG;plContext : PLONG) : LONG; - - function GpiQueryDrawControl(hps : HPS;lControl : LONG) : LONG; - - function GpiSetDrawControl(hps : HPS;lControl : LONG;lValue : LONG) : BOOL; - - function GpiQueryDrawingMode(hps : HPS) : LONG; - - function GpiSetDrawingMode(hps : HPS;lMode : LONG) : BOOL; - - function GpiQueryStopDraw(hps : HPS) : LONG; - - function GpiSetStopDraw(hps : HPS;lValue : LONG) : BOOL; - - const - PICKAP_DEFAULT = 0; - PICKAP_REC = 2; - PICKSEL_VISIBLE = 0; - PICKSEL_ALL = 1; - GPI_HITS = 2; - - function GpiCorrelateChain(hps : HPS;lType : LONG;pptlPick : PPOINTL;lMaxHits : LONG;lMaxDepth : LONG;pl2 : PLONG) : LONG; - - function GpiQueryTag(hps : HPS;plTag : PLONG) : BOOL; - - function GpiSetTag(hps : HPS;lTag : LONG) : BOOL; - - function GpiQueryPickApertureSize(hps : HPS;psizlSize : PSIZEL) : BOOL; - - function GpiSetPickApertureSize(hps : HPS;lOptions : LONG;psizlSize : PSIZEL) : BOOL; - - function GpiQueryPickAperturePosition(hps : HPS;pptlPoint : PPOINTL) : BOOL; - - function GpiSetPickAperturePosition(hps : HPS;pptlPick : PPOINTL) : BOOL; - - function GpiQueryBoundaryData(hps : HPS;prclBoundary : PRECTL) : BOOL; - - function GpiResetBoundaryData(hps : HPS) : BOOL; - - function GpiCorrelateFrom(hps : HPS;lFirstSegment : LONG;lLastSegment : LONG;lType : LONG;pptlPick : PPOINTL;lMaxHits : LONG;lMaxDepth : LONG;plSegTag : PLONG) : LONG; - - function GpiCorrelateSegment(hps : HPS;lSegment : LONG;lType : LONG;pptlPick : PPOINTL;lMaxHits : LONG;lMaxDepth : LONG;alSegTag : PLONG) : LONG; - - const - 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; - - function GpiOpenSegment(hps : HPS;lSegment : LONG) : BOOL; - - function GpiCloseSegment(hps : HPS) : BOOL; - - function GpiDeleteSegment(hps : HPS;lSegid : LONG) : BOOL; - - function GpiQueryInitialSegmentAttrs(hps : HPS;lAttribute : LONG) : LONG; - - function GpiSetInitialSegmentAttrs(hps : HPS;lAttribute : LONG;lValue : LONG) : BOOL; - - function GpiQuerySegmentAttrs(hps : HPS;lSegid : LONG;lAttribute : LONG) : LONG; - - function GpiSetSegmentAttrs(hps : HPS;lSegid : LONG;lAttribute : LONG;lValue : LONG) : BOOL; - - function GpiQuerySegmentPriority(hps : HPS;lRefSegid : LONG;lOrder : LONG) : LONG; - - function GpiSetSegmentPriority(hps : HPS;lSegid : LONG;lRefSegid : LONG;lOrder : LONG) : BOOL; - - function GpiDeleteSegments(hps : HPS;lFirstSegment : LONG;lLastSegment : LONG) : BOOL; - - function GpiQuerySegmentNames(hps : HPS;lFirstSegid : LONG;lLastSegid : LONG;lMax : LONG;alSegids : PLONG) : LONG; - - function GpiGetData(hps : HPS;lSegid : LONG;plOffset : PLONG;lFormat : LONG;lLength : LONG;pbData : PBYTE) : LONG; - - function GpiPutData(hps : HPS;lFormat : LONG;plCount : PLONG;pbData : PBYTE) : LONG; - - function GpiDrawChain(hps : HPS) : BOOL; - - function GpiDrawFrom(hps : HPS;lFirstSegment : LONG;lLastSegment : LONG) : BOOL; - - function GpiDrawSegment(hps : HPS;lSegment : LONG) : BOOL; - - function GpiDrawDynamics(hps : HPS) : BOOL; - - function GpiRemoveDynamics(hps : HPS;lFirstSegid : LONG;lLastSegid : LONG) : BOOL; - - const - SEGEM_ERROR = 0; - SEGEM_INSERT = 1; - SEGEM_REPLACE = 2; - - function GpiBeginElement(hps : HPS;lType : LONG;pszDesc : PSZ) : BOOL; - - function GpiEndElement(hps : HPS) : BOOL; - - function GpiLabel(hps : HPS;lLabel : LONG) : BOOL; - - function GpiElement(hps : HPS;lType : LONG;pszDesc : PSZ;lLength : LONG;pbData : PBYTE) : LONG; - - function GpiQueryElement(hps : HPS;lOff : LONG;lMaxLength : LONG;pbData : PBYTE) : LONG; - - function GpiDeleteElement(hps : HPS) : BOOL; - - function GpiDeleteElementRange(hps : HPS;lFirstElement : LONG;lLastElement : LONG) : BOOL; - - function GpiDeleteElementsBetweenLabels(hps : HPS;lFirstLabel : LONG;lLastLabel : LONG) : BOOL; - - function GpiQueryEditMode(hps : HPS) : LONG; - - function GpiSetEditMode(hps : HPS;lMode : LONG) : BOOL; - - function GpiQueryElementPointer(hps : HPS) : LONG; - - function GpiSetElementPointer(hps : HPS;lElement : LONG) : BOOL; - - function GpiOffsetElementPointer(hps : HPS;loffset : LONG) : BOOL; - - function GpiQueryElementType(hps : HPS;plType : PLONG;lLength : LONG;pszData : PSZ) : LONG; - - function GpiSetElementPointerAtLabel(hps : HPS;lLabel : LONG) : BOOL; - - const - CVTC_WORLD = 1; - CVTC_MODEL = 2; - CVTC_DEFAULTPAGE = 3; - CVTC_PAGE = 4; - CVTC_DEVICE = 5; - TRANSFORM_REPLACE = 0; - TRANSFORM_ADD = 1; - TRANSFORM_PREEMPT = 2; - - type - MATRIXLF = record - fxM11 : FIXED; - fxM12 : FIXED; - lM13 : LONG; - fxM21 : FIXED; - fxM22 : FIXED; - lM23 : LONG; - lM31 : LONG; - lM32 : LONG; - lM33 : LONG; - end; - - PMATRIXLF = ^MATRIXLF; - - - function GpiQuerySegmentTransformMatrix(hps : HPS;lSegid : LONG;lCount : LONG;pmatlfArray : PMATRIXLF) : BOOL; - - function GpiSetSegmentTransformMatrix(hps : HPS;lSegid : LONG;lCount : LONG;pmatlfarray : PMATRIXLF;lOptions : LONG) : BOOL; - - function GpiConvert(hps : HPS;lSrc : LONG;lTarg : LONG;lCount : LONG;aptlPoints : PPOINTL) : BOOL; - - function GpiConvertWithMatrix(hps : HPS;lCountp : LONG;aptlPoints : PPOINTL;lCount : LONG;pmatlfArray : PMATRIXLF) : BOOL; - - function GpiQueryModelTransformMatrix(hps : HPS;lCount : LONG;pmatlfArray : PMATRIXLF) : BOOL; - - function GpiSetModelTransformMatrix(hps : HPS;lCount : LONG;pmatlfArray : PMATRIXLF;lOptions : LONG) : BOOL; - - function GpiCallSegmentMatrix(hps : HPS;lSegment : LONG;lCount : LONG;pmatlfArray : PMATRIXLF;lOptions : LONG) : LONG; - - function GpiQueryDefaultViewMatrix(hps : HPS;lCount : LONG;pmatlfArray : PMATRIXLF) : BOOL; - - function GpiSetDefaultViewMatrix(hps : HPS;lCount : LONG;pmatlfarray : PMATRIXLF;lOptions : LONG) : BOOL; - - function GpiQueryPageViewport(hps : HPS;prclViewport : PRECTL) : BOOL; - - function GpiSetPageViewport(hps : HPS;prclViewport : PRECTL) : BOOL; - - function GpiQueryViewingTransformMatrix(hps : HPS;lCount : LONG;pmatlfArray : PMATRIXLF) : BOOL; - - function GpiSetViewingTransformMatrix(hps : HPS;lCount : LONG;pmatlfArray : PMATRIXLF;lOptions : LONG) : BOOL; - - function GpiTranslate(hps : HPS;pmatrixlf : PMATRIXLF;long : LONG;ppointl : PPOINTL) : BOOL; - - function GpiScale(hps : HPS;p1 : PMATRIXLF;p2 : LONG;p3 : PFIXED;p4 : PPOINTL) : BOOL; - - function GpiRotate(p1 : HPS;p2 : PMATRIXLF;p3 : LONG;p4 : FIXED;p5 : PPOINTL) : BOOL; - - function GpiSetGraphicsField(hps : HPS;prclField : PRECTL) : BOOL; - - function GpiQueryGraphicsField(hps : HPS;prclField : PRECTL) : BOOL; - - function GpiSetViewingLimits(hps : HPS;prclLimits : PRECTL) : BOOL; - - function GpiQueryViewingLimits(hps : HPS;prclLimits : PRECTL) : BOOL; - - const - 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; - - function GpiBeginPath(hps : HPS;lPath : LONG) : BOOL; - - function GpiEndPath(hps : HPS) : BOOL; - - function GpiCloseFigure(hps : HPS) : BOOL; - - function GpiModifyPath(hps : HPS;lPath : LONG;lMode : LONG) : BOOL; - - function GpiFillPath(hps : HPS;lPath : LONG;lOptions : LONG) : LONG; - - function GpiSetClipPath(hps : HPS;lPath : LONG;lOptions : LONG) : BOOL; - - function GpiOutlinePath(hps : HPS;lPath : LONG;lOptions : LONG) : LONG; - - function GpiPathToRegion(GpiH : HPS;lPath : LONG;lOptions : LONG) : HRGN; - - function GpiStrokePath(hps : HPS;lPath : LONG;flOptions : ULONG) : LONG; - - const - 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; - - function GpiCreateLogColorTable(hps : HPS;flOptions : ULONG;lFormat : LONG;lStart : LONG;lCount : LONG;alTable : PLONG) : BOOL; - - function GpiQueryColorData(hps : HPS;lCount : LONG;alArray : PLONG) : BOOL; - - function GpiQueryLogColorTable(hps : HPS;flOptions : ULONG;lStart : LONG;lCount : LONG;alArray : PLONG) : LONG; - - function GpiQueryRealColors(hps : HPS;flOptions : ULONG;lStart : LONG;lCount : LONG;alColors : PLONG) : LONG; - - function GpiQueryNearestColor(hps : HPS;flOptions : ULONG;lRgbIn : LONG) : LONG; - - function GpiQueryColorIndex(hps : HPS;flOptions : ULONG;lRgbColor : LONG) : LONG; - - function GpiQueryRGBColor(hps : HPS;flOptions : ULONG;lColorIndex : LONG) : LONG; - - function GpiCreatePalette(hab : HAB;flOptions : ULONG;ulFormat : ULONG;ulCount : ULONG;aulTable : PULONG) : HPAL; - - function GpiDeletePalette(hpal : HPAL) : BOOL; - - function GpiSelectPalette(hps : HPS;hpal : HPAL) : HPAL; - - function GpiAnimatePalette(hpal : HPAL;ulFormat : ULONG;ulStart : ULONG;ulCount : ULONG;aulTable : PULONG) : LONG; - - function GpiSetPaletteEntries(hpal : HPAL;ulFormat : ULONG;ulStart : ULONG;ulCount : ULONG;aulTable : PULONG) : BOOL; - - function GpiQueryPalette(hps : HPS) : HPAL; - - function GpiQueryPaletteInfo(hpal : HPAL;hps : HPS;flOptions : ULONG;ulStart : ULONG;ulCount : ULONG;aulArray : PULONG) : LONG; - - const - 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; - - function GpiSetColor(hps : HPS;lColor : LONG) : BOOL; - - function GpiQueryColor(hps : HPS) : LONG; - - function GpiBox(hps : HPS;lControl : LONG;pptlPoint : PPOINTL;lHRound : LONG;lVRound : LONG) : LONG; - - function GpiMove(hps : HPS;pptlPoint : PPOINTL) : BOOL; - - function GpiLine(hps : HPS;pptlEndPoint : PPOINTL) : LONG; - - function GpiPolyLine(hps : HPS;lCount : LONG;aptlPoints : PPOINTL) : LONG; - - function GpiPolyLineDisjoint(hps : HPS;lCount : LONG;aptlPoints : PPOINTL) : LONG; - - function GpiSetPattern(hps : HPS;lPatternSymbol : LONG) : BOOL; - - function GpiQueryPattern(hps : HPS) : LONG; - - function GpiBeginArea(hps : HPS;flOptions : ULONG) : BOOL; - - function GpiEndArea(hps : HPS) : LONG; - - function GpiCharString(hps : HPS;lCount : LONG;pchString : PCH) : LONG; - - function GpiCharStringAt(hps : HPS;pptlPoint : PPOINTL;lCount : LONG;pchString : PCH) : LONG; - - const - 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; - - type - ARCPARAMS = record - lP : LONG; - lQ : LONG; - lR : LONG; - lS : LONG; - end; - - PARCPARAMS = ^ARCPARAMS; - - SIZEF = record - cx : FIXED; - cy : FIXED; - end; - - PSIZEF = ^SIZEF; - - GRADIENTL = record - x : LONG; - y : LONG; - end; - - PGRADIENTL = ^GRADIENTL; - - LINEBUNDLE = record - lColor : LONG; - lBackColor : LONG; - usMixMode : USHORT; - usBackMixMode : USHORT; - fxWidth : FIXED; - lGeomWidth : LONG; - usType : USHORT; - usEnd : USHORT; - usJoin : USHORT; - usReserved : USHORT; - end; - - PLINEBUNDLE = ^LINEBUNDLE; - - CHARBUNDLE = record - lColor : LONG; - lBackColor : LONG; - usMixMode : USHORT; - usBackMixMode : USHORT; - usSet : USHORT; - usPrecision : USHORT; - sizfxCell : SIZEF; - ptlAngle : POINTL; - ptlShear : POINTL; - usDirection : USHORT; - usTextAlign : USHORT; - fxExtra : FIXED; - fxBreakExtra : FIXED; - end; - - PCHARBUNDLE = ^CHARBUNDLE; - - MARKERBUNDLE = record - lColor : LONG; - lBackColor : LONG; - usMixMode : USHORT; - usBackMixMode : USHORT; - usSet : USHORT; - usSymbol : USHORT; - sizfxCell : SIZEF; - end; - - PMARKERBUNDLE = ^MARKERBUNDLE; - - AREABUNDLE = record - lColor : LONG; - lBackColor : LONG; - usMixMode : USHORT; - usBackMixMode : USHORT; - usSet : USHORT; - usSymbol : USHORT; - ptlRefPoint : POINTL; - end; - - PAREABUNDLE = ^AREABUNDLE; - - IMAGEBUNDLE = record - lColor : LONG; - lBackColor : LONG; - usMixMode : USHORT; - usBackMixMode : USHORT; - end; - - PIMAGEBUNDLE = ^IMAGEBUNDLE; - - PBUNDLE = PVOID; - - const - 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; - - function GpiSetAttrMode(hps : HPS;lMode : LONG) : BOOL; - - function GpiQueryAttrMode(hps : HPS) : LONG; - - function GpiSetAttrs(hps : HPS;lPrimType : LONG;flAttrMask : ULONG;flDefMask : ULONG;ppbunAttrs : PBUNDLE) : BOOL; - - function GpiQueryAttrs(hps : HPS;lPrimType : LONG;flAttrMask : ULONG;ppbunAttrs : PBUNDLE) : LONG; - - function GpiSetBackColor(hps : HPS;lColor : LONG) : BOOL; - - function GpiQueryBackColor(hps : HPS) : LONG; - - function GpiSetMix(hps : HPS;lMixMode : LONG) : BOOL; - - function GpiQueryMix(hps : HPS) : LONG; - - function GpiSetBackMix(hps : HPS;lMixMode : LONG) : BOOL; - - function GpiQueryBackMix(hps : HPS) : LONG; - - function GpiSetLineType(hps : HPS;lLineType : LONG) : BOOL; - - function GpiQueryLineType(hps : HPS) : LONG; - - function GpiSetLineWidth(hps : HPS;fxLineWidth : FIXED) : BOOL; - - function GpiQueryLineWidth(hps : HPS) : FIXED; - - function GpiSetLineWidthGeom(hps : HPS;lLineWidth : LONG) : BOOL; - - function GpiQueryLineWidthGeom(hps : HPS) : LONG; - - function GpiSetLineEnd(hps : HPS;lLineEnd : LONG) : BOOL; - - function GpiQueryLineEnd(hps : HPS) : LONG; - - function GpiSetLineJoin(hps : HPS;lLineJoin : LONG) : BOOL; - - function GpiQueryLineJoin(hps : HPS) : LONG; - - function GpiSetCurrentPosition(hps : HPS;pptlPoint : PPOINTL) : BOOL; - - function GpiQueryCurrentPosition(hps : HPS;pptlPoint : PPOINTL) : BOOL; - - function GpiSetArcParams(hps : HPS;parcpArcParams : PARCPARAMS) : BOOL; - - function GpiQueryArcParams(hps : HPS;parcpArcParams : PARCPARAMS) : BOOL; - - function GpiPointArc(hps : HPS;pptl2 : PPOINTL) : LONG; - - function GpiFullArc(hps : HPS;lControl : LONG;fxMultiplier : FIXED) : LONG; - - function GpiPartialArc(hps : HPS;pptlCenter : PPOINTL;fxMultiplier : FIXED;fxStartAngle : FIXED;fxSweepAngle : FIXED) : LONG; - - function GpiPolyFillet(hps : HPS;lCount : LONG;aptlPoints : PPOINTL) : LONG; - - function GpiPolySpline(hps : HPS;lCount : LONG;aptlPoints : PPOINTL) : LONG; - - function GpiPolyFilletSharp(hps : HPS;lCount : LONG;aptlPoints : PPOINTL;afxPoints : PFIXED) : LONG; - - function GpiSetPatternSet(hps : HPS;lSet : LONG) : BOOL; - - function GpiQueryPatternSet(hps : HPS) : LONG; - - function GpiSetPatternRefPoint(hps : HPS;pptlRefPoint : PPOINTL) : BOOL; - - function GpiQueryPatternRefPoint(hps : HPS;pptlRefPoint : PPOINTL) : BOOL; - - function GpiQueryCharStringPos(hps : HPS;flOptions : ULONG;lCount : LONG;pchString : PCH;alXincrements : PLONG;aptlPositions : PPOINTL) : BOOL; - - function GpiQueryCharStringPosAt(hps : HPS;pptlStart : PPOINTL;flOptions : ULONG;lCount : LONG;pchString : PCH;alXincrements : PLONG;aptlPositions : PPOINTL) : BOOL; - - function GpiQueryTextBox(hps : HPS;lCount1 : LONG;pchString : PCH;lCount2 : LONG;aptlPoints : PPOINTL) : BOOL; - - function GpiQueryDefCharBox(hps : HPS;psizlSize : PSIZEL) : BOOL; - - function GpiSetCharSet(hps : HPS;llcid : LONG) : BOOL; - - function GpiQueryCharSet(hps : HPS) : LONG; - - function GpiSetCharBox(hps : HPS;psizfxBox : PSIZEF) : BOOL; - - function GpiQueryCharBox(hps : HPS;psizfxSize : PSIZEF) : BOOL; - - function GpiSetCharAngle(hps : HPS;pgradlAngle : PGRADIENTL) : BOOL; - - function GpiQueryCharAngle(hps : HPS;pgradlAngle : PGRADIENTL) : BOOL; - - function GpiSetCharShear(hps : HPS;pptlAngle : PPOINTL) : BOOL; - - function GpiQueryCharShear(hps : HPS;pptlShear : PPOINTL) : BOOL; - - function GpiSetCharDirection(hps : HPS;lDirection : LONG) : BOOL; - - function GpiQueryCharDirection(hps : HPS) : LONG; - - function GpiSetCharMode(hps : HPS;lMode : LONG) : BOOL; - - function GpiQueryCharMode(hps : HPS) : LONG; - - function GpiSetTextAlignment(hps : HPS;lHoriz : LONG;lVert : LONG) : BOOL; - - function GpiQueryTextAlignment(hps : HPS;plHoriz : PLONG;plVert : PLONG) : BOOL; - - function GpiCharStringPos(hps : HPS;prclRect : PRECTL;flOptions : ULONG;lCount : LONG;pchString : PCH;alAdx : PLONG) : LONG; - - function GpiCharStringPosAt(hps : HPS;pptlStart : PPOINTL;prclRect : PRECTL;flOptions : ULONG;lCount : LONG;pchString : PCH;alAdx : PLONG) : LONG; - - function GpiSetCharExtra(hps : HPS;Extra : FIXED) : BOOL; - - function GpiSetCharBreakExtra(hps : HPS;BreakExtra : FIXED) : BOOL; - - function GpiQueryCharExtra(hps : HPS;Extra : PFIXED) : BOOL; - - function GpiQueryCharBreakExtra(hps : HPS;BreakExtra : PFIXED) : BOOL; - - function GpiMarker(hps : HPS;pptlPoint : PPOINTL) : LONG; - - function GpiPolyMarker(hps : HPS;lCount : LONG;aptlPoints : PPOINTL) : LONG; - - function GpiSetMarker(hps : HPS;lSymbol : LONG) : BOOL; - - function GpiSetMarkerBox(hps : HPS;psizfxSize : PSIZEF) : BOOL; - - function GpiSetMarkerSet(hps : HPS;lSet : LONG) : BOOL; - - function GpiQueryMarker(hps : HPS) : LONG; - - function GpiQueryMarkerBox(hps : HPS;psizfxSize : PSIZEF) : BOOL; - - function GpiQueryMarkerSet(hps : HPS) : LONG; - - function GpiImage(hps : HPS;lFormat : LONG;psizlImageSize : PSIZEL;lLength : LONG;pbData : PBYTE) : LONG; - - function GpiPop(hps : HPS;lCount : LONG) : BOOL; - - function GpiPtVisible(hps : HPS;pptlPoint : PPOINTL) : LONG; - - function GpiRectVisible(hps : HPS;prclRectangle : PRECTL) : LONG; - - function GpiComment(hps : HPS;lLength : LONG;pbData : PBYTE) : BOOL; - - const - FONT_DEFAULT = 1; - FONT_MATCH = 2; - LCIDT_FONT = 6; - LCIDT_BITMAP = 7; - LCID_ALL = (-1); - - type - KERNINGPAIRS = record - sFirstChar : SHORT; - sSecondChar : SHORT; - lKerningAmount : LONG; - end; - - PKERNINGPAIRS = ^KERNINGPAIRS; - - FACENAMEDESC = record - usSize : USHORT; - usWeightClass : USHORT; - usWidthClass : USHORT; - usReserved : USHORT; - flOptions : ULONG; - end; - - PFACENAMEDESC = ^FACENAMEDESC; - - const - 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; - - type - FFDESCS = array[0..1,0..FACESIZE-1] of char; - - PFFDESCS = ^FFDESCS; - - FFDESCS2 = record - cbLength : ULONG; - cbFacenameOffset : ULONG; - abFamilyName : array[0..1-1] of BYTE; - end; - - PFFDESCS2 = ^FFDESCS2; - - function GpiCreateLogFont(hps : HPS;pName : PSTR8;lLcid : LONG;pfatAttrs : PFATTRS) : LONG; - - function GpiDeleteSetId(hps : HPS;lLcid : LONG) : BOOL; - - function GpiLoadFonts(hab : HAB;pszFilename : PSZ) : BOOL; - - function GpiUnloadFonts(hab : HAB;pszFilename : PSZ) : BOOL; - - function GpiQueryFonts(hps : HPS;flOptions : ULONG;pszFacename : PSZ;plReqFonts : PLONG;lMetricsLength : LONG;afmMetrics : PFONTMETRICS) : LONG; - - function GpiQueryFontMetrics(hps : HPS;lMetricsLength : LONG;pfmMetrics : PFONTMETRICS) : BOOL; - - function GpiQueryKerningPairs(hps : HPS;lCount : LONG;akrnprData : PKERNINGPAIRS) : LONG; - - function GpiQueryWidthTable(hps : HPS;lFirstChar : LONG;lCount : LONG;alData : PLONG) : BOOL; - - function GpiQueryNumberSetIds(hps : HPS) : LONG; - - function GpiQuerySetIds(hps : HPS;lCount : LONG;alTypes : PLONG;aNames : PSTR8;allcids : PLONG) : BOOL; - - function GpiQueryFaceString(PS : HPS;FamilyName : PSZ;attrs : PFACENAMEDESC;length : LONG;CompoundFaceName : PSZ) : ULONG; - - function GpiQueryLogicalFont(PS : HPS;lcid : LONG;name : PSTR8;attrs : PFATTRS;length : LONG) : BOOL; - - function GpiQueryFontAction(anchor : HAB;options : ULONG) : ULONG; - - function GpiLoadPublicFonts(p1 : HAB;p2 : PSZ) : BOOL; - - function GpiUnloadPublicFonts(p1 : HAB;p2 : PSZ) : BOOL; - - function GpiSetCp(hps : HPS;ulCodePage : ULONG) : BOOL; - - function GpiQueryCp(hps : HPS) : ULONG; - - function GpiQueryFontFileDescriptions(hab : HAB;pszFilename : PSZ;plCount : PLONG;affdescsNames : PFFDESCS) : LONG; - - function GpiQueryFullFontFileDescs(hab : HAB;pszFilename : PSZ;plCount : PLONG;pNames : PVOID;plNamesBuffLength : PLONG) : LONG; - - const - 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; - - function GpiBitBlt(hpsTarget : HPS;hpsSource : HPS;lCount : LONG;aptlPoints : PPOINTL;lRop : LONG;flOptions : ULONG) : LONG; - - function GpiDeleteBitmap(hbm : HBITMAP) : BOOL; - - function GpiLoadBitmap(hps : HPS;Resource : HMODULE;idBitmap : ULONG;lWidth : LONG;lHeight : LONG) : HBITMAP; - - function GpiSetBitmap(hps : HPS;hbm : HBITMAP) : HBITMAP; - - function GpiWCBitBlt(hpsTarget : HPS;hbmSource : HBITMAP;lCount : LONG;aptlPoints : PPOINTL;lRop : LONG;flOptions : ULONG) : LONG; - - const - CBM_INIT = $0004; - BMB_ERROR = (-1); - - function GpiCreateBitmap(hps : HPS;pbmpNew : PBITMAPINFOHEADER2;flOptions : ULONG;pbInitData : PBYTE;pbmiInfoTable : PBITMAPINFO2) : HBITMAP; - - function GpiSetBitmapBits(hps : HPS;lScanStart : LONG;lScans : LONG;pbBuffer : PBYTE;pbmiInfoTable : PBITMAPINFO2) : LONG; - - function GpiSetBitmapDimension(hbm : HBITMAP;psizlBitmapDimension : PSIZEL) : BOOL; - - function GpiSetBitmapId(hps : HPS;hbm : HBITMAP;lLcid : LONG) : BOOL; - - function GpiQueryBitmapBits(hps : HPS;lScanStart : LONG;lScans : LONG;pbBuffer : PBYTE;pbmiInfoTable : PBITMAPINFO2) : LONG; - - function GpiQueryBitmapDimension(hbm : HBITMAP;psizlBitmapDimension : PSIZEL) : BOOL; - - function GpiQueryBitmapHandle(hps : HPS;lLcid : LONG) : HBITMAP; - - function GpiQueryBitmapParameters(hbm : HBITMAP;pbmpData : PBITMAPINFOHEADER) : BOOL; - - function GpiQueryBitmapInfoHeader(hbm : HBITMAP;pbmpData : PBITMAPINFOHEADER2) : BOOL; - - function GpiQueryDeviceBitmapFormats(hps : HPS;lCount : LONG;alArray : PLONG) : BOOL; - - function GpiSetPel(hps : HPS;pptlPoint : PPOINTL) : LONG; - - function GpiQueryPel(hps : HPS;pptlPoint : PPOINTL) : LONG; - - function GpiFloodFill(hps : HPS;lOptions : LONG;lColor : LONG) : LONG; - - function GpiDrawBits(hps : HPS;pBits : PVOID;pbmiInfoTable : PBITMAPINFO2;lCount : LONG;aptlPoints : PPOINTL;lRop : LONG;flOptions : ULONG) : LONG; - - const - 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; - - type - RGNRECT = record - ircStart : ULONG; - crc : ULONG; - crcReturned : ULONG; - ulDirection : ULONG; - end; - - PRGNRECT = ^RGNRECT; - - const - 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; - - function GpiCombineRegion(hps : HPS;hrgnDest : HRGN;hrgnSrc1 : HRGN;hrgnSrc2 : HRGN;lMode : LONG) : LONG; - - function GpiCreateRegion(hps : HPS;lCount : LONG;arclRectangles : PRECTL) : HRGN; - - function GpiDestroyRegion(hps : HPS;hrgn : HRGN) : BOOL; - - function GpiEqualRegion(hps : HPS;hrgnSrc1 : HRGN;hrgnSrc2 : HRGN) : LONG; - - function GpiOffsetRegion(hps : HPS;Hrgn : HRGN;pptlOffset : PPOINTL) : BOOL; - - function GpiPaintRegion(hps : HPS;hrgn : HRGN) : LONG; - - function GpiFrameRegion(hps : HPS;hrgn : HRGN;thickness : PSIZEL) : LONG; - - function GpiPtInRegion(hps : HPS;hrgn : HRGN;pptlPoint : PPOINTL) : LONG; - - function GpiQueryRegionBox(hps : HPS;hrgn : HRGN;prclBound : PRECTL) : LONG; - - function GpiQueryRegionRects(hps : HPS;hrgn : HRGN;prclBound : PRECTL;prgnrcControl : PRGNRECT;prclRect : PRECTL) : BOOL; - - function GpiRectInRegion(hps : HPS;hrgn : HRGN;prclRect : PRECTL) : LONG; - - function GpiSetRegion(hps : HPS;hrgn : HRGN;lcount : LONG;arclRectangles : PRECTL) : BOOL; - - function GpiSetClipRegion(hps : HPS;hrgn : HRGN;phrgnOld : PHRGN) : LONG; - - function GpiQueryClipRegion(hps : HPS) : HRGN; - - function GpiQueryClipBox(hps : HPS;prclBound : PRECTL) : LONG; - - function GpiExcludeClipRectangle(hps : HPS;prclRectangle : PRECTL) : LONG; - - function GpiIntersectClipRectangle(hps : HPS;prclRectangle : PRECTL) : LONG; - - function GpiOffsetClipRegion(hps : HPS;pptlPoint : PPOINTL) : LONG; - - const - 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; - - function GpiCopyMetaFile(hmf : HMF) : HMF; - - function GpiDeleteMetaFile(hmf : HMF) : BOOL; - - function GpiLoadMetaFile(hab : HAB;pszFilename : PSZ) : HMF; - - function GpiPlayMetaFile(hps : HPS;hmf : HMF;lCount1 : LONG;alOptarray : PLONG;plSegCount : PLONG;lCount2 : LONG;pszDesc : PSZ) : LONG; - - function GpiQueryMetaFileBits(hmf : HMF;lOffset : LONG;lLength : LONG;pbData : PBYTE) : BOOL; - - function GpiQueryMetaFileLength(hmf : HMF) : LONG; - - function GpiSaveMetaFile(hmf : HMF;pszFilename : PSZ) : BOOL; - - function GpiSetMetaFileBits(hmf : HMF;lOffset : LONG;lLength : LONG;pbBuffer : PBYTE) : BOOL; - - function GpiQueryDefArcParams(hps : HPS;parcpArcParams : PARCPARAMS) : BOOL; - - function GpiQueryDefAttrs(hps : HPS;lPrimType : LONG;flAttrMask : ULONG;ppbunAttrs : PBUNDLE) : BOOL; - - function GpiQueryDefTag(hps : HPS;plTag : PLONG) : BOOL; - - function GpiQueryDefViewingLimits(hps : HPS;prclLimits : PRECTL) : BOOL; - - function GpiSetDefArcParams(hps : HPS;parcpArcParams : PARCPARAMS) : BOOL; - - function GpiSetDefAttrs(hps : HPS;lPrimType : LONG;flAttrMask : ULONG;ppbunAttrs : PBUNDLE) : BOOL; - - function GpiSetDefTag(hps : HPS;lTag : LONG) : BOOL; - - function GpiSetDefViewingLimits(hps : HPS;prclLimits : PRECTL) : BOOL; - - type - POLYGON = record - ulPoints : ULONG; - aPointl : PPOINTL; - end; - - PPOLYGON = ^POLYGON; - - POLYSET = record - ulPolys : ULONG; - aPolygon : array[0..1-1] of POLYGON; - end; - - PPOLYSET = ^POLYSET; - - const - POLYGON_NOBOUNDARY = 0; - POLYGON_BOUNDARY = $0001; - POLYGON_ALTERNATE = 0; - POLYGON_WINDING = $0002; - POLYGON_EXCL = 0; - POLYGON_INCL = $0008; - - function GpiPolygons(hps : HPS;ulCount : ULONG;paplgn : PPOLYGON;flOptions : ULONG;flModel : ULONG) : LONG; - - implementation - - function GpiCreatePS(hab : HAB;hdc : HDC;psizlSize : PSIZEL;flOptions : ULONG) : HPS;[SYSTEM]; - function GpiDestroyPS(hps : HPS) : BOOL;[SYSTEM]; - function GpiAssociate(hps : HPS;hdc : HDC) : BOOL;[SYSTEM]; - function GpiRestorePS(hps : HPS;lPSid : LONG) : BOOL;[SYSTEM]; - function GpiSavePS(hps : HPS) : LONG;[SYSTEM]; - function GpiErase(hps : HPS) : BOOL;[SYSTEM]; - function GpiQueryDevice(hps : HPS) : HDC;[SYSTEM]; - function GpiResetPS(hps : HPS;flOptions : ULONG) : BOOL;[SYSTEM]; - function GpiSetPS(hps : HPS;psizlsize : PSIZEL;flOptions : ULONG) : BOOL;[SYSTEM]; - function GpiQueryPS(hps : HPS;psizlSize : PSIZEL) : ULONG;[SYSTEM]; - function GpiErrorSegmentData(hps : HPS;plSegment : PLONG;plContext : PLONG) : LONG;[SYSTEM]; - function GpiQueryDrawControl(hps : HPS;lControl : LONG) : LONG;[SYSTEM]; - function GpiSetDrawControl(hps : HPS;lControl : LONG;lValue : LONG) : BOOL;[SYSTEM]; - function GpiQueryDrawingMode(hps : HPS) : LONG;[SYSTEM]; - function GpiSetDrawingMode(hps : HPS;lMode : LONG) : BOOL;[SYSTEM]; - function GpiQueryStopDraw(hps : HPS) : LONG;[SYSTEM]; - function GpiSetStopDraw(hps : HPS;lValue : LONG) : BOOL;[SYSTEM]; - function GpiCorrelateChain(hps : HPS;lType : LONG;pptlPick : PPOINTL;lMaxHits : LONG;lMaxDepth : LONG;pl2 : PLONG) : LONG;[SYSTEM]; - function GpiQueryTag(hps : HPS;plTag : PLONG) : BOOL;[SYSTEM]; - function GpiSetTag(hps : HPS;lTag : LONG) : BOOL;[SYSTEM]; - function GpiQueryPickApertureSize(hps : HPS;psizlSize : PSIZEL) : BOOL;[SYSTEM]; - function GpiSetPickApertureSize(hps : HPS;lOptions : LONG;psizlSize : PSIZEL) : BOOL;[SYSTEM]; - function GpiQueryPickAperturePosition(hps : HPS;pptlPoint : PPOINTL) : BOOL;[SYSTEM]; - function GpiSetPickAperturePosition(hps : HPS;pptlPick : PPOINTL) : BOOL;[SYSTEM]; - function GpiQueryBoundaryData(hps : HPS;prclBoundary : PRECTL) : BOOL;[SYSTEM]; - function GpiResetBoundaryData(hps : HPS) : BOOL;[SYSTEM]; - function GpiCorrelateFrom(hps : HPS;lFirstSegment : LONG;lLastSegment : LONG;lType : LONG;pptlPick : PPOINTL;lMaxHits : LONG;lMaxDepth : LONG;plSegTag : PLONG) : LONG;[SYSTEM]; - function GpiCorrelateSegment(hps : HPS;lSegment : LONG;lType : LONG;pptlPick : PPOINTL;lMaxHits : LONG;lMaxDepth : LONG;alSegTag : PLONG) : LONG;[SYSTEM]; - function GpiOpenSegment(hps : HPS;lSegment : LONG) : BOOL;[SYSTEM]; - function GpiCloseSegment(hps : HPS) : BOOL;[SYSTEM]; - function GpiDeleteSegment(hps : HPS;lSegid : LONG) : BOOL;[SYSTEM]; - function GpiQueryInitialSegmentAttrs(hps : HPS;lAttribute : LONG) : LONG;[SYSTEM]; - function GpiSetInitialSegmentAttrs(hps : HPS;lAttribute : LONG;lValue : LONG) : BOOL;[SYSTEM]; - function GpiQuerySegmentAttrs(hps : HPS;lSegid : LONG;lAttribute : LONG) : LONG;[SYSTEM]; - function GpiSetSegmentAttrs(hps : HPS;lSegid : LONG;lAttribute : LONG;lValue : LONG) : BOOL;[SYSTEM]; - function GpiQuerySegmentPriority(hps : HPS;lRefSegid : LONG;lOrder : LONG) : LONG;[SYSTEM]; - function GpiSetSegmentPriority(hps : HPS;lSegid : LONG;lRefSegid : LONG;lOrder : LONG) : BOOL;[SYSTEM]; - function GpiDeleteSegments(hps : HPS;lFirstSegment : LONG;lLastSegment : LONG) : BOOL;[SYSTEM]; - function GpiQuerySegmentNames(hps : HPS;lFirstSegid : LONG;lLastSegid : LONG;lMax : LONG;alSegids : PLONG) : LONG;[SYSTEM]; - function GpiGetData(hps : HPS;lSegid : LONG;plOffset : PLONG;lFormat : LONG;lLength : LONG;pbData : PBYTE) : LONG;[SYSTEM]; - function GpiPutData(hps : HPS;lFormat : LONG;plCount : PLONG;pbData : PBYTE) : LONG;[SYSTEM]; - function GpiDrawChain(hps : HPS) : BOOL;[SYSTEM]; - function GpiDrawFrom(hps : HPS;lFirstSegment : LONG;lLastSegment : LONG) : BOOL;[SYSTEM]; - function GpiDrawSegment(hps : HPS;lSegment : LONG) : BOOL;[SYSTEM]; - function GpiDrawDynamics(hps : HPS) : BOOL;[SYSTEM]; - function GpiRemoveDynamics(hps : HPS;lFirstSegid : LONG;lLastSegid : LONG) : BOOL;[SYSTEM]; - function GpiBeginElement(hps : HPS;lType : LONG;pszDesc : PSZ) : BOOL;[SYSTEM]; - function GpiEndElement(hps : HPS) : BOOL;[SYSTEM]; - function GpiLabel(hps : HPS;lLabel : LONG) : BOOL;[SYSTEM]; - function GpiElement(hps : HPS;lType : LONG;pszDesc : PSZ;lLength : LONG;pbData : PBYTE) : LONG;[SYSTEM]; - function GpiQueryElement(hps : HPS;lOff : LONG;lMaxLength : LONG;pbData : PBYTE) : LONG;[SYSTEM]; - function GpiDeleteElement(hps : HPS) : BOOL;[SYSTEM]; - function GpiDeleteElementRange(hps : HPS;lFirstElement : LONG;lLastElement : LONG) : BOOL;[SYSTEM]; - function GpiDeleteElementsBetweenLabels(hps : HPS;lFirstLabel : LONG;lLastLabel : LONG) : BOOL;[SYSTEM]; - function GpiQueryEditMode(hps : HPS) : LONG;[SYSTEM]; - function GpiSetEditMode(hps : HPS;lMode : LONG) : BOOL;[SYSTEM]; - function GpiQueryElementPointer(hps : HPS) : LONG;[SYSTEM]; - function GpiSetElementPointer(hps : HPS;lElement : LONG) : BOOL;[SYSTEM]; - function GpiOffsetElementPointer(hps : HPS;loffset : LONG) : BOOL;[SYSTEM]; - function GpiQueryElementType(hps : HPS;plType : PLONG;lLength : LONG;pszData : PSZ) : LONG;[SYSTEM]; - function GpiSetElementPointerAtLabel(hps : HPS;lLabel : LONG) : BOOL;[SYSTEM]; - function GpiQuerySegmentTransformMatrix(hps : HPS;lSegid : LONG;lCount : LONG;pmatlfArray : PMATRIXLF) : BOOL;[SYSTEM]; - function GpiSetSegmentTransformMatrix(hps : HPS;lSegid : LONG;lCount : LONG;pmatlfarray : PMATRIXLF;lOptions : LONG) : BOOL;[SYSTEM]; - function GpiConvert(hps : HPS;lSrc : LONG;lTarg : LONG;lCount : LONG;aptlPoints : PPOINTL) : BOOL;[SYSTEM]; - function GpiConvertWithMatrix(hps : HPS;lCountp : LONG;aptlPoints : PPOINTL;lCount : LONG;pmatlfArray : PMATRIXLF) : BOOL;[SYSTEM]; - function GpiQueryModelTransformMatrix(hps : HPS;lCount : LONG;pmatlfArray : PMATRIXLF) : BOOL;[SYSTEM]; - function GpiSetModelTransformMatrix(hps : HPS;lCount : LONG;pmatlfArray : PMATRIXLF;lOptions : LONG) : BOOL;[SYSTEM]; - function GpiCallSegmentMatrix(hps : HPS;lSegment : LONG;lCount : LONG;pmatlfArray : PMATRIXLF;lOptions : LONG) : LONG;[SYSTEM]; - function GpiQueryDefaultViewMatrix(hps : HPS;lCount : LONG;pmatlfArray : PMATRIXLF) : BOOL;[SYSTEM]; - function GpiSetDefaultViewMatrix(hps : HPS;lCount : LONG;pmatlfarray : PMATRIXLF;lOptions : LONG) : BOOL;[SYSTEM]; - function GpiQueryPageViewport(hps : HPS;prclViewport : PRECTL) : BOOL;[SYSTEM]; - function GpiSetPageViewport(hps : HPS;prclViewport : PRECTL) : BOOL;[SYSTEM]; - function GpiQueryViewingTransformMatrix(hps : HPS;lCount : LONG;pmatlfArray : PMATRIXLF) : BOOL;[SYSTEM]; - function GpiSetViewingTransformMatrix(hps : HPS;lCount : LONG;pmatlfArray : PMATRIXLF;lOptions : LONG) : BOOL;[SYSTEM]; - function GpiTranslate(hps : HPS;pmatrixlf : PMATRIXLF;long : LONG;ppointl : PPOINTL) : BOOL;[SYSTEM]; - function GpiScale(hps : HPS;p1 : PMATRIXLF;p2 : LONG;p3 : PFIXED;p4 : PPOINTL) : BOOL;[SYSTEM]; - function GpiRotate(p1 : HPS;p2 : PMATRIXLF;p3 : LONG;p4 : FIXED;p5 : PPOINTL) : BOOL;[SYSTEM]; - function GpiSetGraphicsField(hps : HPS;prclField : PRECTL) : BOOL;[SYSTEM]; - function GpiQueryGraphicsField(hps : HPS;prclField : PRECTL) : BOOL;[SYSTEM]; - function GpiSetViewingLimits(hps : HPS;prclLimits : PRECTL) : BOOL;[SYSTEM]; - function GpiQueryViewingLimits(hps : HPS;prclLimits : PRECTL) : BOOL;[SYSTEM]; - function GpiBeginPath(hps : HPS;lPath : LONG) : BOOL;[SYSTEM]; - function GpiEndPath(hps : HPS) : BOOL;[SYSTEM]; - function GpiCloseFigure(hps : HPS) : BOOL;[SYSTEM]; - function GpiModifyPath(hps : HPS;lPath : LONG;lMode : LONG) : BOOL;[SYSTEM]; - function GpiFillPath(hps : HPS;lPath : LONG;lOptions : LONG) : LONG;[SYSTEM]; - function GpiSetClipPath(hps : HPS;lPath : LONG;lOptions : LONG) : BOOL;[SYSTEM]; - function GpiOutlinePath(hps : HPS;lPath : LONG;lOptions : LONG) : LONG;[SYSTEM]; - function GpiPathToRegion(GpiH : HPS;lPath : LONG;lOptions : LONG) : HRGN;[SYSTEM]; - function GpiStrokePath(hps : HPS;lPath : LONG;flOptions : ULONG) : LONG;[SYSTEM]; - function GpiCreateLogColorTable(hps : HPS;flOptions : ULONG;lFormat : LONG;lStart : LONG;lCount : LONG;alTable : PLONG) : BOOL;[SYSTEM]; - function GpiQueryColorData(hps : HPS;lCount : LONG;alArray : PLONG) : BOOL;[SYSTEM]; - function GpiQueryLogColorTable(hps : HPS;flOptions : ULONG;lStart : LONG;lCount : LONG;alArray : PLONG) : LONG;[SYSTEM]; - function GpiQueryRealColors(hps : HPS;flOptions : ULONG;lStart : LONG;lCount : LONG;alColors : PLONG) : LONG;[SYSTEM]; - function GpiQueryNearestColor(hps : HPS;flOptions : ULONG;lRgbIn : LONG) : LONG;[SYSTEM]; - function GpiQueryColorIndex(hps : HPS;flOptions : ULONG;lRgbColor : LONG) : LONG;[SYSTEM]; - function GpiQueryRGBColor(hps : HPS;flOptions : ULONG;lColorIndex : LONG) : LONG;[SYSTEM]; - function GpiCreatePalette(hab : HAB;flOptions : ULONG;ulFormat : ULONG;ulCount : ULONG;aulTable : PULONG) : HPAL;[SYSTEM]; - function GpiDeletePalette(hpal : HPAL) : BOOL;[SYSTEM]; - function GpiSelectPalette(hps : HPS;hpal : HPAL) : HPAL;[SYSTEM]; - function GpiAnimatePalette(hpal : HPAL;ulFormat : ULONG;ulStart : ULONG;ulCount : ULONG;aulTable : PULONG) : LONG;[SYSTEM]; - function GpiSetPaletteEntries(hpal : HPAL;ulFormat : ULONG;ulStart : ULONG;ulCount : ULONG;aulTable : PULONG) : BOOL;[SYSTEM]; - function GpiQueryPalette(hps : HPS) : HPAL;[SYSTEM]; - function GpiQueryPaletteInfo(hpal : HPAL;hps : HPS;flOptions : ULONG;ulStart : ULONG;ulCount : ULONG;aulArray : PULONG) : LONG;[SYSTEM]; - function GpiSetColor(hps : HPS;lColor : LONG) : BOOL;[SYSTEM]; - function GpiQueryColor(hps : HPS) : LONG;[SYSTEM]; - function GpiBox(hps : HPS;lControl : LONG;pptlPoint : PPOINTL;lHRound : LONG;lVRound : LONG) : LONG;[SYSTEM]; - function GpiMove(hps : HPS;pptlPoint : PPOINTL) : BOOL;[SYSTEM]; - function GpiLine(hps : HPS;pptlEndPoint : PPOINTL) : LONG;[SYSTEM]; - function GpiPolyLine(hps : HPS;lCount : LONG;aptlPoints : PPOINTL) : LONG;[SYSTEM]; - function GpiPolyLineDisjoint(hps : HPS;lCount : LONG;aptlPoints : PPOINTL) : LONG;[SYSTEM]; - function GpiSetPattern(hps : HPS;lPatternSymbol : LONG) : BOOL;[SYSTEM]; - function GpiQueryPattern(hps : HPS) : LONG;[SYSTEM]; - function GpiBeginArea(hps : HPS;flOptions : ULONG) : BOOL;[SYSTEM]; - function GpiEndArea(hps : HPS) : LONG;[SYSTEM]; - function GpiCharString(hps : HPS;lCount : LONG;pchString : PCH) : LONG;[SYSTEM]; - function GpiCharStringAt(hps : HPS;pptlPoint : PPOINTL;lCount : LONG;pchString : PCH) : LONG;[SYSTEM]; - function GpiSetAttrMode(hps : HPS;lMode : LONG) : BOOL;[SYSTEM]; - function GpiQueryAttrMode(hps : HPS) : LONG;[SYSTEM]; - function GpiSetAttrs(hps : HPS;lPrimType : LONG;flAttrMask : ULONG;flDefMask : ULONG;ppbunAttrs : PBUNDLE) : BOOL;[SYSTEM]; - function GpiQueryAttrs(hps : HPS;lPrimType : LONG;flAttrMask : ULONG;ppbunAttrs : PBUNDLE) : LONG;[SYSTEM]; - function GpiSetBackColor(hps : HPS;lColor : LONG) : BOOL;[SYSTEM]; - function GpiQueryBackColor(hps : HPS) : LONG;[SYSTEM]; - function GpiSetMix(hps : HPS;lMixMode : LONG) : BOOL;[SYSTEM]; - function GpiQueryMix(hps : HPS) : LONG;[SYSTEM]; - function GpiSetBackMix(hps : HPS;lMixMode : LONG) : BOOL;[SYSTEM]; - function GpiQueryBackMix(hps : HPS) : LONG;[SYSTEM]; - function GpiSetLineType(hps : HPS;lLineType : LONG) : BOOL;[SYSTEM]; - function GpiQueryLineType(hps : HPS) : LONG;[SYSTEM]; - function GpiSetLineWidth(hps : HPS;fxLineWidth : FIXED) : BOOL;[SYSTEM]; - function GpiQueryLineWidth(hps : HPS) : FIXED;[SYSTEM]; - function GpiSetLineWidthGeom(hps : HPS;lLineWidth : LONG) : BOOL;[SYSTEM]; - function GpiQueryLineWidthGeom(hps : HPS) : LONG;[SYSTEM]; - function GpiSetLineEnd(hps : HPS;lLineEnd : LONG) : BOOL;[SYSTEM]; - function GpiQueryLineEnd(hps : HPS) : LONG;[SYSTEM]; - function GpiSetLineJoin(hps : HPS;lLineJoin : LONG) : BOOL;[SYSTEM]; - function GpiQueryLineJoin(hps : HPS) : LONG;[SYSTEM]; - function GpiSetCurrentPosition(hps : HPS;pptlPoint : PPOINTL) : BOOL;[SYSTEM]; - function GpiQueryCurrentPosition(hps : HPS;pptlPoint : PPOINTL) : BOOL;[SYSTEM]; - function GpiSetArcParams(hps : HPS;parcpArcParams : PARCPARAMS) : BOOL;[SYSTEM]; - function GpiQueryArcParams(hps : HPS;parcpArcParams : PARCPARAMS) : BOOL;[SYSTEM]; - function GpiPointArc(hps : HPS;pptl2 : PPOINTL) : LONG;[SYSTEM]; - function GpiFullArc(hps : HPS;lControl : LONG;fxMultiplier : FIXED) : LONG;[SYSTEM]; - function GpiPartialArc(hps : HPS;pptlCenter : PPOINTL;fxMultiplier : FIXED;fxStartAngle : FIXED;fxSweepAngle : FIXED) : LONG;[SYSTEM]; - function GpiPolyFillet(hps : HPS;lCount : LONG;aptlPoints : PPOINTL) : LONG;[SYSTEM]; - function GpiPolySpline(hps : HPS;lCount : LONG;aptlPoints : PPOINTL) : LONG;[SYSTEM]; - function GpiPolyFilletSharp(hps : HPS;lCount : LONG;aptlPoints : PPOINTL;afxPoints : PFIXED) : LONG;[SYSTEM]; - function GpiSetPatternSet(hps : HPS;lSet : LONG) : BOOL;[SYSTEM]; - function GpiQueryPatternSet(hps : HPS) : LONG;[SYSTEM]; - function GpiSetPatternRefPoint(hps : HPS;pptlRefPoint : PPOINTL) : BOOL;[SYSTEM]; - function GpiQueryPatternRefPoint(hps : HPS;pptlRefPoint : PPOINTL) : BOOL;[SYSTEM]; - function GpiQueryCharStringPos(hps : HPS;flOptions : ULONG;lCount : LONG;pchString : PCH;alXincrements : PLONG;aptlPositions : PPOINTL) : BOOL;[SYSTEM]; - function GpiQueryCharStringPosAt(hps : HPS;pptlStart : PPOINTL;flOptions : ULONG;lCount : LONG;pchString : PCH;alXincrements : PLONG;aptlPositions : PPOINTL) : BOOL;[SYSTEM]; - function GpiQueryTextBox(hps : HPS;lCount1 : LONG;pchString : PCH;lCount2 : LONG;aptlPoints : PPOINTL) : BOOL;[SYSTEM]; - function GpiQueryDefCharBox(hps : HPS;psizlSize : PSIZEL) : BOOL;[SYSTEM]; - function GpiSetCharSet(hps : HPS;llcid : LONG) : BOOL;[SYSTEM]; - function GpiQueryCharSet(hps : HPS) : LONG;[SYSTEM]; - function GpiSetCharBox(hps : HPS;psizfxBox : PSIZEF) : BOOL;[SYSTEM]; - function GpiQueryCharBox(hps : HPS;psizfxSize : PSIZEF) : BOOL;[SYSTEM]; - function GpiSetCharAngle(hps : HPS;pgradlAngle : PGRADIENTL) : BOOL;[SYSTEM]; - function GpiQueryCharAngle(hps : HPS;pgradlAngle : PGRADIENTL) : BOOL;[SYSTEM]; - function GpiSetCharShear(hps : HPS;pptlAngle : PPOINTL) : BOOL;[SYSTEM]; - function GpiQueryCharShear(hps : HPS;pptlShear : PPOINTL) : BOOL;[SYSTEM]; - function GpiSetCharDirection(hps : HPS;lDirection : LONG) : BOOL;[SYSTEM]; - function GpiQueryCharDirection(hps : HPS) : LONG;[SYSTEM]; - function GpiSetCharMode(hps : HPS;lMode : LONG) : BOOL;[SYSTEM]; - function GpiQueryCharMode(hps : HPS) : LONG;[SYSTEM]; - function GpiSetTextAlignment(hps : HPS;lHoriz : LONG;lVert : LONG) : BOOL;[SYSTEM]; - function GpiQueryTextAlignment(hps : HPS;plHoriz : PLONG;plVert : PLONG) : BOOL;[SYSTEM]; - function GpiCharStringPos(hps : HPS;prclRect : PRECTL;flOptions : ULONG;lCount : LONG;pchString : PCH;alAdx : PLONG) : LONG;[SYSTEM]; - function GpiCharStringPosAt(hps : HPS;pptlStart : PPOINTL;prclRect : PRECTL;flOptions : ULONG;lCount : LONG;pchString : PCH;alAdx : PLONG) : LONG;[SYSTEM]; - function GpiSetCharExtra(hps : HPS;Extra : FIXED) : BOOL;[SYSTEM]; - function GpiSetCharBreakExtra(hps : HPS;BreakExtra : FIXED) : BOOL;[SYSTEM]; - function GpiQueryCharExtra(hps : HPS;Extra : PFIXED) : BOOL;[SYSTEM]; - function GpiQueryCharBreakExtra(hps : HPS;BreakExtra : PFIXED) : BOOL;[SYSTEM]; - function GpiMarker(hps : HPS;pptlPoint : PPOINTL) : LONG;[SYSTEM]; - function GpiPolyMarker(hps : HPS;lCount : LONG;aptlPoints : PPOINTL) : LONG;[SYSTEM]; - function GpiSetMarker(hps : HPS;lSymbol : LONG) : BOOL;[SYSTEM]; - function GpiSetMarkerBox(hps : HPS;psizfxSize : PSIZEF) : BOOL;[SYSTEM]; - function GpiSetMarkerSet(hps : HPS;lSet : LONG) : BOOL;[SYSTEM]; - function GpiQueryMarker(hps : HPS) : LONG;[SYSTEM]; - function GpiQueryMarkerBox(hps : HPS;psizfxSize : PSIZEF) : BOOL;[SYSTEM]; - function GpiQueryMarkerSet(hps : HPS) : LONG;[SYSTEM]; - function GpiImage(hps : HPS;lFormat : LONG;psizlImageSize : PSIZEL;lLength : LONG;pbData : PBYTE) : LONG;[SYSTEM]; - function GpiPop(hps : HPS;lCount : LONG) : BOOL;[SYSTEM]; - function GpiPtVisible(hps : HPS;pptlPoint : PPOINTL) : LONG;[SYSTEM]; - function GpiRectVisible(hps : HPS;prclRectangle : PRECTL) : LONG;[SYSTEM]; - function GpiComment(hps : HPS;lLength : LONG;pbData : PBYTE) : BOOL;[SYSTEM]; - function GpiCreateLogFont(hps : HPS;pName : PSTR8;lLcid : LONG;pfatAttrs : PFATTRS) : LONG;[SYSTEM]; - function GpiDeleteSetId(hps : HPS;lLcid : LONG) : BOOL;[SYSTEM]; - function GpiLoadFonts(hab : HAB;pszFilename : PSZ) : BOOL;[SYSTEM]; - function GpiUnloadFonts(hab : HAB;pszFilename : PSZ) : BOOL;[SYSTEM]; - function GpiQueryFonts(hps : HPS;flOptions : ULONG;pszFacename : PSZ;plReqFonts : PLONG;lMetricsLength : LONG;afmMetrics : PFONTMETRICS) : LONG;[SYSTEM]; - function GpiQueryFontMetrics(hps : HPS;lMetricsLength : LONG;pfmMetrics : PFONTMETRICS) : BOOL;[SYSTEM]; - function GpiQueryKerningPairs(hps : HPS;lCount : LONG;akrnprData : PKERNINGPAIRS) : LONG;[SYSTEM]; - function GpiQueryWidthTable(hps : HPS;lFirstChar : LONG;lCount : LONG;alData : PLONG) : BOOL;[SYSTEM]; - function GpiQueryNumberSetIds(hps : HPS) : LONG;[SYSTEM]; - function GpiQuerySetIds(hps : HPS;lCount : LONG;alTypes : PLONG;aNames : PSTR8;allcids : PLONG) : BOOL;[SYSTEM]; - function GpiQueryFaceString(PS : HPS;FamilyName : PSZ;attrs : PFACENAMEDESC;length : LONG;CompoundFaceName : PSZ) : ULONG;[SYSTEM]; - function GpiQueryLogicalFont(PS : HPS;lcid : LONG;name : PSTR8;attrs : PFATTRS;length : LONG) : BOOL;[SYSTEM]; - function GpiQueryFontAction(anchor : HAB;options : ULONG) : ULONG;[SYSTEM]; - function GpiLoadPublicFonts(p1 : HAB;p2 : PSZ) : BOOL;[SYSTEM]; - function GpiUnloadPublicFonts(p1 : HAB;p2 : PSZ) : BOOL;[SYSTEM]; - function GpiSetCp(hps : HPS;ulCodePage : ULONG) : BOOL;[SYSTEM]; - function GpiQueryCp(hps : HPS) : ULONG;[SYSTEM]; - function GpiQueryFontFileDescriptions(hab : HAB;pszFilename : PSZ;plCount : PLONG;affdescsNames : PFFDESCS) : LONG;[SYSTEM]; - function GpiQueryFullFontFileDescs(hab : HAB;pszFilename : PSZ;plCount : PLONG;pNames : PVOID;plNamesBuffLength : PLONG) : LONG;[SYSTEM]; - function GpiBitBlt(hpsTarget : HPS;hpsSource : HPS;lCount : LONG;aptlPoints : PPOINTL;lRop : LONG;flOptions : ULONG) : LONG;[SYSTEM]; - function GpiDeleteBitmap(hbm : HBITMAP) : BOOL;[SYSTEM]; - function GpiLoadBitmap(hps : HPS;Resource : HMODULE;idBitmap : ULONG;lWidth : LONG;lHeight : LONG) : HBITMAP;[SYSTEM]; - function GpiSetBitmap(hps : HPS;hbm : HBITMAP) : HBITMAP;[SYSTEM]; - function GpiWCBitBlt(hpsTarget : HPS;hbmSource : HBITMAP;lCount : LONG;aptlPoints : PPOINTL;lRop : LONG;flOptions : ULONG) : LONG;[SYSTEM]; - function GpiCreateBitmap(hps : HPS;pbmpNew : PBITMAPINFOHEADER2;flOptions : ULONG;pbInitData : PBYTE;pbmiInfoTable : PBITMAPINFO2) : HBITMAP;[SYSTEM]; - function GpiSetBitmapBits(hps : HPS;lScanStart : LONG;lScans : LONG;pbBuffer : PBYTE;pbmiInfoTable : PBITMAPINFO2) : LONG;[SYSTEM]; - function GpiSetBitmapDimension(hbm : HBITMAP;psizlBitmapDimension : PSIZEL) : BOOL;[SYSTEM]; - function GpiSetBitmapId(hps : HPS;hbm : HBITMAP;lLcid : LONG) : BOOL;[SYSTEM]; - function GpiQueryBitmapBits(hps : HPS;lScanStart : LONG;lScans : LONG;pbBuffer : PBYTE;pbmiInfoTable : PBITMAPINFO2) : LONG;[SYSTEM]; - function GpiQueryBitmapDimension(hbm : HBITMAP;psizlBitmapDimension : PSIZEL) : BOOL;[SYSTEM]; - function GpiQueryBitmapHandle(hps : HPS;lLcid : LONG) : HBITMAP;[SYSTEM]; - function GpiQueryBitmapParameters(hbm : HBITMAP;pbmpData : PBITMAPINFOHEADER) : BOOL;[SYSTEM]; - function GpiQueryBitmapInfoHeader(hbm : HBITMAP;pbmpData : PBITMAPINFOHEADER2) : BOOL;[SYSTEM]; - function GpiQueryDeviceBitmapFormats(hps : HPS;lCount : LONG;alArray : PLONG) : BOOL;[SYSTEM]; - function GpiSetPel(hps : HPS;pptlPoint : PPOINTL) : LONG;[SYSTEM]; - function GpiQueryPel(hps : HPS;pptlPoint : PPOINTL) : LONG;[SYSTEM]; - function GpiFloodFill(hps : HPS;lOptions : LONG;lColor : LONG) : LONG;[SYSTEM]; - function GpiDrawBits(hps : HPS;pBits : PVOID;pbmiInfoTable : PBITMAPINFO2;lCount : LONG;aptlPoints : PPOINTL;lRop : LONG;flOptions : ULONG) : LONG;[SYSTEM]; - function GpiCombineRegion(hps : HPS;hrgnDest : HRGN;hrgnSrc1 : HRGN;hrgnSrc2 : HRGN;lMode : LONG) : LONG;[SYSTEM]; - function GpiCreateRegion(hps : HPS;lCount : LONG;arclRectangles : PRECTL) : HRGN;[SYSTEM]; - function GpiDestroyRegion(hps : HPS;hrgn : HRGN) : BOOL;[SYSTEM]; - function GpiEqualRegion(hps : HPS;hrgnSrc1 : HRGN;hrgnSrc2 : HRGN) : LONG;[SYSTEM]; - function GpiOffsetRegion(hps : HPS;Hrgn : HRGN;pptlOffset : PPOINTL) : BOOL;[SYSTEM]; - function GpiPaintRegion(hps : HPS;hrgn : HRGN) : LONG;[SYSTEM]; - function GpiFrameRegion(hps : HPS;hrgn : HRGN;thickness : PSIZEL) : LONG;[SYSTEM]; - function GpiPtInRegion(hps : HPS;hrgn : HRGN;pptlPoint : PPOINTL) : LONG;[SYSTEM]; - function GpiQueryRegionBox(hps : HPS;hrgn : HRGN;prclBound : PRECTL) : LONG;[SYSTEM]; - function GpiQueryRegionRects(hps : HPS;hrgn : HRGN;prclBound : PRECTL;prgnrcControl : PRGNRECT;prclRect : PRECTL) : BOOL;[SYSTEM]; - function GpiRectInRegion(hps : HPS;hrgn : HRGN;prclRect : PRECTL) : LONG;[SYSTEM]; - function GpiSetRegion(hps : HPS;hrgn : HRGN;lcount : LONG;arclRectangles : PRECTL) : BOOL;[SYSTEM]; - function GpiSetClipRegion(hps : HPS;hrgn : HRGN;phrgnOld : PHRGN) : LONG;[SYSTEM]; - function GpiQueryClipRegion(hps : HPS) : HRGN;[SYSTEM]; - function GpiQueryClipBox(hps : HPS;prclBound : PRECTL) : LONG;[SYSTEM]; - function GpiExcludeClipRectangle(hps : HPS;prclRectangle : PRECTL) : LONG;[SYSTEM]; - function GpiIntersectClipRectangle(hps : HPS;prclRectangle : PRECTL) : LONG;[SYSTEM]; - function GpiOffsetClipRegion(hps : HPS;pptlPoint : PPOINTL) : LONG;[SYSTEM]; - function GpiCopyMetaFile(hmf : HMF) : HMF;[SYSTEM]; - function GpiDeleteMetaFile(hmf : HMF) : BOOL;[SYSTEM]; - function GpiLoadMetaFile(hab : HAB;pszFilename : PSZ) : HMF;[SYSTEM]; - function GpiPlayMetaFile(hps : HPS;hmf : HMF;lCount1 : LONG;alOptarray : PLONG;plSegCount : PLONG;lCount2 : LONG;pszDesc : PSZ) : LONG;[SYSTEM]; - function GpiQueryMetaFileBits(hmf : HMF;lOffset : LONG;lLength : LONG;pbData : PBYTE) : BOOL;[SYSTEM]; - function GpiQueryMetaFileLength(hmf : HMF) : LONG;[SYSTEM]; - function GpiSaveMetaFile(hmf : HMF;pszFilename : PSZ) : BOOL;[SYSTEM]; - function GpiSetMetaFileBits(hmf : HMF;lOffset : LONG;lLength : LONG;pbBuffer : PBYTE) : BOOL;[SYSTEM]; - function GpiQueryDefArcParams(hps : HPS;parcpArcParams : PARCPARAMS) : BOOL;[SYSTEM]; - function GpiQueryDefAttrs(hps : HPS;lPrimType : LONG;flAttrMask : ULONG;ppbunAttrs : PBUNDLE) : BOOL;[SYSTEM]; - function GpiQueryDefTag(hps : HPS;plTag : PLONG) : BOOL;[SYSTEM]; - function GpiQueryDefViewingLimits(hps : HPS;prclLimits : PRECTL) : BOOL;[SYSTEM]; - function GpiSetDefArcParams(hps : HPS;parcpArcParams : PARCPARAMS) : BOOL;[SYSTEM]; - function GpiSetDefAttrs(hps : HPS;lPrimType : LONG;flAttrMask : ULONG;ppbunAttrs : PBUNDLE) : BOOL;[SYSTEM]; - function GpiSetDefTag(hps : HPS;lTag : LONG) : BOOL;[SYSTEM]; - function GpiSetDefViewingLimits(hps : HPS;prclLimits : PRECTL) : BOOL;[SYSTEM]; - function GpiPolygons(hps : HPS;ulCount : ULONG;paplgn : PPOLYGON;flOptions : ULONG;flModel : ULONG) : LONG;[SYSTEM]; - -end. +{**************************************************************************** + + Copyright (c) 1993,94 by Florian Kl„mpfl + + ****************************************************************************} +unit pmgpi; + + interface + + uses + os2def,pmbitmap; + + 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 : longint; + cy : longint; + end; + PSIZEL = ^SIZEL; + + MATRIXLF = record + fxM11 : longint; + fxM12 : longint; + lM13 : longint; + fxM21 : longint; + fxM22 : longint; + lM23 : longint; + lM31 : longint; + lM32 : longint; + lM33 : longint; + end; + + PMATRIXLF = ^MATRIXLF; + + ARCPARAMS = record + lP : longint; + lQ : longint; + lR : longint; + lS : longint; + end; + + PARCPARAMS = ^ARCPARAMS; + + SIZEF = record + cx : longint; + cy : longint; + end; + + PSIZEF = ^SIZEF; + + GRADIENTL = record + x : longint; + y : longint; + end; + + PGRADIENTL = ^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; + + 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; + + MARKERBUNDLE = record + lColor : longint; + lBackColor : longint; + usMixMode : word; + usBackMixMode : word; + usSet : word; + usSymbol : word; + sizfxCell : SIZEF; + end; + + PMARKERBUNDLE = ^MARKERBUNDLE; + + AREABUNDLE = record + lColor : longint; + lBackColor : longint; + usMixMode : word; + usBackMixMode : word; + usSet : word; + usSymbol : word; + ptlRefPoint : POINTL; + end; + + PAREABUNDLE = ^AREABUNDLE; + + IMAGEBUNDLE = record + lColor : longint; + lBackColor : longint; + usMixMode : word; + usBackMixMode : word; + end; + + PIMAGEBUNDLE = ^IMAGEBUNDLE; + + KERNINGPAIRS = record + sFirstChar : integer; + sSecondChar : integer; + lKerningAmount : longint; + end; + + PKERNINGPAIRS = ^KERNINGPAIRS; + + FACENAMEDESC = record + usSize : word; + usWeightClass : word; + usWidthClass : word; + usReserved : word; + flOptions : cardinal; + end; + + PFACENAMEDESC = ^FACENAMEDESC; + + FFDESCS = array[0..1,0..FACESIZE-1] of char; + + PFFDESCS = ^FFDESCS; + + FFDESCS2 = record + cbLength : cardinal; + cbFacenameOffset : cardinal; + abFamilyName : array[0..1-1] of BYTE; + end; + + PFFDESCS2 = ^FFDESCS2; + + RGNRECT = record + ircStart : cardinal; + crc : cardinal; + crcReturned : cardinal; + ulDirection : cardinal; + end; + + PRGNRECT = ^RGNRECT; + + POLYGON = record + ulPoints : cardinal; + aPointl : PPOINTL; + end; + + PPOLYGON = ^POLYGON; + + POLYSET = record + ulPolys : cardinal; + aPolygon : array[0..1-1] of POLYGON; + end; + + PPOLYSET = ^POLYSET; + + function GpiCreatePS(hab,hdc : cardinal;psizlSize : PSIZEL;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;psizlsize : PSIZEL;flOptions : cardinal) : longbool;cdecl; + function GpiQueryPS(hps : cardinal;psizlSize : PSIZEL) : cardinal;cdecl; + function GpiErrorSegmentData(hps : cardinal;plSegment,plContext : plongint) : 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;pptlPick : PPOINTL;lMaxHits,lMaxDepth : longint;pl2 : plongint) : longint;cdecl; + function GpiQueryTag(hps : cardinal;plTag : plongint) : longbool;cdecl; + function GpiSetTag(hps : cardinal;lTag : longint) : longbool;cdecl; + function GpiQueryPickApertureSize(hps : cardinal;psizlSize : PSIZEL) : longbool; cdecl; + function GpiSetPickApertureSize(hps : cardinal;lOptions : longint;psizlSize : PSIZEL) : longbool; cdecl; + function GpiQueryPickAperturePosition(hps : cardinal;pptlPoint : PPOINTL) : longbool; cdecl; + function GpiSetPickAperturePosition(hps : cardinal;pptlPick : PPOINTL) : longbool; cdecl; + function GpiQueryBoundaryData(hps : cardinal;prclBoundary : PRECTL) : longbool; cdecl; + function GpiResetBoundaryData(hps : cardinal) : longbool; cdecl; + function GpiCorrelateFrom(hps : cardinal;lFirstSegment,lLastSegment,lType : longint;pptlPick : PPOINTL;lMaxHits,lMaxDepth : longint;plSegTag : plongint) : longint; cdecl; + function GpiCorrelateSegment(hps : cardinal;lSegment,lType : longint;pptlPick : PPOINTL;lMaxHits,lMaxDepth : longint;alSegTag : plongint) : 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;alSegids : plongint) : longint; cdecl; + function GpiGetData(hps : cardinal;lSegid : longint;plOffset : plongint;lFormat,lLength : longint;pbData : PBYTE) : longint; cdecl; + function GpiPutData(hps : cardinal;lFormat : longint;plCount : plongint;pbData : PBYTE) : 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 : pchar) : longbool; cdecl; + function GpiEndElement(hps : cardinal) : longbool; cdecl; + function GpiLabel(hps : cardinal;lLabel : longint) : longbool; cdecl; + function GpiElement(hps : cardinal;lType : longint;pszDesc : pchar;lLength : longint;pbData : PBYTE) : longint; cdecl; + function GpiQueryElement(hps : cardinal;lOff,lMaxLength : longint;pbData : PBYTE) : 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;plType : plongint;lLength : longint;pszData : pchar) : longint; cdecl; + function GpiSetElementPointerAtLabel(hps : cardinal;lLabel : longint) : longbool; cdecl; + function GpiQuerySegmentTransformMatrix(hps : cardinal;lSegid,lCount : longint;pmatlfArray : PMATRIXLF) : longbool; cdecl; + function GpiSetSegmentTransformMatrix(hps : cardinal;lSegid,lCount : longint;pmatlfarray : PMATRIXLF;lOptions : longint) : longbool; cdecl; + function GpiConvert(hps : cardinal;lSrc,lTarg,lCount : longint;aptlPoints : PPOINTL) : longbool; cdecl; + function GpiConvertWithMatrix(hps : cardinal;lCountp : longint;aptlPoints : PPOINTL;lCount : longint;pmatlfArray : PMATRIXLF) : longbool; cdecl; + function GpiQueryModelTransformMatrix(hps : cardinal;lCount : longint;pmatlfArray : PMATRIXLF) : longbool; cdecl; + function GpiSetModelTransformMatrix(hps : cardinal;lCount : longint;pmatlfArray : PMATRIXLF;lOptions : longint) : longbool; cdecl; + function GpiCallSegmentMatrix(hps : cardinal;lSegment,lCount : longint;pmatlfArray : PMATRIXLF;lOptions : longint) : longint; cdecl; + function GpiQueryDefaultViewMatrix(hps : cardinal;lCount : longint;pmatlfArray : PMATRIXLF) : longbool; cdecl; + function GpiSetDefaultViewMatrix(hps : cardinal;lCount : longint;pmatlfarray : PMATRIXLF;lOptions : longint) : longbool; cdecl; + function GpiQueryPageViewport(hps : cardinal;prclViewport : PRECTL) : longbool; cdecl; + function GpiSetPageViewport(hps : cardinal;prclViewport : PRECTL) : longbool; cdecl; + function GpiQueryViewingTransformMatrix(hps : cardinal;lCount : longint;pmatlfArray : PMATRIXLF) : longbool; cdecl; + function GpiSetViewingTransformMatrix(hps : cardinal;lCount : longint;pmatlfArray : PMATRIXLF;lOptions : longint) : longbool; cdecl; + function GpiTranslate(hps : cardinal;pmatrixlf : PMATRIXLF;long : longint;ppointl : PPOINTL) : longbool; cdecl; + function GpiScale(hps : cardinal;p1 : PMATRIXLF;p2 : longint;p3 : plongint;p4 : PPOINTL) : longbool; cdecl; + function GpiRotate(p1 : cardinal;p2 : PMATRIXLF;p3,p4 : longint;p5 : PPOINTL) : longbool; cdecl; + function GpiSetGraphicsField(hps : cardinal;prclField : PRECTL) : longbool; cdecl; + function GpiQueryGraphicsField(hps : cardinal;prclField : PRECTL) : longbool; cdecl; + function GpiSetViewingLimits(hps : cardinal;prclLimits : PRECTL) : longbool; cdecl; + function GpiQueryViewingLimits(hps : cardinal;prclLimits : PRECTL) : 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;alTable : plongint) : longbool; cdecl; + function GpiQueryColorData(hps : cardinal;lCount : longint;alArray : plongint) : longbool; cdecl; + function GpiQueryLogColorTable(hps,flOptions : cardinal;lStart,lCount : longint;alArray : plongint) : longint; cdecl; + function GpiQueryRealColors(hps,flOptions : cardinal;lStart,lCount : longint;alColors : plongint) : 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;aulTable : pcardinal) : cardinal; cdecl; + function GpiDeletePalette(hpal : cardinal) : longbool; cdecl; + function GpiSelectPalette(hps,hpal : cardinal) : cardinal; cdecl; + function GpiAnimatePalette(hpal,ulFormat,ulStart,ulCount : cardinal;aulTable : pcardinal) : longint; cdecl; + function GpiSetPaletteEntries(hpal,ulFormat,ulStart,ulCount : cardinal;aulTable : pcardinal) : longbool; cdecl; + function GpiQueryPalette(hps : cardinal) : cardinal; cdecl; + function GpiQueryPaletteInfo(hpal,hps,flOptions,ulStart,ulCount : cardinal;aulArray : pcardinal) : longint; cdecl; + function GpiSetColor(hps : cardinal;lColor : longint) : longbool; cdecl; + function GpiQueryColor(hps : cardinal) : longint; cdecl; + function GpiBox(hps : cardinal;lControl : longint;pptlPoint : PPOINTL;lHRound,lVRound : longint) : longint; cdecl; + function GpiMove(hps : cardinal;pptlPoint : PPOINTL) : longbool; cdecl; + function GpiLine(hps : cardinal;pptlEndPoint : PPOINTL) : longint; cdecl; + function GpiPolyLine(hps : cardinal;lCount : longint;aptlPoints : PPOINTL) : longint; cdecl; + function GpiPolyLineDisjoint(hps : cardinal;lCount : longint;aptlPoints : PPOINTL) : 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 : pshortint) : longint; cdecl; + function GpiCharStringAt(hps : cardinal;pptlPoint : PPOINTL;lCount : longint;pchString : pshortint) : 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;pptlPoint : PPOINTL) : longbool; cdecl; + function GpiQueryCurrentPosition(hps : cardinal;pptlPoint : PPOINTL) : longbool; cdecl; + function GpiSetArcParams(hps : cardinal;parcpArcParams : PARCPARAMS) : longbool; cdecl; + function GpiQueryArcParams(hps : cardinal;parcpArcParams : PARCPARAMS) : longbool; cdecl; + function GpiPointArc(hps : cardinal;pptl2 : PPOINTL) : longint; cdecl; + function GpiFullArc(hps : cardinal;lControl,fxMultiplier : longint) : longint; cdecl; + function GpiPartialArc(hps : cardinal;pptlCenter : PPOINTL;fxMultiplier,fxStartAngle,fxSweepAngle : longint) : longint; cdecl; + function GpiPolyFillet(hps : cardinal;lCount : longint;aptlPoints : PPOINTL) : longint; cdecl; + function GpiPolySpline(hps : cardinal;lCount : longint;aptlPoints : PPOINTL) : longint; cdecl; + function GpiPolyFilletSharp(hps : cardinal;lCount : longint;aptlPoints : PPOINTL;afxPoints : plongint) : longint; cdecl; + function GpiSetPatternSet(hps : cardinal;lSet : longint) : longbool; cdecl; + function GpiQueryPatternSet(hps : cardinal) : longint; cdecl; + function GpiSetPatternRefPoint(hps : cardinal;pptlRefPoint : PPOINTL) : longbool; cdecl; + function GpiQueryPatternRefPoint(hps : cardinal;pptlRefPoint : PPOINTL) : longbool; cdecl; + function GpiQueryCharStringPos(hps,flOptions : cardinal;lCount : longint;pchString : pshortint;alXincrements : plongint;aptlPositions : PPOINTL) : longbool; cdecl; + function GpiQueryCharStringPosAt(hps : cardinal;pptlStart : PPOINTL;flOptions : cardinal;lCount : longint;pchString : pshortint;alXincrements : plongint;aptlPositions : PPOINTL) : longbool; cdecl; + function GpiQueryTextBox(hps : cardinal;lCount1 : longint;pchString : pshortint;lCount2 : longint;aptlPoints : PPOINTL) : longbool; cdecl; + function GpiQueryDefCharBox(hps : cardinal;psizlSize : PSIZEL) : longbool; cdecl; + function GpiSetCharSet(hps : cardinal;llcid : longint) : longbool; cdecl; + function GpiQueryCharSet(hps : cardinal) : longint; cdecl; + function GpiSetCharBox(hps : cardinal;psizfxBox : PSIZEF) : longbool; cdecl; + function GpiQueryCharBox(hps : cardinal;psizfxSize : PSIZEF) : longbool; cdecl; + function GpiSetCharAngle(hps : cardinal;pgradlAngle : PGRADIENTL) : longbool; cdecl; + function GpiQueryCharAngle(hps : cardinal;pgradlAngle : PGRADIENTL) : longbool; cdecl; + function GpiSetCharShear(hps : cardinal;pptlAngle : PPOINTL) : longbool; cdecl; + function GpiQueryCharShear(hps : cardinal;pptlShear : PPOINTL) : 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;plHoriz,plVert : plongint) : longbool; cdecl; + function GpiCharStringPos(hps : cardinal;prclRect : PRECTL;flOptions : cardinal;lCount : longint;pchString : pshortint;alAdx : plongint) : longint; cdecl; + function GpiCharStringPosAt(hps : cardinal;pptlStart : PPOINTL;prclRect : PRECTL;flOptions : cardinal;lCount : longint;pchString : pshortint;alAdx : plongint) : longint; cdecl; + function GpiSetCharExtra(hps : cardinal;Extra : longint) : longbool; cdecl; + function GpiSetCharBreakExtra(hps : cardinal;BreakExtra : longint) : longbool; cdecl; + function GpiQueryCharExtra(hps : cardinal;Extra : plongint) : longbool; cdecl; + function GpiQueryCharBreakExtra(hps : cardinal;BreakExtra : plongint) : longbool; cdecl; + function GpiMarker(hps : cardinal;pptlPoint : PPOINTL) : longint; cdecl; + function GpiPolyMarker(hps : cardinal;lCount : longint;aptlPoints : PPOINTL) : longint; cdecl; + function GpiSetMarker(hps : cardinal;lSymbol : longint) : longbool; cdecl; + function GpiSetMarkerBox(hps : cardinal;psizfxSize : PSIZEF) : longbool; cdecl; + function GpiSetMarkerSet(hps : cardinal;lSet : longint) : longbool; cdecl; + function GpiQueryMarker(hps : cardinal) : longint; cdecl; + function GpiQueryMarkerBox(hps : cardinal;psizfxSize : PSIZEF) : longbool; cdecl; + function GpiQueryMarkerSet(hps : cardinal) : longint; cdecl; + function GpiImage(hps : cardinal;lFormat : longint;psizlImageSize : PSIZEL;lLength : longint;pbData : PBYTE) : longint; cdecl; + function GpiPop(hps : cardinal;lCount : longint) : longbool; cdecl; + function GpiPtVisible(hps : cardinal;pptlPoint : PPOINTL) : longint; cdecl; + function GpiRectVisible(hps : cardinal;prclRectangle : PRECTL) : longint; cdecl; + function GpiComment(hps : cardinal;lLength : longint;pbData : PBYTE) : longbool; cdecl; + function GpiCreateLogFont(hps : cardinal;pName : PSTR8;lLcid : longint;pfatAttrs : PFATTRS) : longint; cdecl; + function GpiDeleteSetId(hps : cardinal;lLcid : longint) : longbool; cdecl; + function GpiLoadFonts(hab : cardinal;pszFilename : pchar) : longbool; cdecl; + function GpiUnloadFonts(hab : cardinal;pszFilename : pchar) : longbool; cdecl; + function GpiQueryFonts(hps,flOptions : cardinal;pszFacename : pchar;plReqFonts : plongint;lMetricsLength : longint;afmMetrics : PFONTMETRICS) : longint; cdecl; + function GpiQueryFontMetrics(hps : cardinal;lMetricsLength : longint;pfmMetrics : PFONTMETRICS) : longbool; cdecl; + function GpiQueryKerningPairs(hps : cardinal;lCount : longint;akrnprData : PKERNINGPAIRS) : longint; cdecl; + function GpiQueryWidthTable(hps : cardinal;lFirstChar,lCount : longint;alData : plongint) : longbool; cdecl; + function GpiQueryNumberSetIds(hps : cardinal) : longint; cdecl; + function GpiQuerySetIds(hps : cardinal;lCount : longint;alTypes : plongint;aNames : PSTR8;allcids : plongint) : longbool; cdecl; + function GpiQueryFaceString(PS : cardinal;FamilyName : pchar;attrs : PFACENAMEDESC;length : longint;CompoundFaceName : pchar) : cardinal; cdecl; + function GpiQueryLogicalFont(PS : cardinal;lcid : longint;name : PSTR8;attrs : PFATTRS;length : longint) : longbool; cdecl; + function GpiQueryFontAction(anchor,options : cardinal) : cardinal; cdecl; + function GpiLoadPublicFonts(p1 : cardinal;p2 : pchar);longbool; cdecl; + function GpiUnloadPublicFonts(p1 : cardinal;p2 : pchar) : longbool; cdecl; + function GpiSetCp(hps,ulCodePage : cardinal) : longbool; cdecl; + function GpiQueryCp(hps : cardinal) : cardinal; cdecl; + function GpiQueryFontFileDescriptions(hab : cardinal;pszFilename : pchar;plCount : plongint;affdescsNames : PFFDESCS) : longint; cdecl; + function GpiQueryFullFontFileDescs(hab : cardinal;pszFilename : pchar;plCount : plongint;pNames : pointer;plNamesBuffLength : plongint) : longint; cdecl; + function GpiBitBlt(hpsTarget,hpsSource : cardinal;lCount : longint;aptlPoints : PPOINTL;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;aptlPoints : PPOINTL;lRop : longint;flOptions : cardinal) : longint; cdecl; + function GpiCreateBitmap(hps : cardinal;pbmpNew : PBITMAPINFOHEADER2;flOptions : cardinal;pbInitData : PBYTE;pbmiInfoTable : PBITMAPINFO2) : cardinal; cdecl; + function GpiSetBitmapBits(hps : cardinal;lScanStart,lScans : longint;pbBuffer : PBYTE;pbmiInfoTable : PBITMAPINFO2) : longint; cdecl; + function GpiSetBitmapDimension(hbm : cardinal;psizlBitmapDimension : PSIZEL) : longbool; cdecl; + function GpiSetBitmapId(hps,hbm : cardinal;lLcid : longint) : longbool; cdecl; + function GpiQueryBitmapBits(hps : cardinal;lScanStart,lScans : longint;pbBuffer : PBYTE;pbmiInfoTable : PBITMAPINFO2) : longint; cdecl; + function GpiQueryBitmapDimension(hbm : cardinal;psizlBitmapDimension : PSIZEL) : longbool; cdecl; + function GpiQueryBitmapHandle(hps : cardinal;lLcid : longint) : cardinal; cdecl; + function GpiQueryBitmapParameters(hbm : cardinal;pbmpData : PBITMAPINFOHEADER) : longbool; cdecl; + function GpiQueryBitmapInfoHeader(hbm : cardinal;pbmpData : PBITMAPINFOHEADER2) : longbool; cdecl; + function GpiQueryDeviceBitmapFormats(hps : cardinal;lCount : longint;alArray : plongint) : longbool; cdecl; + function GpiSetPel(hps : cardinal;pptlPoint : PPOINTL) : longint; cdecl; + function GpiQueryPel(hps : cardinal;pptlPoint : PPOINTL) : longint; cdecl; + function GpiFloodFill(hps : cardinal;lOptions,lColor : longint) : longint; cdecl; + function GpiDrawBits(hps : cardinal;pBits : pointer;pbmiInfoTable : PBITMAPINFO2;lCount : longint;aptlPoints : PPOINTL;lRop : longint;flOptions : cardinal) : longint; cdecl; + function GpiCombineRegion(hps,hrgnDest,hrgnSrc1,hrgnSrc2 : cardinal;lMode : longint) : longint; cdecl; + function GpiCreateRegion(hps : cardinal;lCount : longint;arclRectangles : PRECTL) : cardinal; cdecl; + function GpiDestroyRegion(hps,hrgn : cardinal) : longbool; cdecl; + function GpiEqualRegion(hps,hrgnSrc1,hrgnSrc2 : cardinal) : longint; cdecl; + function GpiOffsetRegion(hps,Hrgn : cardinal;pptlOffset : PPOINTL) : longbool; cdecl; + function GpiPaintRegion(hps,hrgn : cardinal) : longint; cdecl; + function GpiFrameRegion(hps,hrgn : cardinal;thickness : PSIZEL) : longint; cdecl; + function GpiPtInRegion(hps,hrgn : cardinal;pptlPoint : PPOINTL) : longint; cdecl; + function GpiQueryRegionBox(hps,hrgn : cardinal;prclBound : PRECTL) : longint; cdecl; + function GpiQueryRegionRects(hps,hrgn : cardinal;prclBound : PRECTL;prgnrcControl : PRGNRECT;prclRect : PRECTL) : longbool; cdecl; + function GpiRectInRegion(hps,hrgn : cardinal;prclRect : PRECTL) : longint; cdecl; + function GpiSetRegion(hps,hrgn : cardinal;lcount : longint;arclRectangles : PRECTL) : longbool;cdecl; + function GpiSetClipRegion(hps,hrgn : cardinal;phrgnOld : pcardinal) : longint; cdecl; + function GpiQueryClipRegion(hps : cardinal) : cardinal; cdecl; + function GpiQueryClipBox(hps : cardinal;prclBound : PRECTL) : longint; cdecl; + function GpiExcludeClipRectangle(hps : cardinal;prclRectangle : PRECTL) : longint; cdecl; + function GpiIntersectClipRectangle(hps : cardinal;prclRectangle : PRECTL) : longint; cdecl; + function GpiOffsetClipRegion(hps : cardinal;pptlPoint : PPOINTL) : longint; cdecl; + function GpiCopyMetaFile(hmf : cardinal) : cardinal; cdecl; + function GpiDeleteMetaFile(hmf : cardinal) : longbool; cdecl; + function GpiLoadMetaFile(hab : cardinal;pszFilename : pchar) : cardinal; cdecl; + function GpiPlayMetaFile(hps,hmf : cardinal;lCount1 : longint;alOptarray,plSegCount : plongint;lCount2 : longint;pszDesc : pchar) : longint; cdecl; + function GpiQueryMetaFileBits(hmf : cardinal;lOffset,lLength : longint;pbData : PBYTE) : longbool; cdecl; + function GpiQueryMetaFileLength(hmf : cardinal) : longint; cdecl; + function GpiSaveMetaFile(hmf : cardinal;pszFilename : pchar) : longbool; cdecl; + function GpiSetMetaFileBits(hmf : cardinal;lOffset,lLength : longint;pbBuffer : PBYTE) : longbool; cdecl; + function GpiQueryDefArcParams(hps : cardinal;parcpArcParams : PARCPARAMS) : longbool; cdecl; + function GpiQueryDefAttrs(hps : cardinal;lPrimType : longint;flAttrMask : cardinal;ppbunAttrs : pointer) : longbool; cdecl; + function GpiQueryDefTag(hps : cardinal;plTag : plongint) : longbool; cdecl; + function GpiQueryDefViewingLimits(hps : cardinal;prclLimits : PRECTL) : longbool; cdecl; + function GpiSetDefArcParams(hps : cardinal;parcpArcParams : PARCPARAMS) : 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;prclLimits : PRECTL) : longbool; cdecl; + function GpiPolygons(hps,ulCount : cardinal;paplgn : PPOLYGON;flOptions,flModel : cardinal) : longint; cdecl; + + implementation + + function GpiCreatePS(hab,hdc : cardinal;psizlSize : PSIZEL;flOptions : cardinal) : cardinal;cdecl;external; + function GpiDestroyPS(hps : cardinal) : longbool;cdecl;external; + function GpiAssociate(hps,hdc : cardinal) : longbool;cdecl;external; + function GpiRestorePS(hps : cardinal;lPSid : longint) : longbool;cdecl;external; + function GpiSavePS(hps : cardinal) : longint;cdecl;external; + function GpiErase(hps : cardinal) : longbool;cdecl;external; + function GpiQueryDevice(hps : cardinal) : cardinal;cdecl;external; + function GpiResetPS(hps,flOptions : cardinal) : longbool;cdecl;external; + function GpiSetPS(hps : cardinal;psizlsize : PSIZEL;flOptions : cardinal) : longbool;cdecl;external; + function GpiQueryPS(hps : cardinal;psizlSize : PSIZEL) : cardinal;cdecl;external; + function GpiErrorSegmentData(hps : cardinal;plSegment,plContext : plongint) : longint;cdecl;external; + function GpiQueryDrawControl(hps : cardinal;lControl : longint) : longint;cdecl;external; + function GpiSetDrawControl(hps : cardinal;lControl,lValue : longint) : longbool;cdecl;external; + function GpiQueryDrawingMode(hps : cardinal) : longint;cdecl;external; + function GpiSetDrawingMode(hps : cardinal;lMode : longint) : longbool;cdecl;external; + function GpiQueryStopDraw(hps : cardinal) : longint;cdecl; external; + function GpiSetStopDraw(hps : cardinal;lValue : longint) : longbool; cdecl; external; + function GpiCorrelateChain(hps : cardinal;lType : longint;pptlPick : PPOINTL;lMaxHits : longint;lMaxDepth : longint;pl2 : plongint) : longint; cdecl; external; + function GpiQueryTag(hps : cardinal;plTag : plongint) : longbool; cdecl; external; + function GpiSetTag(hps : cardinal;lTag : longint) : longbool; cdecl; external; + function GpiQueryPickApertureSize(hps : cardinal;psizlSize : PSIZEL) : longbool; cdecl; external; + function GpiSetPickApertureSize(hps : cardinal;lOptions : longint;psizlSize : PSIZEL) : longbool; cdecl; external; + function GpiQueryPickAperturePosition(hps : cardinal;pptlPoint : PPOINTL) : longbool; cdecl; external; + function GpiSetPickAperturePosition(hps : cardinal;pptlPick : PPOINTL) : longbool; cdecl; external; + function GpiQueryBoundaryData(hps : cardinal;prclBoundary : PRECTL) : longbool; cdecl; external; + function GpiResetBoundaryData(hps : cardinal) : longbool; cdecl; external; + function GpiCorrelateFrom(hps : cardinal;lFirstSegment,lLastSegment,lType : longint;pptlPick : PPOINTL;lMaxHits,lMaxDepth : longint;plSegTag : plongint) : longint; cdecl; external; + function GpiCorrelateSegment(hps : cardinal;lSegment,lType : longint;pptlPick : PPOINTL;lMaxHits,lMaxDepth : longint;alSegTag : plongint) : longint; cdecl; external; + function GpiOpenSegment(hps : cardinal;lSegment : longint) : longbool; cdecl; external; + function GpiCloseSegment(hps : cardinal) : longbool; cdecl; external; + function GpiDeleteSegment(hps : cardinal;lSegid : longint) : longbool; cdecl; external; + function GpiQueryInitialSegmentAttrs(hps : cardinal;lAttribute : longint) : longint; cdecl; external; + function GpiSetInitialSegmentAttrs(hps : cardinal;lAttribute,lValue : longint) : longbool; cdecl; external; + function GpiQuerySegmentAttrs(hps : cardinal;lSegid,lAttribute : longint) : longint; cdecl; external; + function GpiSetSegmentAttrs(hps : cardinal;lSegid,lAttribute,lValue : longint) : longbool; cdecl; external; + function GpiQuerySegmentPriority(hps : cardinal;lRefSegid,lOrder : longint) : longint; cdecl; external; + function GpiSetSegmentPriority(hps : cardinal;lSegid,lRefSegid,lOrder : longint) : longbool; cdecl; external; + function GpiDeleteSegments(hps : cardinal;lFirstSegment,lLastSegment : longint) : longbool; cdecl; external; + function GpiQuerySegmentNames(hps : cardinal;lFirstSegid,lLastSegid,lMax : longint;alSegids : plongint) : longint; cdecl; external; + function GpiGetData(hps : cardinal;lSegid : longint;plOffset : plongint;lFormat,lLength : longint;pbData : PBYTE) : longint; cdecl; external; + function GpiPutData(hps : cardinal;lFormat : longint;plCount : plongint;pbData : PBYTE) : longint; cdecl; external; + function GpiDrawChain(hps : cardinal) : longbool; cdecl; external; + function GpiDrawFrom(hps : cardinal;lFirstSegment,lLastSegment : longint) : longbool; cdecl; external; + function GpiDrawSegment(hps : cardinal;lSegment : longint) : longbool; cdecl; external; + function GpiDrawDynamics(hps : cardinal) : longbool; cdecl; external; + function GpiRemoveDynamics(hps : cardinal;lFirstSegid,lLastSegid : longint) : longbool; cdecl; external; + function GpiBeginElement(hps : cardinal;lType : longint;pszDesc : pchar) : longbool; cdecl; external; + function GpiEndElement(hps : cardinal) : longbool; cdecl; external; + function GpiLabel(hps : cardinal;lLabel : longint) : longbool; cdecl; external; + function GpiElement(hps : cardinal;lType : longint;pszDesc : pchar;lLength : longint;pbData : PBYTE) : longint; cdecl; external; + function GpiQueryElement(hps : cardinal;lOff,lMaxLength : longint;pbData : PBYTE) : longint; cdecl; external; + function GpiDeleteElement(hps : cardinal) : longbool; cdecl; external; + function GpiDeleteElementRange(hps : cardinal;lFirstElement,lLastElement : longint) : longbool; cdecl; external; + function GpiDeleteElementsBetweenLabels(hps : cardinal;lFirstLabel,lLastLabel : longint) : longbool; cdecl; external; + function GpiQueryEditMode(hps : cardinal) : longint; cdecl; external; + function GpiSetEditMode(hps : cardinal;lMode : longint) : longbool; cdecl; external; + function GpiQueryElementPointer(hps : cardinal) : longint; cdecl; external; + function GpiSetElementPointer(hps : cardinal;lElement : longint) : longbool; cdecl; external; + function GpiOffsetElementPointer(hps : cardinal;loffset : longint) : longbool; cdecl; external; + function GpiQueryElementType(hps : cardinal;plType : plongint;lLength : longint;pszData : pchar) : longint; cdecl; external; + function GpiSetElementPointerAtLabel(hps : cardinal;lLabel : longint) : longbool; cdecl; external; + function GpiQuerySegmentTransformMatrix(hps : cardinal;lSegid,lCount : longint;pmatlfArray : PMATRIXLF) : longbool; cdecl; external; + function GpiSetSegmentTransformMatrix(hps : cardinal;lSegid,lCount : longint;pmatlfarray : PMATRIXLF;lOptions : longint) : longbool; cdecl; external; + function GpiConvert(hps : cardinal;lSrc,lTarg,lCount : longint;aptlPoints : PPOINTL) : longbool; cdecl; external; + function GpiConvertWithMatrix(hps : cardinal;lCountp : longint;aptlPoints : PPOINTL;lCount : longint;pmatlfArray : PMATRIXLF) : longbool; cdecl; external; + function GpiQueryModelTransformMatrix(hps : cardinal;lCount : longint;pmatlfArray : PMATRIXLF) : longbool; cdecl; external; + function GpiSetModelTransformMatrix(hps : cardinal;lCount : longint;pmatlfArray : PMATRIXLF;lOptions : longint) : longbool; cdecl; external; + function GpiCallSegmentMatrix(hps : cardinal;lSegment,lCount : longint;pmatlfArray : PMATRIXLF;lOptions : longint) : longint; cdecl; external; + function GpiQueryDefaultViewMatrix(hps : cardinal;lCount : longint;pmatlfArray : PMATRIXLF) : longbool; cdecl; external; + function GpiSetDefaultViewMatrix(hps : cardinal;lCount : longint;pmatlfarray : PMATRIXLF;lOptions : longint) : longbool; cdecl; external; + function GpiQueryPageViewport(hps : cardinal;prclViewport : PRECTL) : longbool; cdecl; external; + function GpiSetPageViewport(hps : cardinal;prclViewport : PRECTL) : longbool; cdecl; external; + function GpiQueryViewingTransformMatrix(hps : cardinal;lCount : longint;pmatlfArray : PMATRIXLF) : longbool; cdecl; external; + function GpiSetViewingTransformMatrix(hps : cardinal;lCount : longint;pmatlfArray : PMATRIXLF;lOptions : longint) : longbool; cdecl; external; + function GpiTranslate(hps : cardinal;pmatrixlf : PMATRIXLF;long : longint;ppointl : PPOINTL) : longbool; cdecl; external; + function GpiScale(hps : cardinal;p1 : PMATRIXLF;p2 : longint;p3 : plongint;p4 : PPOINTL) : longbool; cdecl; external; + function GpiRotate(p1 : cardinal;p2 : PMATRIXLF;p3,p4 : longint;p5 : PPOINTL) : longbool; cdecl; external; + function GpiSetGraphicsField(hps : cardinal;prclField : PRECTL) : longbool; cdecl; external; + function GpiQueryGraphicsField(hps : cardinal;prclField : PRECTL) : longbool; cdecl; external; + function GpiSetViewingLimits(hps : cardinal;prclLimits : PRECTL) : longbool; cdecl; external; + function GpiQueryViewingLimits(hps : cardinal;prclLimits : PRECTL) : longbool; cdecl; external; + function GpiBeginPath(hps : cardinal;lPath : longint) : longbool; cdecl; external; + function GpiEndPath(hps : cardinal) : longbool; cdecl; external; + function GpiCloseFigure(hps : cardinal) : longbool; cdecl; external; + function GpiModifyPath(hps : cardinal;lPath,lMode : longint) : longbool; cdecl; external; + function GpiFillPath(hps : cardinal;lPath,lOptions : longint) : longint; cdecl; external; + function GpiSetClipPath(hps : cardinal;lPath,lOptions : longint) : longbool; cdecl; external; + function GpiOutlinePath(hps : cardinal;lPath,lOptions : longint) : longint; cdecl; external; + function GpiPathToRegion(GpiH : cardinal;lPath,lOptions : longint) : cardinal; cdecl; external; + function GpiStrokePath(hps : cardinal;lPath : longint;flOptions : cardinal) : longint; cdecl; external; + function GpiCreateLogColorTable(hps,flOptions : cardinal;lFormat,lStart,lCount : longint;alTable : plongint) : longbool; cdecl; external; + function GpiQueryColorData(hps : cardinal;lCount : longint;alArray : plongint) : longbool; cdecl; external; + function GpiQueryLogColorTable(hps,flOptions : cardinal;lStart,lCount : longint;alArray : plongint) : longint; cdecl; external; + function GpiQueryRealColors(hps,flOptions : cardinal;lStart,lCount : longint;alColors : plongint) : longint; cdecl; external; + function GpiQueryNearestColor(hps,flOptions : cardinal;lRgbIn : longint) : longint; cdecl; external; + function GpiQueryColorIndex(hps,flOptions : cardinal;lRgbColor : longint) : longint; cdecl; external; + function GpiQueryRGBColor(hps,flOptions : cardinal;lColorIndex : longint) : longint; cdecl; external; + function GpiCreatePalette(hab,flOptions,ulFormat,ulCount : cardinal;aulTable : pcardinal) : cardinal; cdecl; external; + function GpiDeletePalette(hpal : cardinal) : longbool; cdecl; external; + function GpiSelectPalette(hps,hpal : cardinal) : cardinal; cdecl; external; + function GpiAnimatePalette(hpal,ulFormat,ulStart,ulCount : cardinal;aulTable : pcardinal) : longint; cdecl; external; + function GpiSetPaletteEntries(hpal,ulFormat,ulStart,ulCount : cardinal;aulTable : pcardinal) : longbool; cdecl; external; + function GpiQueryPalette(hps : cardinal) : cardinal; cdecl; external; + function GpiQueryPaletteInfo(hpal,hps,flOptions,ulStart,ulCount : cardinal;aulArray : pcardinal) : longint; cdecl; external; + function GpiSetColor(hps : cardinal;lColor : longint) : longbool; cdecl; external; + function GpiQueryColor(hps : cardinal) : longint; cdecl; external; + function GpiBox(hps : cardinal;lControl : longint;pptlPoint : PPOINTL;lHRound,lVRound : longint) : longint; cdecl; external; + function GpiMove(hps : cardinal;pptlPoint : PPOINTL) : longbool; cdecl; external; + function GpiLine(hps : cardinal;pptlEndPoint : PPOINTL) : longint; cdecl; external; + function GpiPolyLine(hps : cardinal;lCount : longint;aptlPoints : PPOINTL) : longint; cdecl; external; + function GpiPolyLineDisjoint(hps : cardinal;lCount : longint;aptlPoints : PPOINTL) : longint; cdecl; external; + function GpiSetPattern(hps : cardinal;lPatternSymbol : longint) : longbool; cdecl; external; + function GpiQueryPattern(hps : cardinal) : longint; cdecl; external; + function GpiBeginArea(hps,flOptions : cardinal) : longbool; cdecl; external; + function GpiEndArea(hps : cardinal) : longint; cdecl; external; + function GpiCharString(hps : cardinal;lCount : longint;pchString : pshortint) : longint; cdecl; external; + function GpiCharStringAt(hps : cardinal;pptlPoint : PPOINTL;lCount : longint;pchString : pshortint) : longint; cdecl; external; + function GpiSetAttrMode(hps : cardinal;lMode : longint) : longbool; cdecl; external; + function GpiQueryAttrMode(hps : cardinal) : longint; cdecl; external; + function GpiSetAttrs(hps : cardinal;lPrimType : longint;flAttrMask,flDefMask : cardinal;ppbunAttrs : pointer) : longbool; cdecl; external; + function GpiQueryAttrs(hps : cardinal;lPrimType : longint;flAttrMask : cardinal;ppbunAttrs : pointer) : longint; cdecl; external; + function GpiSetBackColor(hps : cardinal;lColor : longint) : longbool; cdecl; external; + function GpiQueryBackColor(hps : cardinal) : longint; cdecl; external; + function GpiSetMix(hps : cardinal;lMixMode : longint) : longbool; cdecl; external; + function GpiQueryMix(hps : cardinal) : longint; cdecl; external; + function GpiSetBackMix(hps : cardinal;lMixMode : longint) : longbool; cdecl; external; + + function GpiQueryBackMix(hps : cardinal) : longint; cdecl; external; + function GpiSetLineType(hps : cardinal;lLineType : longint) : longbool; cdecl; external; + function GpiQueryLineType(hps : cardinal) : longint; cdecl; external; + function GpiSetLineWidth(hps : cardinal;fxLineWidth : longint) : longbool; cdecl; external; + function GpiQueryLineWidth(hps : cardinal) : longint; cdecl; external; + function GpiSetLineWidthGeom(hps : cardinal;lLineWidth : longint) : longbool; cdecl; external; + function GpiQueryLineWidthGeom(hps : cardinal) : longint; cdecl; external; + function GpiSetLineEnd(hps : cardinal;lLineEnd : longint) : longbool; cdecl; external; + function GpiQueryLineEnd(hps : cardinal) : longint; cdecl; external; + function GpiSetLineJoin(hps : cardinal;lLineJoin : longint) : longbool; cdecl; external; + function GpiQueryLineJoin(hps : cardinal) : longint; cdecl; external; + function GpiSetCurrentPosition(hps : cardinal;pptlPoint : PPOINTL) : longbool; cdecl; external; + function GpiQueryCurrentPosition(hps : cardinal;pptlPoint : PPOINTL) : longbool; cdecl; external; + function GpiSetArcParams(hps : cardinal;parcpArcParams : PARCPARAMS) : longbool; cdecl; external; + function GpiQueryArcParams(hps : cardinal;parcpArcParams : PARCPARAMS) : longbool; cdecl; external; + function GpiPointArc(hps : cardinal;pptl2 : PPOINTL) : longint; cdecl; external; + function GpiFullArc(hps : cardinal;lControl,fxMultiplier : longint) : longint; cdecl; external; + function GpiPartialArc(hps : cardinal;pptlCenter : PPOINTL;fxMultiplier,fxStartAngle,fxSweepAngle : longint) : longint; cdecl; external; + function GpiPolyFillet(hps : cardinal;lCount : longint;aptlPoints : PPOINTL) : longint; cdecl; external; + function GpiPolySpline(hps : cardinal;lCount : longint;aptlPoints : PPOINTL) : longint; cdecl; external; + function GpiPolyFilletSharp(hps : cardinal;lCount : longint;aptlPoints : PPOINTL;afxPoints : plongint) : longint; cdecl; external; + function GpiSetPatternSet(hps : cardinal;lSet : longint) : longbool; cdecl; external; + function GpiQueryPatternSet(hps : cardinal) : longint; cdecl; external; + function GpiSetPatternRefPoint(hps : cardinal;pptlRefPoint : PPOINTL) : longbool; cdecl; external; + function GpiQueryPatternRefPoint(hps : cardinal;pptlRefPoint : PPOINTL) : longbool; cdecl; external; + function GpiQueryCharStringPos(hps,flOptions : cardinal;lCount : longint;pchString : pshortint;alXincrements : plongint;aptlPositions : PPOINTL) : longbool; cdecl; external; + function GpiQueryCharStringPosAt(hps : cardinal;pptlStart : PPOINTL;flOptions : cardinal;lCount : longint;pchString : pshortint;alXincrements : plongint;aptlPositions : PPOINTL) : longbool; cdecl; external; + function GpiQueryTextBox(hps : cardinal;lCount1 : longint;pchString : pshortint;lCount2 : longint;aptlPoints : PPOINTL) : longbool; cdecl; external; + function GpiQueryDefCharBox(hps : cardinal;psizlSize : PSIZEL) : longbool; cdecl; external; + function GpiSetCharSet(hps : cardinal;llcid : longint) : longbool; cdecl; external; + function GpiQueryCharSet(hps : cardinal) : longint; cdecl; external; + function GpiSetCharBox(hps : cardinal;psizfxBox : PSIZEF) : longbool; cdecl; external; + function GpiQueryCharBox(hps : cardinal;psizfxSize : PSIZEF) : longbool; cdecl; external; + function GpiSetCharAngle(hps : cardinal;pgradlAngle : PGRADIENTL) : longbool; cdecl; external; + function GpiQueryCharAngle(hps : cardinal;pgradlAngle : PGRADIENTL) : longbool; cdecl; external; + function GpiSetCharShear(hps : cardinal;pptlAngle : PPOINTL) : longbool; cdecl; external; + function GpiQueryCharShear(hps : cardinal;pptlShear : PPOINTL) : longbool; cdecl; external; + function GpiSetCharDirection(hps : cardinal;lDirection : longint) : longbool; cdecl; external; + function GpiQueryCharDirection(hps : cardinal) : longint; cdecl; external; + function GpiSetCharMode(hps : cardinal;lMode : longint) : longbool; cdecl; external; + function GpiQueryCharMode(hps : cardinal) : longint; cdecl; external; + function GpiSetTextAlignment(hps : cardinal;lHoriz,lVert : longint) : longbool; cdecl; external; + function GpiQueryTextAlignment(hps : cardinal;plHoriz,plVert : plongint) : longbool; cdecl; external; + function GpiCharStringPos(hps : cardinal;prclRect : PRECTL;flOptions : cardinal;lCount : longint;pchString : pshortint;alAdx : plongint) : longint; cdecl; external; + function GpiCharStringPosAt(hps : cardinal;pptlStart : PPOINTL;prclRect : PRECTL;flOptions : cardinal;lCount : longint;pchString : pshortint;alAdx : plongint) : longint; cdecl; external; + function GpiSetCharExtra(hps : cardinal;Extra : longint) : longbool; cdecl; external; + function GpiSetCharBreakExtra(hps : cardinal;BreakExtra : longint) : longbool; cdecl; external; + function GpiQueryCharExtra(hps : cardinal;Extra : plongint) : longbool; cdecl; external; + function GpiQueryCharBreakExtra(hps : cardinal;BreakExtra : plongint) : longbool; cdecl; external; + function GpiMarker(hps : cardinal;pptlPoint : PPOINTL) : longint; cdecl; external; + function GpiPolyMarker(hps : cardinal;lCount : longint;aptlPoints : PPOINTL) : longint; cdecl; external; + function GpiSetMarker(hps : cardinal;lSymbol : longint) : longbool; cdecl; external; + function GpiSetMarkerBox(hps : cardinal;psizfxSize : PSIZEF) : longbool; cdecl; external; + function GpiSetMarkerSet(hps : cardinal;lSet : longint) : longbool; cdecl; external; + function GpiQueryMarker(hps : cardinal) : longint; cdecl; external; + function GpiQueryMarkerBox(hps : cardinal;psizfxSize : PSIZEF) : longbool; cdecl; external; + function GpiQueryMarkerSet(hps : cardinal) : longint; cdecl; external; + function GpiImage(hps : cardinal;lFormat : longint;psizlImageSize : PSIZEL;lLength : longint;pbData : PBYTE) : longint; cdecl; external; + function GpiPop(hps : cardinal;lCount : longint) : longbool; cdecl; external; + function GpiPtVisible(hps : cardinal;pptlPoint : PPOINTL) : longint; cdecl; external; + function GpiRectVisible(hps : cardinal;prclRectangle : PRECTL) : longint; cdecl; external; + function GpiComment(hps : cardinal;lLength : longint;pbData : PBYTE) : longbool; cdecl; external; + function GpiCreateLogFont(hps : cardinal;pName : PSTR8;lLcid : longint;pfatAttrs : PFATTRS) : longint; cdecl; external; + function GpiDeleteSetId(hps : cardinal;lLcid : longint) : longbool; cdecl; external; + function GpiLoadFonts(hab : cardinal;pszFilename : pchar) : longbool; cdecl; external; + function GpiUnloadFonts(hab : cardinal;pszFilename : pchar) : longbool; cdecl; external; + function GpiQueryFonts(hps,flOptions : cardinal;pszFacename : pchar;plReqFonts : plongint;lMetricsLength : longint;afmMetrics : PFONTMETRICS) : longint; cdecl; external; + function GpiQueryFontMetrics(hps : cardinal;lMetricsLength : longint;pfmMetrics : PFONTMETRICS) : longbool; cdecl; external; + function GpiQueryKerningPairs(hps : cardinal;lCount : longint;akrnprData : PKERNINGPAIRS) : longint; cdecl; external; + function GpiQueryWidthTable(hps : cardinal;lFirstChar,lCount : longint;alData : plongint) : longbool; cdecl; external; + function GpiQueryNumberSetIds(hps : cardinal) : longint; cdecl; external; + function GpiQuerySetIds(hps : cardinal;lCount : longint;alTypes : plongint;aNames : PSTR8;allcids : plongint) : longbool; cdecl; external; + function GpiQueryFaceString(PS : cardinal;FamilyName : pchar;attrs : PFACENAMEDESC;length : longint;CompoundFaceName : pchar) : cardinal; cdecl; external; + function GpiQueryLogicalFont(PS : cardinal;lcid : longint;name : PSTR8;attrs : PFATTRS;length : longint) : longbool; cdecl; external; + function GpiQueryFontAction(anchor,options : cardinal) : cardinal; cdecl; external; + function GpiLoadPublicFonts(p1 : cardinal;p2 : pchar) : longbool; cdecl; external; + function GpiUnloadPublicFonts(p1 : cardinal;p2 : pchar) : longbool; cdecl; external; + function GpiSetCp(hps,ulCodePage : cardinal) : longbool; cdecl; external; + function GpiQueryCp(hps : cardinal) : cardinal; cdecl; external; + function GpiQueryFontFileDescriptions(hab : cardinal;pszFilename : pchar;plCount : plongint;affdescsNames : PFFDESCS) : longint; cdecl; external; + function GpiQueryFullFontFileDescs(hab : cardinal;pszFilename : pchar;plCount : plongint;pNames : pointer;plNamesBuffLength : plongint) : longint; cdecl; external; + function GpiBitBlt(hpsTarget,hpsSource : cardinal;lCount : longint;aptlPoints : PPOINTL;lRop : longint;flOptions : cardinal) : longint; cdecl; external; + function GpiDeleteBitmap(hbm : cardinal) : longbool; cdecl; external; + function GpiLoadBitmap(hps,Resource,idBitmap:cardinal;lWidth,lHeight : longint) : cardinal; cdecl; external; + function GpiSetBitmap(hps,hbm : cardinal) : cardinal; cdecl; external; + function GpiWCBitBlt(hpsTarget,hbmSource : cardinal;lCount : longint;aptlPoints : PPOINTL;lRop : longint;flOptions : cardinal) : longint; cdecl; external; + function GpiCreateBitmap(hps : cardinal;pbmpNew : PBITMAPINFOHEADER2;flOptions : cardinal;pbInitData : PBYTE;pbmiInfoTable : PBITMAPINFO2) : cardinal; cdecl; external; + function GpiSetBitmapBits(hps : cardinal;lScanStart,lScans : longint;pbBuffer : PBYTE;pbmiInfoTable : PBITMAPINFO2) : longint; cdecl; external; + function GpiSetBitmapDimension(hbm : cardinal;psizlBitmapDimension : PSIZEL) : longbool; cdecl; external; + function GpiSetBitmapId(hps,hbm : cardinal;lLcid : longint) : longbool; cdecl; external; + function GpiQueryBitmapBits(hps : cardinal;lScanStart,lScans : longint;pbBuffer : PBYTE;pbmiInfoTable : PBITMAPINFO2) : longint; cdecl; external; + function GpiQueryBitmapDimension(hbm : cardinal;psizlBitmapDimension : PSIZEL) : longbool; cdecl; external; + function GpiQueryBitmapHandle(hps : cardinal;lLcid : longint) : cardinal; cdecl; external; + function GpiQueryBitmapParameters(hbm : cardinal;pbmpData : PBITMAPINFOHEADER) : longbool; cdecl; external; + function GpiQueryBitmapInfoHeader(hbm : cardinal;pbmpData : PBITMAPINFOHEADER2) : longbool; cdecl; external; + function GpiQueryDeviceBitmapFormats(hps : cardinal;lCount : longint;alArray : plongint) : longbool; cdecl; external; + function GpiSetPel(hps : cardinal;pptlPoint : PPOINTL) : longint; cdecl; external; + function GpiQueryPel(hps : cardinal;pptlPoint : PPOINTL) : longint; cdecl; external; + function GpiFloodFill(hps : cardinal;lOptions,lColor : longint) : longint; cdecl; external; + function GpiDrawBits(hps : cardinal;pBits : pointer;pbmiInfoTable : PBITMAPINFO2;lCount : longint;aptlPoints : PPOINTL;lRop : longint;flOptions : cardinal) : longint; cdecl; external; + function GpiCombineRegion(hps,hrgnDest,hrgnSrc1,hrgnSrc2 : cardinal;lMode : longint) : longint; cdecl; external; + function GpiCreateRegion(hps : cardinal;lCount : longint;arclRectangles : PRECTL) : cardinal; cdecl; external; + function GpiDestroyRegion(hps,hrgn : cardinal) : longbool; cdecl; external; + function GpiEqualRegion(hps,hrgnSrc1,hrgnSrc2 : cardinal) : longint; cdecl; external; + function GpiOffsetRegion(hps,Hrgn : cardinal;pptlOffset : PPOINTL) : longbool; cdecl; external; + function GpiPaintRegion(hps,hrgn : cardinal) : longint; cdecl; external; + function GpiFrameRegion(hps,hrgn : cardinal;thickness : PSIZEL) : longint; cdecl; external; + function GpiPtInRegion(hps,hrgn : cardinal;pptlPoint : PPOINTL) : longint; cdecl; external; + function GpiQueryRegionBox(hps,hrgn : cardinal;prclBound : PRECTL) : longint; cdecl; external; + function GpiQueryRegionRects(hps,hrgn : cardinal;prclBound : PRECTL;prgnrcControl : PRGNRECT;prclRect : PRECTL) : longbool; cdecl; external; + function GpiRectInRegion(hps,hrgn : cardinal;prclRect : PRECTL) : longint; cdecl; external; + function GpiSetRegion(hps,hrgn : cardinal;lcount : longint;arclRectangles : PRECTL) : longbool; cdecl; external; + function GpiSetClipRegion(hps,hrgn : cardinal;phrgnOld : pcardinal) : longint; cdecl; external; + function GpiQueryClipRegion(hps : cardinal) : cardinal; cdecl; external; + function GpiQueryClipBox(hps : cardinal;prclBound : PRECTL) : longint; cdecl; external; + function GpiExcludeClipRectangle(hps : cardinal;prclRectangle : PRECTL) : longint; cdecl; external; + function GpiIntersectClipRectangle(hps : cardinal;prclRectangle : PRECTL) : longint; cdecl; external; + function GpiOffsetClipRegion(hps : cardinal;pptlPoint : PPOINTL) : longint; cdecl; external; + function GpiCopyMetaFile(hmf : cardinal) : cardinal; cdecl; external; + function GpiDeleteMetaFile(hmf : cardinal) : longbool; cdecl; external; + function GpiLoadMetaFile(hab : cardinal;pszFilename : pchar) : cardinal; cdecl; external; + function GpiPlayMetaFile(hps,hmf : cardinal;lCount1 : longint;alOptarray,plSegCount : plongint;lCount2 : longint;pszDesc : pchar) : longint; cdecl; external; + function GpiQueryMetaFileBits(hmf : cardinal;lOffset,lLength : longint;pbData : PBYTE) : longbool; cdecl; external; + function GpiQueryMetaFileLength(hmf : cardinal) : longint; cdecl; external; + function GpiSaveMetaFile(hmf : cardinal;pszFilename : pchar) : longbool; cdecl; external; + function GpiSetMetaFileBits(hmf : cardinal;lOffset,lLength : longint;pbBuffer : PBYTE) : longbool; cdecl; external; + function GpiQueryDefArcParams(hps : cardinal;parcpArcParams : PARCPARAMS) : longbool; cdecl; external; + function GpiQueryDefAttrs(hps : cardinal;lPrimType : longint;flAttrMask : cardinal;ppbunAttrs : pointer) : longbool; cdecl; external; + function GpiQueryDefTag(hps : cardinal;plTag : plongint) : longbool; cdecl; external; + function GpiQueryDefViewingLimits(hps : cardinal;prclLimits : PRECTL) : longbool; cdecl; external; + function GpiSetDefArcParams(hps : cardinal;parcpArcParams : PARCPARAMS) : longbool; cdecl; external; + function GpiSetDefAttrs(hps : cardinal;lPrimType : longint;flAttrMask : cardinal;ppbunAttrs : pointer) : longbool; cdecl; external; + function GpiSetDefTag(hps : cardinal;lTag : longint) : longbool; cdecl; external; + function GpiSetDefViewingLimits(hps : cardinal;prclLimits : PRECTL) : longbool; cdecl; external; + function GpiPolygons(hps,ulCount : cardinal;paplgn : PPOLYGON;flOptions,flModel : cardinal) : longint; cdecl; external; + +end. + \ No newline at end of file diff --git a/rtl/os2/pmwin.pas b/rtl/os2/pmwin.pas index e8c8d928a3..2ba86ca5bc 100644 --- a/rtl/os2/pmwin.pas +++ b/rtl/os2/pmwin.pas @@ -39,8 +39,8 @@ unit pmwin; y : longint; x : longint; flStyle : cardinal; - pszText : pshortint; - pszClass : pshortint; + pszText : pchar; + pszClass : pchar; hwndParent : cardinal; end; PCREATESTRUCT = ^CREATESTRUCT; @@ -71,7 +71,7 @@ unit pmwin; WNDPARAMS = record fsStatus : cardinal; cchText : cardinal; - pszText : pshortint; + pszText : pchar; cbPresParams : cardinal; pPresParams : pointer; cbCtlData : cardinal; @@ -169,8 +169,8 @@ unit pmwin; PCONVCONTEXT = ^CONVCONTEXT; DDEINIT = record cb : cardinal; - pszAppName : pshortint; - pszTopic : pshortint; + pszAppName : pchar; + pszTopic : pchar; offConvContext : cardinal; end; PDDEINIT = ^DDEINIT; @@ -1586,7 +1586,7 @@ const WM_DBCSFIRST = $00b0; WM_DBCSLAST = $00cf; - function WinRegisterClass(hab : cardinal;pszClassName : pshortint;pfnWndProc : ppointer;flStyle,cbWindowData : cardinal) : longbool; cdecl; + function WinRegisterClass(hab : cardinal;pszClassName : pchar;pfnWndProc : ppointer;flStyle,cbWindowData : cardinal) : longbool; cdecl; function WinDefWindowProc(hwnd,msg : cardinal;mp1,mp2 : pointer) : pointer; cdecl; function WinDestroyWindow(hwnd : cardinal) : longbool; cdecl; function WinShowWindow(hwnd : cardinal;fShow : longbool) : longbool; cdecl; @@ -1604,13 +1604,13 @@ const function WinInitialize(flOptions : cardinal) : cardinal; cdecl; function WinTerminate(hab : cardinal) : longbool; cdecl; function WinQueryAnchorBlock(hwnd : cardinal) : cardinal; cdecl; - function WinCreateWindow(hwndParent : cardinal;pszClass,pszName : pshortint;flStyle : cardinal;x,y,cx,cy : longint;hwndOwner,hwndInsertBehind,id : cardinal;pCtlData,pPresParams : pointer) : cardinal; cdecl; + function WinCreateWindow(hwndParent : cardinal;pszClass,pszName : pchar;flStyle : cardinal;x,y,cx,cy : longint;hwndOwner,hwndInsertBehind,id : cardinal;pCtlData,pPresParams : pointer) : cardinal; cdecl; function WinEnableWindow(hwnd : cardinal;fEnable : longbool) : longbool; cdecl; function WinIsWindowEnabled(hwnd : cardinal) : longbool; cdecl; function WinEnableWindowUpdate(hwnd : cardinal;fEnable : longbool) : longbool; cdecl; function WinIsWindowVisible(hwnd : cardinal) : longbool; cdecl; function WinQueryWindowText(hwnd : cardinal;cchBufferMax : longint;pchBuffer : pshortint) : longint; cdecl; - function WinSetWindowText(hwnd : cardinal;pszText : pshortint) : longbool; cdecl; + function WinSetWindowText(hwnd : cardinal;pszText : pchar) : longbool; cdecl; function WinQueryWindowTextLength(hwnd : cardinal) : longint; cdecl; function WinWindowFromID(hwndParent,id : cardinal) : cardinal; cdecl; function WinIsWindow(hab,hwnd : cardinal) : longbool; cdecl; @@ -1632,12 +1632,12 @@ const function WinDrawBitmap(hpsDst,hbm : cardinal;pwrcSrc : PRECTL;pptlDst : PPOINTL;clrFore : longint;clrBack : longint;fl : cardinal) : longbool; cdecl; function WinDrawText(hps : cardinal;cchText : longint;lpchText : pshortint;prcl : PRECTL;clrFore,clrBack : longint;flCmd : cardinal) : longint; cdecl; function WinDrawBorder(hps : cardinal;prcl : PRECTL;cx,cy : longint;clrFore,clrBack : longint;flCmd : cardinal) : longbool; cdecl; - function WinLoadString(hab,hmod,id : cardinal;cchMax : longint;pchBuffer : pshortint) : longint; cdecl; - function WinLoadMessage(hab,hmod,id : cardinal;cchMax : longint;pchBuffer : pshortint) : longint; cdecl; + function WinLoadString(hab,hmod,id : cardinal;cchMax : longint;pchBuffer : pchar) : longint; cdecl; + function WinLoadMessage(hab,hmod,id : cardinal;cchMax : longint;pchBuffer : pchar) : longint; cdecl; function WinSetActiveWindow(hwndDesktop,hwnd : cardinal) : longbool; cdecl; function WinSubclassWindow(hwnd : cardinal;pfnwp : ppointer) : ppointer; cdecl; function WinQueryClassName(hwnd : cardinal;cchMax : longint;pch : pshortint) : longint; cdecl; - function WinQueryClassInfo(hab : cardinal;pszClassName : pshortint;pClassInfo : PCLASSINFO) : longbool; cdecl; + function WinQueryClassInfo(hab : cardinal;pszClassName : pchar;pClassInfo : PCLASSINFO) : longbool; cdecl; function WinQueryActiveWindow(hwndDesktop : cardinal) : cardinal; cdecl; function WinIsThreadActive(hab : cardinal) : longbool; cdecl; function WinQuerySysModalWindow(hwndDesktop : cardinal) : cardinal; cdecl; @@ -1675,7 +1675,7 @@ const function WinPostMsg(hwnd,msg : cardinal;mp1,mp2 : pointer) : longbool; cdecl; function WinRegisterUserMsg(hab,msgid : cardinal;datatype1,dir1,datatype2,dir2,datatyper : longint) : longbool; cdecl; function WinRegisterUserDatatype(hab : cardinal;datatype,count : longint;types : Plongint) : longbool; cdecl; - function WinSetMsgMode(hab : cardinal;classname : pshortint;control : longint) : longbool; cdecl; + function WinSetMsgMode(hab : cardinal;classname : pchar;control : longint) : longbool; cdecl; function WinSetSynchroMode(hab : cardinal;mode : longint) : longbool; cdecl; function WinInSendMsg(hab : cardinal) : longbool; cdecl; function WinBroadcastMsg(hwnd,msg : cardinal;mp1,mp2 : pointer;rgf : cardinal) : longbool; cdecl; @@ -1688,7 +1688,7 @@ const function WinWaitMuxWaitSem(hmux,ulTimeout:cardinal;pulUser : pcardinal) : cardinal; cdecl; function WinPostQueueMsg(hmq,msg : cardinal;mp1,mp2 : pointer) : longbool; cdecl; function WinSetMsgInterest(hwnd,msg_class : cardinal;control : longint) : longbool; cdecl; - function WinSetClassMsgInterest(hab : cardinal;pszClassName : pshortint;msg_class : cardinal;control : longint) : longbool; cdecl; + function WinSetClassMsgInterest(hab : cardinal;pszClassName : pchar;msg_class : cardinal;control : longint) : longbool; cdecl; function WinSetFocus(hwndDesktop,hwndSetFocus : cardinal) : longbool; cdecl; function WinFocusChange(hwndDesktop,hwndSetFocus,flFocusChange : cardinal) : longbool; cdecl; function WinSetCapture(hwndDesktop,hwnd : cardinal) : longbool; cdecl; @@ -1705,24 +1705,24 @@ const function WinDismissDlg(hwndDlg,usResult : cardinal) : longbool; cdecl; function WinQueryDlgItemShort(hwndDlg,idItem : cardinal;pResult : Pinteger;fSigned : longbool) : longbool; cdecl; function WinSetDlgItemShort(hwndDlg,idItem : cardinal;usValue : word;fSigned : longbool) : longbool; cdecl; - function WinSetDlgItemText(hwndDlg,idItem : cardinal;pszText : pshortint) : longbool; cdecl; - function WinQueryDlgItemText(hwndDlg,idItem : cardinal;cchBufferMax : longint;pchBuffer : pshortint) : cardinal; cdecl; + function WinSetDlgItemText(hwndDlg,idItem : cardinal;pszText : pchar) : longbool; cdecl; + function WinQueryDlgItemText(hwndDlg,idItem : cardinal;cchBufferMax : longint;pchBuffer : pchar) : cardinal; cdecl; function WinQueryDlgItemTextLength(hwndDlg,idItem : cardinal) : longint; cdecl; function WinDefDlgProc(hwndDlg,msg : cardinal;mp1,mp2 : pointer) : pointer; cdecl; function WinAlarm(hwndDesktop,rgfType : cardinal) : longbool; cdecl; - function WinMessageBox(hwndParent,hwndOwner : cardinal;pszText,pszCaption : pshortint;idWindow,flStyle : cardinal) : cardinal; cdecl; + function WinMessageBox(hwndParent,hwndOwner : cardinal;pszText,pszCaption : pchar;idWindow,flStyle : cardinal) : cardinal; cdecl; function WinProcessDlg(hwndDlg : cardinal) : cardinal; cdecl; function WinSendDlgItemMsg(hwndDlg,idItem,msg : cardinal;mp1,mp2 : pointer) : pointer; cdecl; function WinMapDlgPoints(hwndDlg : cardinal;prgwptl : PPOINTL;cwpt : cardinal;fCalcWindowCoords : longbool) : longbool; cdecl; function WinEnumDlgItem(hwndDlg,hwnd,code : cardinal) : cardinal; cdecl; - function WinSubstituteStrings(hwnd : cardinal;pszSrc : pshortint;cchDstMax : longint;pszDst : pshortint) : longint; cdecl; + function WinSubstituteStrings(hwnd : cardinal;pszSrc : pchar;cchDstMax : longint;pszDst : pchar) : longint; cdecl; function WinCreateDlg(hwndParent,hwndOwner : cardinal;pfnDlgProc : ppointer;pdlgt : PDLGTEMPLATE;pCreateParams : pointer) : cardinal; cdecl; function WinLoadMenu(hwndFrame,hmod,idMenu : cardinal) : cardinal; cdecl; function WinCreateMenu(hwndParent : cardinal;lpmt : pointer) : cardinal; cdecl; function WinPopupMenu(hwndParent,hwndOwner,hwndMenu : cardinal;x,y,idItem : longint;fs : cardinal) : longbool; cdecl; - function WinCreateStdWindow(hwndParent,flStyle : cardinal;pflCreateFlags : pcardinal;pszClientClass,pszTitle : pshortint;styleClient,hmod,idResources : cardinal;phwndClient : pcardinal) : cardinal; cdecl; + function WinCreateStdWindow(hwndParent,flStyle : cardinal;pflCreateFlags : pcardinal;pszClientClass,pszTitle : pchar;styleClient,hmod,idResources : cardinal;phwndClient : pcardinal) : cardinal; cdecl; function WinFlashWindow(hwndFrame : cardinal;fFlash : longbool) : longbool; cdecl; - function WinCreateFrameControls(hwndFrame : cardinal;pfcdata : PFRAMECDATA;pszTitle : pshortint) : longbool; cdecl; + function WinCreateFrameControls(hwndFrame : cardinal;pfcdata : PFRAMECDATA;pszTitle : pchar) : longbool; cdecl; function WinCalcFrameRect(hwndFrame : cardinal;prcl : PRECTL;fClient : longbool) : longbool; cdecl; function WinGetMinPosition(hwnd : cardinal;pswp : PSWP;pptl : PPOINTL) : longbool; cdecl; function WinGetMaxPosition(hwnd : cardinal;pswp : PSWP) : longbool; cdecl; @@ -1791,41 +1791,41 @@ const function WinSetHook(hab : cardinal;hmq : cardinal;iHook : longint;pfnHook : pointer;hmod : cardinal) : longbool; cdecl; function WinReleaseHook(hab,hmq : cardinal;iHook : longint;pfnHook : pointer;hmod : cardinal) : longbool; cdecl; function WinCallMsgFilter(hab : cardinal;pqmsg : PQMSG;msgf : cardinal) : longbool; cdecl; - function WinSetClassThunkProc(pszClassname : pshortint;pfnThunkProc : pointer) : longbool; cdecl; - function WinQueryClassThunkProc(pszClassname : pshortint) : pointer; cdecl; + function WinSetClassThunkProc(pszClassname : pchar;pfnThunkProc : pointer) : longbool; cdecl; + function WinQueryClassThunkProc(pszClassname : pchar) : pointer; cdecl; function WinSetWindowThunkProc(hwnd : cardinal;pfnThunkProc : pointer) : longbool; cdecl; function WinQueryWindowThunkProc(hwnd : cardinal) : pointer; cdecl; function WinQueryWindowModel(hwnd : cardinal) : longint; cdecl; function WinQueryCp(hmq : cardinal) : cardinal; cdecl; function WinSetCp(hmq,idCodePage : cardinal) : longbool; cdecl; function WinQueryCpList(hab,ccpMax : cardinal;prgcp : pcardinal) : cardinal; cdecl; - function WinCpTranslateString(hab,cpSrc : cardinal;pszSrc : pshortint;cpDst,cchDestMax : cardinal;pchDest : pshortint) : longbool; cdecl; + function WinCpTranslateString(hab,cpSrc : cardinal;pszSrc : pchar;cpDst,cchDestMax : cardinal;pchDest : pchar) : longbool; cdecl; function WinCpTranslateChar(hab,cpSrc : cardinal;chSrc : byte;cpDst : cardinal) : byte; cdecl; - function WinUpper(hab,idcp,idcc : cardinal;psz : pshortint) : cardinal; cdecl; + function WinUpper(hab,idcp,idcc : cardinal;psz : pchar) : cardinal; cdecl; function WinUpperChar(hab,idcp,idcc,c : cardinal) : cardinal; cdecl; - function WinNextChar(hab,idcp,idcc : cardinal;psz : pshortint) : pshortint; cdecl; - function WinPrevChar(hab,idcp,idcc : cardinal;pszStart,psz : pshortint) : pshortint; cdecl; - function WinCompareStrings(hab,idcp,idcc : cardinal;psz1,psz2 : pshortint;reserved : cardinal) : cardinal; cdecl; + function WinNextChar(hab,idcp,idcc : cardinal;psz : pchar) : pshortint; cdecl; + function WinPrevChar(hab,idcp,idcc : cardinal;pszStart,psz : pchar) : pshortint; cdecl; + function WinCompareStrings(hab,idcp,idcc : cardinal;psz1,psz2 : pchar;reserved : cardinal) : cardinal; cdecl; function WinCreateAtomTable(cbInitial,cBuckets : cardinal) : cardinal; cdecl; function WinDestroyAtomTable(hAtomTbl : cardinal) : cardinal; cdecl; - function WinAddAtom(hAtomTbl : cardinal;pszAtomName : pshortint) : cardinal; cdecl; - function WinFindAtom(hAtomTbl : cardinal;pszAtomName : pshortint) : cardinal; cdecl; + function WinAddAtom(hAtomTbl : cardinal;pszAtomName : pchar) : cardinal; cdecl; + function WinFindAtom(hAtomTbl : cardinal;pszAtomName : pchar) : cardinal; cdecl; function WinDeleteAtom(hAtomTbl,atom : cardinal) : cardinal; cdecl; function WinQueryAtomUsage(hAtomTbl,atom : cardinal) : cardinal; cdecl; function WinQueryAtomLength(hAtomTbl,atom : cardinal) : cardinal; cdecl; - function WinQueryAtomName(hAtomTbl,atom : cardinal;pchBuffer : pshortint;cchBufferMax : cardinal) : cardinal; cdecl; + function WinQueryAtomName(hAtomTbl,atom : cardinal;pchBuffer : pchar;cchBufferMax : cardinal) : cardinal; cdecl; function WinGetLastError(hab : cardinal) : cardinal; cdecl; function WinGetErrorInfo(hab : cardinal) : PERRINFO; cdecl; function WinFreeErrorInfo(perrinfo : PERRINFO) : longbool; cdecl; {DDE Functions} - function WinDdeInitiate(hwndClient : cardinal;pszAppName,pszTopicName : pshortint;pcctxt : PCONVCONTEXT) : longbool; cdecl; - function WinDdeRespond(hwndClient,hwndServer : cardinal;pszAppName,pszTopicName : pshortint;pcctxt : PCONVCONTEXT) : pointer; cdecl; + function WinDdeInitiate(hwndClient : cardinal;pszAppName,pszTopicName : pchar;pcctxt : PCONVCONTEXT) : longbool; cdecl; + function WinDdeRespond(hwndClient,hwndServer : cardinal;pszAppName,pszTopicName : pchar;pcctxt : PCONVCONTEXT) : pointer; cdecl; function WinDdePostMsg(hwndTo,hwndFrom,wm : cardinal;pddest : PDDESTRUCT;flOptions : cardinal) : longbool; cdecl; {Library related functions} function WinDeleteProcedure(hab : cardinal;wndproc : ppointer) : longbool; cdecl; function WinDeleteLibrary(hab,libhandle : cardinal) : longbool; cdecl; - function WinLoadProcedure(hab,libhandle : cardinal;procname : pshortint) : ppointer; cdecl; - function WinLoadLibrary(hab : cardinal;libname : pshortint) : cardinal; cdecl; + function WinLoadProcedure(hab,libhandle : cardinal;procname : pchar) : ppointer; cdecl; + function WinLoadLibrary(hab : cardinal;libname : pchar) : cardinal; cdecl; function WinSetDesktopBkgnd(hwndDesktop : cardinal;pdskNew : PDESKTOP) : cardinal; cdecl; function WinQueryDesktopBkgnd(hwndDesktop : cardinal;pdsk : PDESKTOP) : longbool; cdecl; function WinRealizePalette(hwnd,hps : cardinal;pcclr : pcardinal) : longint; cdecl; @@ -1835,257 +1835,259 @@ const implementation - function WinRegisterClass(hab : cardinal;pszClassName : pshortint;pfnWndProc : ppointer;flStyle,cbWindowData : cardinal) : longbool; cdecl;external; - function WinDefWindowProc(hwnd,msg : cardinal;mp1,mp2 : pointer) : pointer; cdecl;external; - function WinDestroyWindow(hwnd : cardinal) : longbool; cdecl;external; - function WinShowWindow(hwnd : cardinal;fShow : longbool) : longbool; cdecl;external; - function WinQueryWindowRect(hwnd : cardinal;prclDest : PRECTL) : longbool; cdecl;external; - function WinGetPS(hwnd : cardinal) : cardinal; cdecl;external; - function WinReleasePS(hps : cardinal) : longbool; cdecl;external; - function WinEndPaint(hps : cardinal) : longbool; cdecl;external; - function WinGetClipPS(hwnd,hwndClip,fl : cardinal) : cardinal; cdecl;external; - function WinIsWindowShowing(hwnd : cardinal) : longbool; cdecl;external; - function WinBeginPaint(hwnd,hps : cardinal;prclPaint : PRECTL) : cardinal; cdecl;external; - function WinOpenWindowDC(hwnd : cardinal) : cardinal; cdecl;external; - function WinScrollWindow(hwnd : cardinal;dx,dy : longint;prclScroll,prclClip : PRECTL;hrgnUpdate : cardinal;prclUpdate : PRECTL;rgfsw : cardinal) : longint; cdecl;external; - function WinFillRect(hps : cardinal;prcl : PRECTL;lColor : longint) : longbool; cdecl;external; - function WinQueryVersion(hab : cardinal) : cardinal; cdecl;external; - function WinInitialize(flOptions : cardinal) : cardinal; cdecl;external; - function WinTerminate(hab : cardinal) : longbool; cdecl;external; - function WinQueryAnchorBlock(hwnd : cardinal) : cardinal; cdecl;external; - function WinCreateWindow(hwndParent : cardinal;pszClass,pszName : pshortint;flStyle : cardinal;x,y,cx,cy : longint;hwndOwner,hwndInsertBehind,id : cardinal;pCtlData,pPresParams : pointer) : cardinal; cdecl;external; - function WinEnableWindow(hwnd : cardinal;fEnable : longbool) : longbool; cdecl;external; - function WinIsWindowEnabled(hwnd : cardinal) : longbool; cdecl;external; - function WinEnableWindowUpdate(hwnd : cardinal;fEnable : longbool) : longbool; cdecl;external; - function WinIsWindowVisible(hwnd : cardinal) : longbool; cdecl;external; - function WinQueryWindowText(hwnd : cardinal;cchBufferMax : longint;pchBuffer : pshortint) : longint; cdecl;external; - function WinSetWindowText(hwnd : cardinal;pszText : pshortint) : longbool; cdecl;external; - function WinQueryWindowTextLength(hwnd : cardinal) : longint; cdecl;external; - function WinWindowFromID(hwndParent,id : cardinal) : cardinal; cdecl;external; - function WinIsWindow(hab,hwnd : cardinal) : longbool; cdecl;external; - function WinQueryWindow(hwnd : cardinal;cmd : longint) : cardinal; cdecl;external; - function WinMultWindowFromIDs(hwndParent : cardinal;prghwnd : pcardinal;idFirst,idLast : cardinal) : longint; cdecl;external; - function WinSetParent(hwnd,hwndNewParent : cardinal;fRedraw : longbool) : longbool; cdecl;external; - function WinIsChild(hwnd,hwndParent : cardinal) : longbool; cdecl;external; - function WinSetOwner(hwnd,hwndNewOwner : cardinal) : longbool; cdecl;external; - function WinQueryWindowProcess(hwnd : cardinal;ppid,ptid : pcardinal) : longbool; cdecl;external; - function WinQueryObjectWindow(hwndDesktop : cardinal) : cardinal; cdecl;external; - function WinQueryDesktopWindow(hab,hdc : cardinal) : cardinal; cdecl;external; - function WinSetWindowPos(hwnd,hwndInsertBehind : cardinal;x,y,cx,cy : longint;fl : cardinal) : longbool; cdecl;external; - function WinSetMultWindowPos(hab : cardinal;pswp : PSWP;cswp : cardinal) : longbool; cdecl;external; - function WinQueryWindowPos(hwnd : cardinal;pswp : PSWP) : longbool; cdecl;external; - function WinUpdateWindow(hwnd : cardinal) : longbool; cdecl;external; - function WinInvalidateRect(hwnd : cardinal;pwrc : PRECTL;fIncludeChildren : longbool) : longbool; cdecl;external; - function WinInvalidateRegion(hwnd,hrgn : cardinal;fIncludeChildren : longbool) : longbool; cdecl;external; - function WinInvertRect(hps : cardinal;prcl : PRECTL) : longbool; cdecl;external; - function WinDrawBitmap(hpsDst,hbm : cardinal;pwrcSrc : PRECTL;pptlDst : PPOINTL;clrFore,clrBack : longint;fl : cardinal) : longbool; cdecl;external; - function WinDrawText(hps : cardinal;cchText : longint;lpchText : pshortint;prcl : PRECTL;clrFore,clrBack : longint;flCmd : cardinal) : longint; cdecl;external; - function WinDrawBorder(hps : cardinal;prcl : PRECTL;cx,cy,clrFore,clrBack : longint;flCmd : cardinal) : longbool; cdecl;external; - function WinLoadString(hab,hmod,id : cardinal;cchMax : longint;pchBuffer : pshortint) : longint; cdecl;external; - function WinLoadMessage(hab,hmod,id : cardinal;cchMax : longint;pchBuffer : pshortint) : longint; cdecl;external; - function WinSetActiveWindow(hwndDesktop,hwnd : cardinal) : longbool; cdecl;external; - function WinSubclassWindow(hwnd : cardinal;pfnwp : ppointer) : ppointer; cdecl;external; - function WinQueryClassName(hwnd : cardinal;cchMax : longint;pch : pshortint) : longint; cdecl;external; - function WinQueryClassInfo(hab : cardinal;pszClassName : pshortint;pClassInfo : PCLASSINFO) : longbool; cdecl;external; - function WinQueryActiveWindow(hwndDesktop : cardinal) : cardinal; cdecl;external; - function WinIsThreadActive(hab : cardinal) : longbool; cdecl;external; - function WinQuerySysModalWindow(hwndDesktop : cardinal) : cardinal; cdecl;external; - function WinSetSysModalWindow(hwndDesktop,hwnd : cardinal) : longbool; cdecl;external; - function WinQueryWindowUShort(hwnd : cardinal;index : longint) : word; cdecl;external; - function WinSetWindowUShort(hwnd : cardinal;index : longint;us : word) : longbool; cdecl;external; - function WinQueryWindowULong(hwnd : cardinal;index : longint) : cardinal; cdecl;external; - function WinSetWindowULong(hwnd : cardinal;index : longint;ul : cardinal) : longbool; cdecl;external; - function WinQueryWindowPtr(hwnd : cardinal;index : longint) : pointer; cdecl;external; - function WinSetWindowPtr(hwnd : cardinal;index : longint;p : pointer) : longbool; cdecl;external; - function WinSetWindowBits(hwnd : cardinal;index : longint;flData,flMask : cardinal) : longbool; cdecl;external; - function WinBeginEnumWindows(hwnd : cardinal) : cardinal; cdecl;external; - function WinGetNextWindow(henum : cardinal) : cardinal; cdecl;external; - function WinEndEnumWindows(henum : cardinal) : longbool; cdecl;external; - function WinWindowFromPoint(hwnd : cardinal;pptl : PPOINTL;fChildren : longbool) : cardinal; cdecl;external; - function WinMapWindowPoints(hwndFrom,hwndTo : cardinal;prgptl : PPOINTL;cwpt : longint) : longbool; cdecl;external; - function WinValidateRect(hwnd : cardinal;prcl : PRECTL;fIncludeChildren : longbool) : longbool; cdecl;external; - function WinValidateRegion(hwnd,hrgn : cardinal;fIncludeChildren : longbool) : longbool; cdecl;external; - function WinWindowFromDC(hdc : cardinal) : cardinal; cdecl;external; - function WinQueryWindowDC(hwnd : cardinal) : cardinal; cdecl;external; - function WinGetScreenPS(hwndDesktop : cardinal) : cardinal; cdecl;external; - function WinLockWindowUpdate(hwndDesktop,hwndLockUpdate : cardinal) : longbool; cdecl;external; - function WinLockVisRegions(hwndDesktop : cardinal;fLock : longbool) : longbool; cdecl;external; - function WinQueryUpdateRect(hwnd : cardinal;prcl : PRECTL) : longbool; cdecl;external; - function WinQueryUpdateRegion(hwnd,hrgn : cardinal) : longint; cdecl;external; - function WinExcludeUpdateRegion(hps,hwnd : cardinal) : longint; cdecl;external; - function WinSendMsg(hwnd,msg : cardinal;mp1,mp2 : pointer) : pointer; cdecl;external; - function WinCreateMsgQueue(hab : cardinal;cmsg : longint) : cardinal; cdecl;external; - function WinDestroyMsgQueue(hmq : cardinal) : longbool; cdecl;external; - function WinQueryQueueInfo(hmq : cardinal;pmqi : PMQINFO;cbCopy : cardinal) : longbool; cdecl;external; - function WinCancelShutdown(hmq : cardinal;fCancelAlways : longbool) : longbool; cdecl;external; - function WinGetMsg(hab : cardinal;pqmsg : PQMSG;hwndFilter,msgFilterFirst,msgFilterLast : cardinal) : longbool; cdecl;external; - function WinPeekMsg(hab : cardinal;pqmsg : PQMSG;hwndFilter,msgFilterFirst,msgFilterLast,fl : cardinal) : longbool; cdecl;external; - function WinDispatchMsg(hab : cardinal;pqmsg : PQMSG) : pointer; cdecl;external; - function WinPostMsg(hwnd,msg : cardinal;mp1,mp2 : pointer) : longbool; cdecl;external; - function WinRegisterUserMsg(hab,msgid : cardinal;datatype1,dir1,datatype2,dir2,datatyper : longint) : longbool; cdecl;external; - function WinRegisterUserDatatype(hab : cardinal;datatype,count : longint;types : Plongint) : longbool; cdecl;external; - function WinSetMsgMode(hab : cardinal;classname : pshortint;control : longint) : longbool; cdecl;external; - function WinSetSynchroMode(hab : cardinal;mode : longint) : longbool; cdecl;external; - function WinInSendMsg(hab : cardinal) : longbool; cdecl;external; - function WinBroadcastMsg(hwnd,msg : cardinal;mp1,mp2 : pointer;rgf : cardinal) : longbool; cdecl;external; - function WinWaitMsg(hab,msgFirst,msgLast : cardinal) : longbool; cdecl;external; - function WinQueryQueueStatus(hwndDesktop : cardinal) : cardinal; cdecl;external; - function WinQueryMsgPos(hab : cardinal;pptl : PPOINTL) : longbool; cdecl;external; - function WinQueryMsgTime(hab : cardinal) : cardinal; cdecl;external; - function WinWaitEventSem(hev,ulTimeout : cardinal) : cardinal; cdecl;external; - function WinRequestMutexSem(hmtx,ulTimeout : cardinal) : cardinal; cdecl;external; - function WinWaitMuxWaitSem(hmux,ulTimeout : cardinal;pulUser : pcardinal) : cardinal; cdecl;external; - function WinPostQueueMsg(hmq,msg : cardinal;mp1,mp2 : pointer) : longbool; cdecl;external; - function WinSetMsgInterest(hwnd,msg_class : cardinal;control : longint) : longbool; cdecl;external; - function WinSetClassMsgInterest(hab : cardinal;pszClassName : pshortint;msg_class : cardinal;control : longint) : longbool; cdecl;external; - function WinSetFocus(hwndDesktop,hwndSetFocus : cardinal) : longbool; cdecl;external; - function WinFocusChange(hwndDesktop,hwndSetFocus,flFocusChange : cardinal) : longbool; cdecl;external; - function WinSetCapture(hwndDesktop,hwnd : cardinal) : longbool; cdecl;external; - function WinQueryCapture(hwndDesktop : cardinal) : cardinal; cdecl;external; - function WinQueryFocus(hwndDesktop : cardinal) : cardinal; cdecl;external; - function WinGetKeyState(hwndDesktop : cardinal;vkey : longint) : longint; cdecl;external; - function WinGetPhysKeyState(hwndDesktop : cardinal;sc : longint) : longint; cdecl;external; - function WinEnablePhysInput(hwndDesktop : cardinal;fEnable : longbool) : longbool; cdecl;external; - function WinIsPhysInputEnabled(hwndDesktop : cardinal) : longbool; cdecl;external; - function WinSetKeyboardStateTable(hwndDesktop : cardinal;pKeyStateTable : PBYTE;fSet : longbool) : longbool; cdecl;external; - function WinGetDlgMsg(hwndDlg : cardinal;pqmsg : PQMSG) : longbool; cdecl;external; - function WinLoadDlg(hwndParent,hwndOwner : cardinal;pfnDlgProc : ppointer;hmod,idDlg : cardinal;pCreateParams : pointer) : cardinal; cdecl;external; - function WinDlgBox(hwndParent,hwndOwner : cardinal;pfnDlgProc : ppointer;hmod,idDlg : cardinal;pCreateParams : pointer) : cardinal; cdecl;external; - function WinDismissDlg(hwndDlg,usResult : cardinal) : longbool; cdecl;external; - function WinQueryDlgItemShort(hwndDlg,idItem : cardinal;pResult : Pinteger;fSigned : longbool) : longbool; cdecl;external; - function WinSetDlgItemShort(hwndDlg,idItem : cardinal;usValue : word;fSigned : longbool) : longbool; cdecl;external; - function WinSetDlgItemText(hwndDlg,idItem : cardinal;pszText : pshortint) : longbool; cdecl;external; - function WinQueryDlgItemText(hwndDlg,idItem : cardinal;cchBufferMax : longint;pchBuffer : pshortint) : cardinal; cdecl;external; - function WinQueryDlgItemTextLength(hwndDlg,idItem : cardinal) : longint; cdecl;external; - function WinDefDlgProc(hwndDlg,msg : cardinal;mp1,mp2 : pointer) : pointer; cdecl;external; - function WinAlarm(hwndDesktop,rgfType : cardinal) : longbool; cdecl;external; - function WinMessageBox(hwndParent,hwndOwner : cardinal;pszText,pszCaption : pshortint;idWindow,flStyle : cardinal) : cardinal; cdecl;external; - function WinProcessDlg(hwndDlg : cardinal) : cardinal; cdecl;external; - function WinSendDlgItemMsg(hwndDlg,idItem,msg : cardinal;mp1,mp2 : pointer) : pointer; cdecl;external; - function WinMapDlgPoints(hwndDlg : cardinal;prgwptl : PPOINTL;cwpt : cardinal;fCalcWindowCoords : longbool) : longbool; cdecl;external; - function WinEnumDlgItem(hwndDlg,hwnd,code : cardinal) : cardinal; cdecl;external; - function WinSubstituteStrings(hwnd : cardinal;pszSrc : pshortint;cchDstMax : longint;pszDst : pshortint) : longint; cdecl;external; - function WinCreateDlg(hwndParent,hwndOwner : cardinal;pfnDlgProc : ppointer;pdlgt : PDLGTEMPLATE;pCreateParams : pointer) : cardinal; cdecl;external; - function WinLoadMenu(hwndFrame,hmod,idMenu : cardinal) : cardinal; cdecl;external; - function WinCreateMenu(hwndParent : cardinal;lpmt : pointer) : cardinal; cdecl;external; - function WinPopupMenu(hwndParent,hwndOwner,hwndMenu : cardinal;x,y,idItem : longint;fs : cardinal) : longbool; cdecl;external; - function WinCreateStdWindow(hwndParent,flStyle : cardinal;pflCreateFlags : pcardinal;pszClientClass,pszTitle : pshortint;styleClient,hmod,idResources : cardinal;phwndClient : pcardinal) : cardinal; cdecl;external; - function WinFlashWindow(hwndFrame : cardinal;fFlash : longbool) : longbool; cdecl;external; - function WinCreateFrameControls(hwndFrame : cardinal;pfcdata : PFRAMECDATA;pszTitle : pshortint) : longbool; cdecl;external; - function WinCalcFrameRect(hwndFrame : cardinal;prcl : PRECTL;fClient : longbool) : longbool; cdecl;external; - function WinGetMinPosition(hwnd : cardinal;pswp : PSWP;pptl : PPOINTL) : longbool; cdecl;external; - function WinGetMaxPosition(hwnd : cardinal;pswp : PSWP) : longbool; cdecl;external; - function WinSaveWindowPos(hsvwp : cardinal;pswp : PSWP;cswp : cardinal) : longbool; cdecl;external; - function WinCopyRect(hab : cardinal;prclDst,prclSrc : PRECTL) : longbool; cdecl;external; - function WinSetRect(hab : cardinal;prcl : PRECTL;xLeft,yBottom,xRight,yTop : longint) : longbool; cdecl;external; - function WinIsRectEmpty(hab : cardinal;prcl : PRECTL) : longbool; cdecl;external; - function WinEqualRect(hab : cardinal;prcl1,prcl2 : PRECTL) : longbool; cdecl;external; - function WinSetRectEmpty(hab : cardinal;prcl : PRECTL) : longbool; cdecl;external; - function WinOffsetRect(hab : cardinal;prcl : PRECTL;cx,cy : longint) : longbool; cdecl;external; - function WinInflateRect(hab : cardinal;prcl : PRECTL;cx,cy : longint) : longbool; cdecl;external; - function WinPtInRect(hab : cardinal;prcl : PRECTL;pptl : PPOINTL) : longbool; cdecl;external; - function WinIntersectRect(hab : cardinal;prclDst,prclSrc1,prclSrc2 : PRECTL) : longbool; cdecl;external; - function WinUnionRect(hab : cardinal;prclDst,prclSrc1,prclSrc2 : PRECTL) : longbool; cdecl;external; - function WinSubtractRect(hab : cardinal;prclDst,prclSrc1,prclSrc2 : PRECTL) : longbool; cdecl;external; - function WinMakeRect(hab : cardinal;pwrc : PRECTL) : longbool; cdecl;external; - function WinMakePoints(hab : cardinal;pwpt : PPOINTL;cwpt : cardinal) : longbool; cdecl;external; - function WinQuerySysValue(hwndDesktop : cardinal;iSysValue : longint) : longint; cdecl;external; - function WinSetSysValue(hwndDesktop : cardinal;iSysValue,lValue : longint) : longbool; cdecl;external; - function WinSetPresParam(hwnd,id,cbParam : cardinal;pbParam : pointer) : longbool; cdecl;external; - function WinQueryPresParam(hwnd,id1,id2 : cardinal;pulId : pcardinal;cbBuf : cardinal;pbBuf : pointer;fs : cardinal) : cardinal; cdecl;external; - function WinRemovePresParam(hwnd,id : cardinal) : longbool; cdecl;external; - function WinQuerySysColor(hwndDesktop : cardinal;clr,lReserved : longint) : longint; cdecl;external; - function WinSetSysColors(hwndDesktop,flOptions,flFormat : cardinal;clrFirst : longint;cclr : cardinal;pclr : Plongint) : longbool; cdecl;external; - function WinStartTimer(hab,hwnd,idTimer,dtTimeout : cardinal) : cardinal; cdecl;external; - function WinStopTimer(hab,hwnd,idTimer : cardinal) : longbool; cdecl;external; - function WinGetCurrentTime(hab : cardinal) : cardinal; cdecl;external; - function WinLoadAccelTable(hab,hmod,idAccelTable : cardinal) : cardinal; cdecl;external; - function WinCopyAccelTable(haccel : cardinal;pAccelTable : PACCELTABLE;cbCopyMax : cardinal) : cardinal; cdecl;external; - function WinCreateAccelTable(hab : cardinal;pAccelTable : PACCELTABLE) : cardinal; cdecl;external; - function WinDestroyAccelTable(haccel : cardinal) : longbool; cdecl;external; - function WinTranslateAccel(hab,hwnd,haccel : cardinal;pqmsg : PQMSG) : longbool; cdecl;external; - function WinSetAccelTable(hab,haccel,hwndFrame : cardinal) : longbool; cdecl;external; - function WinQueryAccelTable(hab,hwndFrame : cardinal) : cardinal; cdecl;external; - function WinTrackRect(hwnd,hps : cardinal;pti : PTRACKINFO) : longbool; cdecl;external; - function WinShowTrackRect(hwnd : cardinal;fShow : longbool) : longbool; cdecl;external; - function WinSetClipbrdOwner(hab,hwnd : cardinal) : longbool; cdecl;external; - function WinSetClipbrdData(hab,ulData,fmt,rgfFmtInfo : cardinal) : longbool; cdecl;external; - function WinQueryClipbrdData(hab,fmt : cardinal) : cardinal; cdecl;external; - function WinQueryClipbrdFmtInfo(hab,fmt : cardinal;prgfFmtInfo : pcardinal) : longbool; cdecl;external; - function WinSetClipbrdViewer(hab,hwndNewClipViewer : cardinal) : longbool; cdecl;external; - function WinEnumClipbrdFmts(hab,fmt : cardinal) : cardinal; cdecl;external; - function WinEmptyClipbrd(hab : cardinal) : longbool; cdecl;external; - function WinOpenClipbrd(hab : cardinal) : longbool; cdecl;external; - function WinCloseClipbrd(hab : cardinal) : longbool; cdecl;external; - function WinQueryClipbrdOwner(hab : cardinal) : cardinal; cdecl;external; - function WinQueryClipbrdViewer(hab : cardinal) : cardinal; cdecl;external; - function WinDestroyCursor(hwnd : cardinal) : longbool; cdecl;external; - function WinShowCursor(hwnd : cardinal;fShow : longbool) : longbool; cdecl;external; - function WinCreateCursor(hwnd : cardinal;x,y,cx,cy : longint;fs : cardinal;prclClip : PRECTL) : longbool; cdecl;external; - function WinQueryCursorInfo(hwndDesktop : cardinal;pCursorInfo : PCURSORINFO) : longbool; cdecl;external; - function WinSetPointer(hwndDesktop,hptrNew : cardinal) : longbool; cdecl;external; - function WinSetPointerOwner(hptr,pid : cardinal;fDestroy : longbool) : longbool; cdecl;external; - function WinShowPointer(hwndDesktop : cardinal;fShow : longbool) : longbool; cdecl;external; - function WinQuerySysPointer(hwndDesktop : cardinal;iptr : longint;fLoad : longbool) : cardinal; cdecl;external; - function WinLoadPointer(hwndDesktop,hmod,idres : cardinal) : cardinal; cdecl;external; - function WinCreatePointer(hwndDesktop,hbmPointer : cardinal;fPointer : longbool;xHotspot,yHotspot : longint) : cardinal; cdecl;external; - function WinSetPointerPos(hwndDesktop : cardinal;x,y : longint) : longbool; cdecl;external; - function WinDestroyPointer(hptr : cardinal) : longbool; cdecl;external; - function WinQueryPointer(hwndDesktop : cardinal) : cardinal; cdecl;external; - function WinQueryPointerPos(hwndDesktop : cardinal;pptl : PPOINTL) : longbool; cdecl;external; - function WinCreatePointerIndirect(hwndDesktop : cardinal;pptri : PPOINTERINFO) : cardinal; cdecl;external; - function WinQueryPointerInfo(hptr : cardinal;pPointerInfo : PPOINTERINFO) : longbool; cdecl;external; - function WinDrawPointer(hps : cardinal;x,y : longint;hptr,fs : cardinal) : longbool; cdecl;external; - function WinGetSysBitmap(hwndDesktop,ibm : cardinal) : cardinal; cdecl;external; - function WinSetHook(hab,hmq : cardinal;iHook : longint;pfnHook : pointer;hmod : cardinal) : longbool; cdecl;external; - function WinReleaseHook(hab,hmq : cardinal;iHook : longint;pfnHook : pointer;hmod : cardinal) : longbool; cdecl;external; - function WinCallMsgFilter(hab : cardinal;pqmsg : PQMSG;msgf : cardinal) : longbool; cdecl;external; - function WinSetClassThunkProc(pszClassname : pshortint;pfnThunkProc : pointer) : longbool; cdecl;external; - function WinQueryClassThunkProc(pszClassname : pshortint) : pointer; cdecl;external; - function WinSetWindowThunkProc(hwnd : cardinal;pfnThunkProc : pointer) : longbool; cdecl;external; - function WinQueryWindowThunkProc(hwnd : cardinal) : pointer; cdecl;external; - function WinQueryWindowModel(hwnd : cardinal) : longint; cdecl;external; - function WinQueryCp(hmq : cardinal) : cardinal; cdecl;external; - function WinSetCp(hmq,idCodePage : cardinal) : longbool; cdecl;external; - function WinQueryCpList(hab,ccpMax : cardinal;prgcp : pcardinal) : cardinal; cdecl;external; - function WinCpTranslateString(hab,cpSrc : cardinal;pszSrc : pshortint;cpDst,cchDestMax : cardinal;pchDest : pshortint) : longbool; cdecl;external; - function WinCpTranslateChar(hab,cpSrc : cardinal;chSrc : byte;cpDst : cardinal) : byte; cdecl;external; - function WinUpper(hab,idcp,idcc : cardinal;psz : pshortint) : cardinal; cdecl;external; - function WinUpperChar(hab,idcp,idcc,c : cardinal) : cardinal; cdecl;external; - function WinNextChar(hab,idcp,idcc : cardinal;psz : pshortint) : pshortint; cdecl;external; - function WinPrevChar(hab,idcp,idcc : cardinal;pszStart,psz : pshortint) : pshortint; cdecl;external; - function WinCompareStrings(hab,idcp,idcc : cardinal;psz1,psz2 : pshortint;reserved : cardinal) : cardinal; cdecl;external; - function WinCreateAtomTable(cbInitial,cBuckets : cardinal) : cardinal; cdecl;external; - function WinDestroyAtomTable(hAtomTbl : cardinal) : cardinal; cdecl;external; - function WinAddAtom(hAtomTbl : cardinal;pszAtomName : pshortint) : cardinal; cdecl;external; - function WinFindAtom(hAtomTbl : cardinal;pszAtomName : pshortint) : cardinal; cdecl;external; - function WinDeleteAtom(hAtomTbl,atom : cardinal) : cardinal; cdecl;external; - function WinQueryAtomUsage(hAtomTbl,atom : cardinal) : cardinal; cdecl;external; - function WinQueryAtomLength(hAtomTbl,atom : cardinal) : cardinal; cdecl;external; - function WinQueryAtomName(hAtomTbl,atom : cardinal;pchBuffer : pshortint;cchBufferMax : cardinal) : cardinal; cdecl;external; - function WinGetLastError(hab : cardinal) : cardinal; cdecl;external; - function WinGetErrorInfo(hab : cardinal) : PERRINFO; cdecl;external; - function WinFreeErrorInfo(perrinfo : PERRINFO) : longbool; cdecl;external; - function WinDdeInitiate(hwndClient : cardinal;pszAppName,pszTopicName : pshortint;pcctxt : PCONVCONTEXT) : longbool; cdecl;external; - function WinDdeRespond(hwndClient,hwndServer : cardinal;pszAppName,pszTopicName : pshortint;pcctxt : PCONVCONTEXT) : pointer; cdecl;external; - function WinDdePostMsg(hwndTo,hwndFrom,wm : cardinal;pddest : PDDESTRUCT;flOptions : cardinal) : longbool; cdecl;external; - function WinDeleteProcedure(hab : cardinal;wndproc : ppointer) : longbool; cdecl;external; - function WinDeleteLibrary(hab,libhandle : cardinal) : longbool; cdecl;external; - function WinLoadProcedure(hab,libhandle : cardinal;procname : pshortint) : ppointer; cdecl;external; - function WinLoadLibrary(hab : cardinal;libname : pshortint) : cardinal; cdecl;external; - function WinSetDesktopBkgnd(hwndDesktop : cardinal;pdskNew : PDESKTOP) : cardinal; cdecl;external; - function WinQueryDesktopBkgnd(hwndDesktop : cardinal;pdsk : PDESKTOP) : longbool; cdecl;external; - function WinRealizePalette(hwnd,hps : cardinal;pcclr : pcardinal) : longint; cdecl;external; + function WinRegisterClass(hab : cardinal;pszClassName : pchar;pfnWndProc : ppointer;flStyle,cbWindowData : cardinal) : longbool; cdecl;external 'pmwin' index 926; + function WinDefWindowProc(hwnd,msg : cardinal;mp1,mp2 : pointer) : pointer; cdecl;external 'pmwin' index 911; + function WinDestroyWindow(hwnd : cardinal) : longbool; cdecl;external 'pmwin' index 728; + function WinShowWindow(hwnd : cardinal;fShow : longbool) : longbool; cdecl;external 'pmwin' index 883; + function WinQueryWindowRect(hwnd : cardinal;prclDest : PRECTL) : longbool; cdecl;external 'pmwin' index 840; + function WinGetPS(hwnd : cardinal) : cardinal; cdecl;external 'pmwin' index 757; + function WinReleasePS(hps : cardinal) : longbool; cdecl;external 'pmwin' index 848; + function WinEndPaint(hps : cardinal) : longbool; cdecl;external 'pmwin' index 738; + function WinGetClipPS(hwnd,hwndClip,fl : cardinal) : cardinal; cdecl;external 'pmwin' index 749; + function WinIsWindowShowing(hwnd : cardinal) : longbool; cdecl;external 'pmwin' index 774; + function WinBeginPaint(hwnd,hps : cardinal;prclPaint : PRECTL) : cardinal; cdecl;external 'pmwin' index 703; + function WinOpenWindowDC(hwnd : cardinal) : cardinal; cdecl;external 'pmwin' index 794; + function WinScrollWindow(hwnd : cardinal;dx,dy : longint;prclScroll,prclClip : PRECTL;hrgnUpdate : cardinal;prclUpdate : PRECTL;rgfsw : cardinal) : longint; cdecl;external 'pmwin' index 849; + function WinFillRect(hps : cardinal;prcl : PRECTL;lColor : longint) : longbool; cdecl;external 'pmwin' index 743; + function WinQueryVersion(hab : cardinal) : cardinal; cdecl;external 'pmwin' index 833; + function WinInitialize(flOptions : cardinal) : cardinal; cdecl;external 'pmwin' index 763; + function WinTerminate(hab : cardinal) : longbool; cdecl;external 'pmwin' index 888; + function WinQueryAnchorBlock(hwnd : cardinal) : cardinal; cdecl;external 'pmwin' index 800; + function WinCreateWindow(hwndParent : cardinal;pszClass,pszName : pchar;flStyle : cardinal;x,y,cx,cy : longint;hwndOwner,hwndInsertBehind,id : cardinal;pCtlData,pPresParams : pointer) : cardinal; cdecl;external 'pmwin' index 909; + function WinEnableWindow(hwnd : cardinal;fEnable : longbool) : longbool; cdecl;external 'pmwin' index 735; + function WinIsWindowEnabled(hwnd : cardinal) : longbool; cdecl;external 'pmwin' index 773; + function WinEnableWindowUpdate(hwnd : cardinal;fEnable : longbool) : longbool; cdecl;external 'pmwin' index 736; + function WinIsWindowVisible(hwnd : cardinal) : longbool; cdecl;external 'pmwin' index 775; + function WinQueryWindowText(hwnd : cardinal;cchBufferMax : longint;pchBuffer : pshortint) : longint; cdecl;external 'pmwin' index 841; + function WinSetWindowText(hwnd : cardinal;pszText : pchar) : longbool; cdecl;external 'pmwin' index 877; + function WinQueryWindowTextLength(hwnd : cardinal) : longint; cdecl;external 'pmwin' index 842; + function WinWindowFromID(hwndParent,id : cardinal) : cardinal; cdecl;external 'pmwin' index 899; + function WinIsWindow(hab,hwnd : cardinal) : longbool; cdecl;external 'pmwin' index 772; + function WinQueryWindow(hwnd : cardinal;cmd : longint) : cardinal; cdecl;external 'pmwin' index 834; + function WinMultWindowFromIDs(hwndParent : cardinal;prghwnd : pcardinal;idFirst,idLast : cardinal) : longint; cdecl;external 'pmwin' index 917; + function WinSetParent(hwnd,hwndNewParent : cardinal;fRedraw : longbool) : longbool; cdecl;external 'pmwin' index 865; + function WinIsChild(hwnd,hwndParent : cardinal) : longbool; cdecl;external 'pmwin' index 768; + function WinSetOwner(hwnd,hwndNewOwner : cardinal) : longbool; cdecl;external 'pmwin' index 864; + function WinQueryWindowProcess(hwnd : cardinal;ppid,ptid : pcardinal) : longbool; cdecl;external 'pmwin' index 838; + function WinQueryObjectWindow(hwndDesktop : cardinal) : cardinal; cdecl;external 'pmwin' index 820; + function WinQueryDesktopWindow(hab,hdc : cardinal) : cardinal; cdecl;external 'pmwin' index 813; + function WinSetWindowPos(hwnd,hwndInsertBehind : cardinal;x,y,cx,cy : longint;fl : cardinal) : longbool; cdecl;external 'pmwin' index 875; + function WinSetMultWindowPos(hab : cardinal;pswp : PSWP;cswp : cardinal) : longbool; cdecl;external 'pmwin' index 863; + function WinQueryWindowPos(hwnd : cardinal;pswp : PSWP) : longbool; cdecl;external 'pmwin' index 837; + function WinUpdateWindow(hwnd : cardinal) : longbool; cdecl;external 'pmwin' index 892; + function WinInvalidateRect(hwnd : cardinal;pwrc : PRECTL;fIncludeChildren : longbool) : longbool; cdecl;external 'pmwin' index 765; + function WinInvalidateRegion(hwnd,hrgn : cardinal;fIncludeChildren : longbool) : longbool; cdecl;external 'pmwin' index 766; + function WinInvertRect(hps : cardinal;prcl : PRECTL) : longbool; cdecl;external 'pmwin' index 767; + function WinDrawBitmap(hpsDst,hbm : cardinal;pwrcSrc : PRECTL;pptlDst : PPOINTL;clrFore,clrBack : longint;fl : cardinal) : longbool; cdecl;external 'pmwin' index 730; + function WinDrawText(hps : cardinal;cchText : longint;lpchText : pshortint;prcl : PRECTL;clrFore,clrBack : longint;flCmd : cardinal) : longint; cdecl;external 'pmwin' index 913; + function WinDrawBorder(hps : cardinal;prcl : PRECTL;cx,cy,clrFore,clrBack : longint;flCmd : cardinal) : longbool; cdecl;external 'pmwin' index 731; + function WinLoadString(hab,hmod,id : cardinal;cchMax : longint;pchBuffer : pchar) : longint; cdecl;external 'pmwin' index 781; + function WinLoadMessage(hab,hmod,id : cardinal;cchMax : longint;pchBuffer : pchar) : longint; cdecl;external 'pmwin' index 779; + function WinSetActiveWindow(hwndDesktop,hwnd : cardinal) : longbool; cdecl;external 'pmwin' index 851; + function WinSubclassWindow(hwnd : cardinal;pfnwp : ppointer) : ppointer; cdecl;external 'pmwin' index 929; + function WinQueryClassName(hwnd : cardinal;cchMax : longint;pch : pshortint) : longint; cdecl;external 'pmwin' index 805; + function WinQueryClassInfo(hab : cardinal;pszClassName : pchar;pClassInfo : PCLASSINFO) : longbool; cdecl;external 'pmwin' index 925; + function WinQueryActiveWindow(hwndDesktop : cardinal) : cardinal; cdecl;external 'pmwin' index 799; + function WinIsThreadActive(hab : cardinal) : longbool; cdecl;external 'pmwin' index 771; + function WinQuerySysModalWindow(hwndDesktop : cardinal) : cardinal; cdecl;external 'pmwin' index 827; + function WinSetSysModalWindow(hwndDesktop,hwnd : cardinal) : longbool; cdecl;external 'pmwin' index 872; + function WinQueryWindowUShort(hwnd : cardinal;index : longint) : word; cdecl;external 'pmwin' index 844; + function WinSetWindowUShort(hwnd : cardinal;index : longint;us : word) : longbool; cdecl;external 'pmwin' index 879; + function WinQueryWindowULong(hwnd : cardinal;index : longint) : cardinal; cdecl;external 'pmwin' index 843; + function WinSetWindowULong(hwnd : cardinal;index : longint;ul : cardinal) : longbool; cdecl;external 'pmwin' index 878; + function WinQueryWindowPtr(hwnd : cardinal;index : longint) : pointer; cdecl;external 'pmwin' index 839; + function WinSetWindowPtr(hwnd : cardinal;index : longint;p : pointer) : longbool; cdecl;external 'pmwin' index 876; + function WinSetWindowBits(hwnd : cardinal;index : longint;flData,flMask : cardinal) : longbool; cdecl;external 'pmwin' index 874; + function WinBeginEnumWindows(hwnd : cardinal) : cardinal; cdecl;external 'pmwin' index 702; + function WinGetNextWindow(henum : cardinal) : cardinal; cdecl;external 'pmwin' index 756; + function WinEndEnumWindows(henum : cardinal) : longbool; cdecl;external 'pmwin' index 737; + function WinWindowFromPoint(hwnd : cardinal;pptl : PPOINTL;fChildren : longbool) : cardinal; cdecl;external 'pmwin' index 900; + function WinMapWindowPoints(hwndFrom,hwndTo : cardinal;prgptl : PPOINTL;cwpt : longint) : longbool; cdecl;external 'pmwin' index 788; + function WinValidateRect(hwnd : cardinal;prcl : PRECTL;fIncludeChildren : longbool) : longbool; cdecl;external 'pmwin' index 895; + function WinValidateRegion(hwnd,hrgn : cardinal;fIncludeChildren : longbool) : longbool; cdecl;external 'pmwin' index 896; + function WinWindowFromDC(hdc : cardinal) : cardinal; cdecl;external 'pmwin' index 898; + function WinQueryWindowDC(hwnd : cardinal) : cardinal; cdecl;external 'pmwin' index 835; + function WinGetScreenPS(hwndDesktop : cardinal) : cardinal; cdecl;external 'pmwin' index 759; + function WinLockWindowUpdate(hwndDesktop,hwndLockUpdate : cardinal) : longbool; cdecl;external 'pmwin' index 784; + function WinLockVisRegions(hwndDesktop : cardinal;fLock : longbool) : longbool; cdecl;external 'pmwin' index 782; + function WinQueryUpdateRect(hwnd : cardinal;prcl : PRECTL) : longbool; cdecl;external 'pmwin' index 831; + function WinQueryUpdateRegion(hwnd,hrgn : cardinal) : longint; cdecl;external 'pmwin' index 832; + function WinExcludeUpdateRegion(hps,hwnd : cardinal) : longint; cdecl;external 'pmwin' index 742; + function WinSendMsg(hwnd,msg : cardinal;mp1,mp2 : pointer) : pointer; cdecl;external 'pmwin' index 920; + function WinCreateMsgQueue(hab : cardinal;cmsg : longint) : cardinal; cdecl;external 'pmwin' index 716; + function WinDestroyMsgQueue(hmq : cardinal) : longbool; cdecl;external 'pmwin' index 726; + function WinQueryQueueInfo(hmq : cardinal;pmqi : PMQINFO;cbCopy : cardinal) : longbool; cdecl;external 'pmwin' index 824; + function WinCancelShutdown(hmq : cardinal;fCancelAlways : longbool) : longbool; cdecl;external 'pmwin' index 705; + function WinGetMsg(hab : cardinal;pqmsg : PQMSG;hwndFilter,msgFilterFirst,msgFilterLast : cardinal) : longbool; cdecl;external 'pmwin' index 915; + function WinPeekMsg(hab : cardinal;pqmsg : PQMSG;hwndFilter,msgFilterFirst,msgFilterLast,fl : cardinal) : longbool; cdecl;external 'pmwin' index 918; + function WinDispatchMsg(hab : cardinal;pqmsg : PQMSG) : pointer; cdecl;external 'pmwin' index 912; + function WinPostMsg(hwnd,msg : cardinal;mp1,mp2 : pointer) : longbool; cdecl;external 'pmwin' index 919; + function WinRegisterUserMsg(hab,msgid : cardinal;datatype1,dir1,datatype2,dir2,datatyper : longint) : longbool; cdecl;external 'pmwin' index 846; + function WinRegisterUserDatatype(hab : cardinal;datatype,count : longint;types : Plongint) : longbool; cdecl;external 'pmwin' index 845; + function WinSetMsgMode(hab : cardinal;classname :pchar;control : longint) : longbool; cdecl;external 'pmwin' index 862; + function WinSetSynchroMode(hab : cardinal;mode : longint) : longbool; cdecl;external 'pmwin' index 870; + function WinInSendMsg(hab : cardinal) : longbool; cdecl;external 'pmwin' index 761; + function WinBroadcastMsg(hwnd,msg : cardinal;mp1,mp2 : pointer;rgf : cardinal) : longbool; cdecl;external 'pmwin' index 901; + function WinWaitMsg(hab,msgFirst,msgLast : cardinal) : longbool; cdecl;external 'pmwin' index 897; + function WinQueryQueueStatus(hwndDesktop : cardinal) : cardinal; cdecl;external 'pmwin' index 825; + function WinQueryMsgPos(hab : cardinal;pptl : PPOINTL) : longbool; cdecl;external 'pmwin' index 818; + function WinQueryMsgTime(hab : cardinal) : cardinal; cdecl;external 'pmwin' index 819; + function WinWaitEventSem(hev,ulTimeout : cardinal) : cardinal; cdecl;external 'pmwin' index 978; + function WinRequestMutexSem(hmtx,ulTimeout : cardinal) : cardinal; cdecl;external 'pmwin' index 979; + function WinWaitMuxWaitSem(hmux,ulTimeout : cardinal;pulUser : pcardinal) : cardinal; cdecl;external 'pmwin' index 980; + function WinPostQueueMsg(hmq,msg : cardinal;mp1,mp2 : pointer) : longbool; cdecl;external 'pmwin' index 902; + function WinSetMsgInterest(hwnd,msg_class : cardinal;control : longint) : longbool; cdecl;external 'pmwin' index 861; + function WinSetClassMsgInterest(hab : cardinal;pszClassName : pchar;msg_class : cardinal;control : longint) : longbool; cdecl;external 'pmwin' index 853; + function WinSetFocus(hwndDesktop,hwndSetFocus : cardinal) : longbool; cdecl;external 'pmwin' index 860; + function WinFocusChange(hwndDesktop,hwndSetFocus,flFocusChange : cardinal) : longbool; cdecl;external 'pmwin' index 746; + function WinSetCapture(hwndDesktop,hwnd : cardinal) : longbool; cdecl;external 'pmwin' index 852; + function WinQueryCapture(hwndDesktop : cardinal) : cardinal; cdecl;external 'pmwin' index 804; + function WinQueryFocus(hwndDesktop : cardinal) : cardinal; cdecl;external 'pmwin' index 817; + function WinGetKeyState(hwndDesktop : cardinal;vkey : longint) : longint; cdecl;external 'pmwin' index 752; + function WinGetPhysKeyState(hwndDesktop : cardinal;sc : longint) : longint; cdecl;external 'pmwin' index 758; + function WinEnablePhysInput(hwndDesktop : cardinal;fEnable : longbool) : longbool; cdecl;external 'pmwin' index 734; + function WinIsPhysInputEnabled(hwndDesktop : cardinal) : longbool; cdecl;external 'pmwin' index 769; + function WinSetKeyboardStateTable(hwndDesktop : cardinal;pKeyStateTable : PBYTE;fSet : longbool) : longbool; cdecl;external 'pmwin' index 921; + function WinGetDlgMsg(hwndDlg : cardinal;pqmsg : PQMSG) : longbool; cdecl;external 'pmwin' index 914; + function WinLoadDlg(hwndParent,hwndOwner : cardinal;pfnDlgProc : ppointer;hmod,idDlg : cardinal;pCreateParams : pointer) : cardinal; cdecl;external 'pmwin' index 924; + function WinDlgBox(hwndParent,hwndOwner : cardinal;pfnDlgProc : ppointer;hmod,idDlg : cardinal;pCreateParams : pointer) : cardinal; cdecl;external 'pmwin' index 923; + function WinDismissDlg(hwndDlg,usResult : cardinal) : longbool; cdecl;external 'pmwin' index 729; + function WinQueryDlgItemShort(hwndDlg,idItem : cardinal;pResult : Pinteger;fSigned : longbool) : longbool; cdecl;external 'pmwin' index 814; + function WinSetDlgItemShort(hwndDlg,idItem : cardinal;usValue : word;fSigned : longbool) : longbool; cdecl;external 'pmwin' index 858; + function WinSetDlgItemText(hwndDlg,idItem : cardinal;pszText : pchar) : longbool; cdecl;external 'pmwin' index 859; + function WinQueryDlgItemText(hwndDlg,idItem : cardinal;cchBufferMax : longint;pchBuffer : pchar) : cardinal; cdecl;external 'pmwin' index 815; + function WinQueryDlgItemTextLength(hwndDlg,idItem : cardinal) : longint; cdecl;external 'pmwin' index 816; + function WinDefDlgProc(hwndDlg,msg : cardinal;mp1,mp2 : pointer) : pointer; cdecl;external 'pmwin' index 910; + function WinAlarm(hwndDesktop,rgfType : cardinal) : longbool; cdecl;external 'pmwin' index 701; + function WinMessageBox(hwndParent,hwndOwner : cardinal;pszText,pszCaption : pchar;idWindow,flStyle : cardinal) : cardinal; cdecl;external 'pmwin' index 789; + function WinProcessDlg(hwndDlg : cardinal) : cardinal; cdecl;external 'pmwin' index 796; + function WinSendDlgItemMsg(hwndDlg,idItem,msg : cardinal;mp1,mp2 : pointer) : pointer; cdecl;external 'pmwin' index 903; + function WinMapDlgPoints(hwndDlg : cardinal;prgwptl : PPOINTL;cwpt : cardinal;fCalcWindowCoords : longbool) : longbool; cdecl;external 'pmwin' index 787; + function WinEnumDlgItem(hwndDlg,hwnd,code : cardinal) : cardinal; cdecl;external 'pmwin' index 740; + function WinSubstituteStrings(hwnd : cardinal;pszSrc : pchar;cchDstMax : longint;pszDst : pchar) : longint; cdecl;external 'pmwin' index 886; + function WinCreateDlg(hwndParent,hwndOwner : cardinal;pfnDlgProc : ppointer;pdlgt : PDLGTEMPLATE;pCreateParams : pointer) : cardinal; cdecl;external 'pmwin' index 922; + function WinLoadMenu(hwndFrame,hmod,idMenu : cardinal) : cardinal; cdecl;external 'pmwin' index 778; + function WinCreateMenu(hwndParent : cardinal;lpmt : pointer) : cardinal; cdecl;external 'pmwin' index 907; + function WinPopupMenu(hwndParent,hwndOwner,hwndMenu : cardinal;x,y,idItem : longint;fs : cardinal) : longbool; cdecl;external 'pmwin' index 937; + function WinCreateStdWindow(hwndParent,flStyle : cardinal;pflCreateFlags : pcardinal;pszClientClass,pszTitle : pchar;styleClient,hmod,idResources : cardinal;phwndClient : pcardinal) : cardinal; cdecl;external 'pmwin' index 908; + function WinFlashWindow(hwndFrame : cardinal;fFlash : longbool) : longbool; cdecl;external 'pmwin' index 745; + function WinCreateFrameControls(hwndFrame : cardinal;pfcdata : PFRAMECDATA;pszTitle : pchar) : longbool; cdecl;external 'pmwin' index 906; + function WinCalcFrameRect(hwndFrame : cardinal;prcl : PRECTL;fClient : longbool) : longbool; cdecl;external 'pmwin' index 704; + function WinGetMinPosition(hwnd : cardinal;pswp : PSWP;pptl : PPOINTL) : longbool; cdecl;external 'pmwin' index 755; + function WinGetMaxPosition(hwnd : cardinal;pswp : PSWP) : longbool; cdecl;external 'pmwin' index 754; + function WinSaveWindowPos(hsvwp : cardinal;pswp : PSWP;cswp : cardinal) : longbool; cdecl;external 'pmwin' index 943; + function WinCopyRect(hab : cardinal;prclDst,prclSrc : PRECTL) : longbool; cdecl;external 'pmwin' index 710; + + function WinSetRect(hab : cardinal;prcl : PRECTL;xLeft,yBottom,xRight,yTop : longint) : longbool; cdecl;external 'pmwin' index 868; + function WinIsRectEmpty(hab : cardinal;prcl : PRECTL) : longbool; cdecl;external 'pmwin' index 770; + function WinEqualRect(hab : cardinal;prcl1,prcl2 : PRECTL) : longbool; cdecl;external 'pmwin' index 741; + function WinSetRectEmpty(hab : cardinal;prcl : PRECTL) : longbool; cdecl;external 'pmwin' index 869; + function WinOffsetRect(hab : cardinal;prcl : PRECTL;cx,cy : longint) : longbool; cdecl;external 'pmwin' index 792; + function WinInflateRect(hab : cardinal;prcl : PRECTL;cx,cy : longint) : longbool; cdecl;external 'pmwin' index 762; + function WinPtInRect(hab : cardinal;prcl : PRECTL;pptl : PPOINTL) : longbool; cdecl;external 'pmwin' index 797; + function WinIntersectRect(hab : cardinal;prclDst,prclSrc1,prclSrc2 : PRECTL) : longbool; cdecl;external 'pmwin' index 764; + function WinUnionRect(hab : cardinal;prclDst,prclSrc1,prclSrc2 : PRECTL) : longbool; cdecl;external 'pmwin' index 891; + function WinSubtractRect(hab : cardinal;prclDst,prclSrc1,prclSrc2 : PRECTL) : longbool; cdecl;external 'pmwin' index 887; + function WinMakeRect(hab : cardinal;pwrc : PRECTL) : longbool; cdecl;external 'pmwin' index 786; + function WinMakePoints(hab : cardinal;pwpt : PPOINTL;cwpt : cardinal) : longbool; cdecl;external 'pmwin' index 785; + function WinQuerySysValue(hwndDesktop : cardinal;iSysValue : longint) : longint; cdecl;external 'pmwin' index 829; + function WinSetSysValue(hwndDesktop : cardinal;iSysValue,lValue : longint) : longbool; cdecl;external 'pmwin' index 873; + function WinSetPresParam(hwnd,id,cbParam : cardinal;pbParam : pointer) : longbool; cdecl;external 'pmwin' index 938; + function WinQueryPresParam(hwnd,id1,id2 : cardinal;pulId : pcardinal;cbBuf : cardinal;pbBuf : pointer;fs : cardinal) : cardinal; cdecl;external 'pmwin' index 939; + function WinRemovePresParam(hwnd,id : cardinal) : longbool; cdecl;external 'pmwin' index 940; + function WinQuerySysColor(hwndDesktop : cardinal;clr,lReserved : longint) : longint; cdecl;external 'pmwin' index 826; + function WinSetSysColors(hwndDesktop,flOptions,flFormat : cardinal;clrFirst : longint;cclr : cardinal;pclr : Plongint) : longbool; cdecl;external 'pmwin' index 871; + function WinStartTimer(hab,hwnd,idTimer,dtTimeout : cardinal) : cardinal; cdecl;external 'pmwin' index 884; + function WinStopTimer(hab,hwnd,idTimer : cardinal) : longbool; cdecl;external 'pmwin' index 885; + function WinGetCurrentTime(hab : cardinal) : cardinal; cdecl;external 'pmwin' index 750; + function WinLoadAccelTable(hab,hmod,idAccelTable : cardinal) : cardinal; cdecl;external 'pmwin' index 776; + function WinCopyAccelTable(haccel : cardinal;pAccelTable : PACCELTABLE;cbCopyMax : cardinal) : cardinal; cdecl;external 'pmwin' index 709; + function WinCreateAccelTable(hab : cardinal;pAccelTable : PACCELTABLE) : cardinal; cdecl;external 'pmwin' index 713; + function WinDestroyAccelTable(haccel : cardinal) : longbool; cdecl;external 'pmwin' index 723; + function WinTranslateAccel(hab,hwnd,haccel : cardinal;pqmsg : PQMSG) : longbool; cdecl;external 'pmwin' index 904; + function WinSetAccelTable(hab,haccel,hwndFrame : cardinal) : longbool; cdecl;external 'pmwin' index 850; + function WinQueryAccelTable(hab,hwndFrame : cardinal) : cardinal; cdecl;external 'pmwin' index 798; + function WinTrackRect(hwnd,hps : cardinal;pti : PTRACKINFO) : longbool; cdecl;external 'pmwin' index 890; + function WinShowTrackRect(hwnd : cardinal;fShow : longbool) : longbool; cdecl;external 'pmwin' index 882; + function WinSetClipbrdOwner(hab,hwnd : cardinal) : longbool; cdecl;external 'pmwin' index 855; + function WinSetClipbrdData(hab,ulData,fmt,rgfFmtInfo : cardinal) : longbool; cdecl;external 'pmwin' index 854; + function WinQueryClipbrdData(hab,fmt : cardinal) : cardinal; cdecl;external 'pmwin' index 806; + function WinQueryClipbrdFmtInfo(hab,fmt : cardinal;prgfFmtInfo : pcardinal) : longbool; cdecl;external 'pmwin' index 807; + function WinSetClipbrdViewer(hab,hwndNewClipViewer : cardinal) : longbool; cdecl;external 'pmwin' index 856; + function WinEnumClipbrdFmts(hab,fmt : cardinal) : cardinal; cdecl;external 'pmwin' index 739; + function WinEmptyClipbrd(hab : cardinal) : longbool; cdecl;external 'pmwin' index 733; + function WinOpenClipbrd(hab : cardinal) : longbool; cdecl;external 'pmwin' index 793; + function WinCloseClipbrd(hab : cardinal) : longbool; cdecl;external 'pmwin' index 707; + function WinQueryClipbrdOwner(hab : cardinal) : cardinal; cdecl;external 'pmwin' index 808; + function WinQueryClipbrdViewer(hab : cardinal) : cardinal; cdecl;external 'pmwin' index 809; + function WinDestroyCursor(hwnd : cardinal) : longbool; cdecl;external 'pmwin' index 725; + function WinShowCursor(hwnd : cardinal;fShow : longbool) : longbool; cdecl;external 'pmwin' index 880; + function WinCreateCursor(hwnd : cardinal;x,y,cx,cy : longint;fs : cardinal;prclClip : PRECTL) : longbool; cdecl;external 'pmwin' index 715; + function WinQueryCursorInfo(hwndDesktop : cardinal;pCursorInfo : PCURSORINFO) : longbool; cdecl;external 'pmwin' index 812; + function WinSetPointer(hwndDesktop,hptrNew : cardinal) : longbool; cdecl;external 'pmwin' index 866; + function WinSetPointerOwner(hptr,pid : cardinal;fDestroy : longbool) : longbool; cdecl;external 'pmwin' index 971; + function WinShowPointer(hwndDesktop : cardinal;fShow : longbool) : longbool; cdecl;external 'pmwin' index 881; + function WinQuerySysPointer(hwndDesktop : cardinal;iptr : longint;fLoad : longbool) : cardinal; cdecl;external 'pmwin' index 828; + function WinLoadPointer(hwndDesktop,hmod,idres : cardinal) : cardinal; cdecl;external 'pmwin' index 780; + function WinCreatePointer(hwndDesktop,hbmPointer : cardinal;fPointer : longbool;xHotspot,yHotspot : longint) : cardinal; cdecl;external 'pmwin' index 717; + function WinSetPointerPos(hwndDesktop : cardinal;x,y : longint) : longbool; cdecl;external 'pmwin' index 867; + function WinDestroyPointer(hptr : cardinal) : longbool; cdecl;external 'pmwin' index 727; + function WinQueryPointer(hwndDesktop : cardinal) : cardinal; cdecl;external 'pmwin' index 821; + function WinQueryPointerPos(hwndDesktop : cardinal;pptl : PPOINTL) : longbool; cdecl;external 'pmwin' index 823; + function WinCreatePointerIndirect(hwndDesktop : cardinal;pptri : PPOINTERINFO) : cardinal; cdecl;external 'pmwin' index 942; + function WinQueryPointerInfo(hptr : cardinal;pPointerInfo : PPOINTERINFO) : longbool; cdecl;external 'pmwin' index 822; + function WinDrawPointer(hps : cardinal;x,y : longint;hptr,fs : cardinal) : longbool; cdecl;external 'pmwin' index 732; + function WinGetSysBitmap(hwndDesktop,ibm : cardinal) : cardinal; cdecl;external 'pmwin' index 760; + function WinSetHook(hab,hmq : cardinal;iHook : longint;pfnHook : pointer;hmod : cardinal) : longbool; cdecl;external 'pmwin' index 928; + function WinReleaseHook(hab,hmq : cardinal;iHook : longint;pfnHook : pointer;hmod : cardinal) : longbool; cdecl;external 'pmwin' index 927; + function WinCallMsgFilter(hab : cardinal;pqmsg : PQMSG;msgf : cardinal) : longbool; cdecl;external 'pmwin' index 905; + function WinSetClassThunkProc(pszClassname : pchar;pfnThunkProc : pointer) : longbool; cdecl;external 'pmwin' index 959; + function WinQueryClassThunkProc(pszClassname : pchar) : pointer; cdecl;external 'pmwin' index 960; + function WinSetWindowThunkProc(hwnd : cardinal;pfnThunkProc : pointer) : longbool; cdecl;external 'pmwin' index 961; + function WinQueryWindowThunkProc(hwnd : cardinal) : pointer; cdecl;external 'pmwin' index 962; + function WinQueryWindowModel(hwnd : cardinal) : longint; cdecl;external 'pmwin' index 934; + function WinQueryCp(hmq : cardinal) : cardinal; cdecl;external 'pmwin' index 810; + function WinSetCp(hmq,idCodePage : cardinal) : longbool; cdecl;external 'pmwin' index 857; + function WinQueryCpList(hab,ccpMax : cardinal;prgcp : pcardinal) : cardinal; cdecl;external 'pmwin' index 811; + function WinCpTranslateString(hab,cpSrc : cardinal;pszSrc : pchar;cpDst,cchDestMax : cardinal;pchDest : pchar) : longbool; cdecl;external 'pmwin' index 712; + function WinCpTranslateChar(hab,cpSrc : cardinal;chSrc : byte;cpDst : cardinal) : byte; cdecl;external 'pmwin' index 711; + function WinUpper(hab,idcp,idcc : cardinal;psz : pchar) : cardinal; cdecl;external 'pmwin' index 893; + function WinUpperChar(hab,idcp,idcc,c : cardinal) : cardinal; cdecl;external 'pmwin' index 894; + function WinNextChar(hab,idcp,idcc : cardinal;psz : pchar) : pshortint; cdecl;external 'pmwin' index 791; + function WinPrevChar(hab,idcp,idcc : cardinal;pszStart,psz : pchar) : pshortint; cdecl;external 'pmwin' index 795; + function WinCompareStrings(hab,idcp,idcc : cardinal;psz1,psz2 : pchar;reserved : cardinal) : cardinal; cdecl;external 'pmwin' index 708; + function WinCreateAtomTable(cbInitial,cBuckets : cardinal) : cardinal; cdecl;external 'pmwin' index 714; + function WinDestroyAtomTable(hAtomTbl : cardinal) : cardinal; cdecl;external 'pmwin' index 724; + function WinAddAtom(hAtomTbl : cardinal;pszAtomName : pchar) : cardinal; cdecl;external 'pmwin' index 700; + function WinFindAtom(hAtomTbl : cardinal;pszAtomName : pchar) : cardinal; cdecl;external 'pmwin' index 744; + function WinDeleteAtom(hAtomTbl,atom : cardinal) : cardinal; cdecl;external 'pmwin' index 721; + function WinQueryAtomUsage(hAtomTbl,atom : cardinal) : cardinal; cdecl;external 'pmwin' index 803; + function WinQueryAtomLength(hAtomTbl,atom : cardinal) : cardinal; cdecl;external 'pmwin' index 801; + function WinQueryAtomName(hAtomTbl,atom : cardinal;pchBuffer : pchar;cchBufferMax : cardinal) : cardinal; cdecl;external 'pmwin' index 802; + function WinGetLastError(hab : cardinal) : cardinal; cdecl;external 'pmwin' index 753; + function WinGetErrorInfo(hab : cardinal) : PERRINFO; cdecl;external 'pmwin' index 751; + function WinFreeErrorInfo(perrinfo : PERRINFO) : longbool; cdecl;external 'pmwin' index 748; + function WinDdeInitiate(hwndClient : cardinal;pszAppName,pszTopicName : pchar;pcctxt : PCONVCONTEXT) : longbool; cdecl;external 'pmwin' index 718; + function WinDdeRespond(hwndClient,hwndServer : cardinal;pszAppName,pszTopicName : pchar;pcctxt : PCONVCONTEXT) : pointer; cdecl;external 'pmwin' index 720; + function WinDdePostMsg(hwndTo,hwndFrom,wm : cardinal;pddest : PDDESTRUCT;flOptions : cardinal) : longbool; cdecl;external 'pmwin' index 719; + function WinDeleteProcedure(hab : cardinal;wndproc : ppointer) : longbool; cdecl;external 'pmwin' index 987; + function WinDeleteLibrary(hab,libhandle : cardinal) : longbool; cdecl;external 'pmwin' index 722; + function WinLoadProcedure(hab,libhandle : cardinal;procname : pchar) : ppointer; cdecl;external 'pmwin' index 986; + function WinLoadLibrary(hab : cardinal;libname : pchar) : cardinal; cdecl;external 'pmwin' index 777; + function WinSetDesktopBkgnd(hwndDesktop : cardinal;pdskNew : PDESKTOP) : cardinal; cdecl;external 'pmwin' index 935; + function WinQueryDesktopBkgnd(hwndDesktop : cardinal;pdsk : PDESKTOP) : longbool; cdecl;external 'pmwin' index 936; + function WinRealizePalette(hwnd,hps : cardinal;pcclr : pcardinal) : longint; cdecl;external 'pmwin' index 941; function cardinalFROMMP(mp : pointer) : cardinal;cdecl; begin cardinalFROMMP:=cardinal(mp); end; function integer1FROMMP(mp : pointer) : word;cdecl; begin - integer1FROMMP:=lo(cardinal(mp)); + integer1FROMMP:=lo(cardinal(mp)); end; function integer2FROMMP(mp : pointer) : word;cdecl; begin - integer2FROMMP:=hi(cardinal(mp)); + integer2FROMMP:=hi(cardinal(mp)) end; end. + \ No newline at end of file