?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Initial revision
[AROS-Contrib.git] / development / compilers / freepascal / rtl / os2 / pmgpi.pas
blob23ab8046005437469e81a7433c9beb371f789d0f
1 {****************************************************************************
2
3 $Id$
4
5 PMGPI interface unit
6 FPC Pascal Runtime Library for OS/2
7 Copyright (c) 1999-2000 by Florian Kl„mpfl
8 Copyright (c) 1999-2000 by Ramon Bosque
9
10 The Free Pascal runtime library is distributed under the Library GNU Public
11 License v2. So is this unit. The Library GNU Public License requires you to
12 distribute the source code of this unit with any product that uses it.
13 Because the EMX library isn't under the LGPL, we grant you an exception to
14 this, and that is, when you compile a program with the Free Pascal Compiler,
15 you do not need to ship source code with that program, AS LONG AS YOU ARE
16 USING UNMODIFIED CODE! If you modify this code, you MUST change the next
17 line:
18
19 <This an official, unmodified Free Pascal source code file.>
20
21 Send us your modified files, we can work together if you want!
22
23 Free Pascal is distributed in the hope that it will be useful,
24 but WITHOUT ANY WARRANTY; without even the implied warranty of
25 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
26 Library GNU General Public License for more details.
27
28 You should have received a copy of the Library GNU General Public License
29 along with Free Pascal; see the file COPYING.LIB. If not, write to
30 the Free Software Foundation, 59 Temple Place - Suite 330,
31 Boston, MA 02111-1307, USA.
32
33 ****************************************************************************}
34
35 {Warning: This code is alfa. Future versions of this unit will propably
36 not be compatible.}
37
38 unit pmgpi;
39
40 interface
41
42 uses os2def,pmbitmap;
43
44 const GPI_ERROR = 0;
45 GPI_OK = 1;
46 GPI_ALTERROR = (-1);
47
48 CLR_NOINDEX = (-254);
49
50 PU_ARBITRARY = $0004;
51 PU_PELS = $0008;
52 PU_LOMETRIC = $000C;
53 PU_HIMETRIC = $0010;
54 PU_LOENGLISH = $0014;
55 PU_HIENGLISH = $0018;
56 PU_TWIPS = $001C;
57 GPIF_DEFAULT = 0;
58 GPIF_SHORT = $0100;
59 GPIF_LONG = $0200;
60 GPIT_NORMAL = 0;
61 GPIT_MICRO = $1000;
62 GPIA_NOASSOC = 0;
63 GPIA_ASSOC = $4000;
64 HDC_ERROR = -1;
65
66 GRES_ATTRS = $0001;
67 GRES_SEGMENTS = $0002;
68 GRES_ALL = $0004;
69 PS_UNITS = $00FC;
70 PS_FORMAT = $0F00;
71 PS_TYPE = $1000;
72 PS_MODE = $2000;
73 PS_ASSOCIATE = $4000;
74 PS_NORESET = $8000;
75 GPIE_SEGMENT = 0;
76 GPIE_ELEMENT = 1;
77 GPIE_DATA = 2;
78 DCTL_ERASE = 1;
79 DCTL_DISPLAY = 2;
80 DCTL_BOUNDARY = 3;
81 DCTL_DYNAMIC = 4;
82 DCTL_CORRELATE = 5;
83 DCTL_ERROR = -1;
84 DCTL_OFF = 0;
85 DCTL_ON = 1;
86 SDW_ERROR = -1;
87 SDW_OFF = 0;
88 SDW_ON = 1;
89 DM_ERROR = 0;
90 DM_DRAW = 1;
91 DM_RETAIN = 2;
92 DM_DRAWANDRETAIN = 3;
93
94 PICKAP_DEFAULT = 0;
95 PICKAP_REC = 2;
96 PICKSEL_VISIBLE = 0;
97 PICKSEL_ALL = 1;
98 GPI_HITS = 2;
99
100 DFORM_NOCONV = 0;
101 DFORM_S370SHORT = 1;
102 DFORM_PCSHORT = 2;
103 DFORM_PCLONG = 4;
104 ATTR_ERROR = (-1);
105 ATTR_DETECTABLE = 1;
106 ATTR_VISIBLE = 2;
107 ATTR_CHAINED = 6;
108 ATTR_DYNAMIC = 8;
109 ATTR_FASTCHAIN = 9;
110 ATTR_PROP_DETECTABLE = 10;
111 ATTR_PROP_VISIBLE = 11;
112 ATTR_OFF = 0;
113 ATTR_ON = 1;
114 LOWER_PRI = (-1);
115 HIGHER_PRI = 1;
116
117 SEGEM_ERROR = 0;
118 SEGEM_INSERT = 1;
119 SEGEM_REPLACE = 2;
120
121 CVTC_WORLD = 1;
122 CVTC_MODEL = 2;
123 CVTC_DEFAULTPAGE = 3;
124 CVTC_PAGE = 4;
125 CVTC_DEVICE = 5;
126 TRANSFORM_REPLACE = 0;
127 TRANSFORM_ADD = 1;
128 TRANSFORM_PREEMPT = 2;
129
130 MPATH_STROKE = 6;
131 FPATH_ALTERNATE = 0;
132 FPATH_WINDING = 2;
133 FPATH_EXCL = 0;
134 FPATH_INCL = 8;
135 SCP_ALTERNATE = 0;
136 SCP_WINDING = 2;
137 SCP_AND = 4;
138 SCP_RESET = 0;
139 SCP_EXCL = 0;
140 SCP_INCL = 8;
141
142 LCOL_RESET = $0001;
143 LCOL_REALIZABLE = $0002;
144 LCOL_PURECOLOR = $0004;
145 LCOL_OVERRIDE_DEFAULT_COLORS = $0008;
146 LCOL_REALIZED = $0010;
147 LCOLF_DEFAULT = 0;
148 LCOLF_INDRGB = 1;
149 LCOLF_CONSECRGB = 2;
150 LCOLF_RGB = 3;
151 LCOLF_PALETTE = 4;
152 LCOLOPT_REALIZED = $0001;
153 LCOLOPT_INDEX = $0002;
154 QLCT_ERROR = (-1);
155 QLCT_RGB = (-2);
156 QLCT_NOTLOADED = (-1);
157 QCD_LCT_FORMAT = 0;
158 QCD_LCT_LOINDEX = 1;
159 QCD_LCT_HIINDEX = 2;
160 QCD_LCT_OPTIONS = 3;
161 PAL_ERROR = (-1);
162 PC_RESERVED = $01;
163 PC_EXPLICIT = $02;
164 PC_NOCOLLAPSE = $04;
165
166 CLR_false = (-5);
167 CLR_true = (-4);
168 CLR_error = (-255);
169 CLR_default = (-3);
170 CLR_white = (-2);
171 CLR_black = (-1);
172 CLR_background = 0;
173 CLR_blue = 1;
174 CLR_red = 2;
175 CLR_pink = 3;
176 CLR_green = 4;
177 CLR_cyan = 5;
178 CLR_yellow = 6;
179 CLR_neutral = 7;
180 CLR_darkgray = 8;
181 CLR_darkblue = 9;
182 CLR_darkred = 10;
183 CLR_darkpink = 11;
184 CLR_darkgreen = 12;
185 CLR_darkcyan = 13;
186 CLR_brown = 14;
187 CLR_palegray = 15;
188
189 RGB_error = (-255);
190 RGB_black = $00000000;
191 RGB_blue = $000000FF;
192 RGB_green = $0000FF00;
193 RGB_cyan = $0000FFFF;
194 RGB_red = $00FF0000;
195 RGB_pink = $00FF00FF;
196 RGB_yellow = $00FFFF00;
197 RGB_white = $00FFFFFF;
198
199 BA_NOBOUNDARY = 0;
200 BA_BOUNDARY = $0001;
201 BA_ALTERNATE = 0;
202 BA_WINDING = $0002;
203 BA_EXCL = 0;
204 BA_INCL = 8;
205 DRO_FILL = 1;
206 DRO_OUTLINE = 2;
207 DRO_OUTLINEFILL = 3;
208 PATSYM_ERROR = (-1);
209 PATSYM_DEFAULT = 0;
210 PATSYM_DENSE1 = 1;
211 PATSYM_DENSE2 = 2;
212 PATSYM_DENSE3 = 3;
213 PATSYM_DENSE4 = 4;
214 PATSYM_DENSE5 = 5;
215 PATSYM_DENSE6 = 6;
216 PATSYM_DENSE7 = 7;
217 PATSYM_DENSE8 = 8;
218 PATSYM_VERT = 9;
219 PATSYM_HORIZ = 10;
220 PATSYM_DIAG1 = 11;
221 PATSYM_DIAG2 = 12;
222 PATSYM_DIAG3 = 13;
223 PATSYM_DIAG4 = 14;
224 PATSYM_NOSHADE = 15;
225 PATSYM_SOLID = 16;
226 PATSYM_HALFTONE = 17;
227 PATSYM_HATCH = 18;
228 PATSYM_DIAGHATCH = 19;
229 PATSYM_BLANK = 64;
230 LCID_ERROR = (-1);
231 LCID_DEFAULT = 0;
232
233 AM_ERROR = (-1);
234 AM_PRESERVE = 0;
235 AM_NOPRESERVE = 1;
236 FM_ERROR = (-1);
237 FM_DEFAULT = 0;
238 FM_OR = 1;
239 FM_OVERPAINT = 2;
240 FM_LEAVEALONE = 5;
241 FM_XOR = 4;
242 FM_AND = 6;
243 FM_SUBTRACT = 7;
244 FM_MASKSRCNOT = 8;
245 FM_ZERO = 9;
246 FM_NOTMERGESRC = 10;
247 FM_NOTXORSRC = 11;
248 FM_INVERT = 12;
249 FM_MERGESRCNOT = 13;
250 FM_NOTCOPYSRC = 14;
251 FM_MERGENOTSRC = 15;
252 FM_NOTMASKSRC = 16;
253 FM_ONE = 17;
254 BM_ERROR = (-1);
255 BM_DEFAULT = 0;
256 BM_OR = 1;
257 BM_OVERPAINT = 2;
258 BM_LEAVEALONE = 5;
259 BM_XOR = 4;
260 BM_AND = 6;
261 BM_SUBTRACT = 7;
262 BM_MASKSRCNOT = 8;
263 BM_ZERO = 9;
264 BM_NOTMERGESRC = 10;
265 BM_NOTXORSRC = 11;
266 BM_INVERT = 12;
267 BM_MERGESRCNOT = 13;
268 BM_NOTCOPYSRC = 14;
269 BM_MERGENOTSRC = 15;
270 BM_NOTMASKSRC = 16;
271 BM_ONE = 17;
272 BM_SRCTRANSPARENT = 18;
273 BM_DESTTRANSPARENT = 19;
274 LINETYPE_ERROR = (-1);
275 LINETYPE_DEFAULT = 0;
276 LINETYPE_DOT = 1;
277 LINETYPE_SHORTDASH = 2;
278 LINETYPE_DASHDOT = 3;
279 LINETYPE_DOUBLEDOT = 4;
280 LINETYPE_LONGDASH = 5;
281 LINETYPE_DASHDOUBLEDOT = 6;
282 LINETYPE_SOLID = 7;
283 LINETYPE_INVISIBLE = 8;
284 LINETYPE_ALTERNATE = 9;
285 LINEWIDTH_ERROR = (-1);
286 LINEWIDTH_DEFAULT = 0;
287 LINEWIDTH_NORMAL = $00010000;
288 LINEWIDTH_THICK = $00020000;
289 LINEWIDTHGEOM_ERROR = (-1);
290 LINEEND_ERROR = (-1);
291 LINEEND_DEFAULT = 0;
292 LINEEND_FLAT = 1;
293 LINEEND_SQUARE = 2;
294 LINEEND_ROUND = 3;
295 LINEJOIN_ERROR = (-1);
296 LINEJOIN_DEFAULT = 0;
297 LINEJOIN_BEVEL = 1;
298 LINEJOIN_ROUND = 2;
299 LINEJOIN_MITRE = 3;
300 CHDIRN_ERROR = (-1);
301 CHDIRN_DEFAULT = 0;
302 CHDIRN_LEFTRIGHT = 1;
303 CHDIRN_TOPBOTTOM = 2;
304 CHDIRN_RIGHTLEFT = 3;
305 CHDIRN_BOTTOMTOP = 4;
306 TA_NORMAL_HORIZ = $0001;
307 TA_LEFT = $0002;
308 TA_CENTER = $0003;
309 TA_RIGHT = $0004;
310 TA_STANDARD_HORIZ = $0005;
311 TA_NORMAL_VERT = $0100;
312 TA_TOP = $0200;
313 TA_HALF = $0300;
314 TA_BASE = $0400;
315 TA_BOTTOM = $0500;
316 TA_STANDARD_VERT = $0600;
317 CM_ERROR = (-1);
318 CM_DEFAULT = 0;
319 CM_MODE1 = 1;
320 CM_MODE2 = 2;
321 CM_MODE3 = 3;
322 MARKSYM_ERROR = (-1);
323 MARKSYM_DEFAULT = 0;
324 MARKSYM_CROSS = 1;
325 MARKSYM_PLUS = 2;
326 MARKSYM_DIAMOND = 3;
327 MARKSYM_SQUARE = 4;
328 MARKSYM_SIXPOINTSTAR = 5;
329 MARKSYM_EIGHTPOINTSTAR = 6;
330 MARKSYM_SOLIDDIAMOND = 7;
331 MARKSYM_SOLIDSQUARE = 8;
332 MARKSYM_DOT = 9;
333 MARKSYM_SMALLCIRCLE = 10;
334 MARKSYM_BLANK = 64;
335 CHS_OPAQUE = $0001;
336 CHS_VECTOR = $0002;
337 CHS_LEAVEPOS = $0008;
338 CHS_CLIP = $0010;
339 CHS_UNDERSCORE = $0200;
340 CHS_STRIKEOUT = $0400;
341 PRIM_LINE = 1;
342 PRIM_CHAR = 2;
343 PRIM_MARKER = 3;
344 PRIM_AREA = 4;
345 PRIM_IMAGE = 5;
346 LBB_COLOR = $0001;
347 LBB_BACK_COLOR = $0002;
348 LBB_MIX_MODE = $0004;
349 LBB_BACK_MIX_MODE = $0008;
350 LBB_WIDTH = $0010;
351 LBB_GEOM_WIDTH = $0020;
352 LBB_TYPE = $0040;
353 LBB_END = $0080;
354 LBB_JOIN = $0100;
355 CBB_COLOR = $0001;
356 CBB_BACK_COLOR = $0002;
357 CBB_MIX_MODE = $0004;
358 CBB_BACK_MIX_MODE = $0008;
359 CBB_SET = $0010;
360 CBB_MODE = $0020;
361 CBB_BOX = $0040;
362 CBB_ANGLE = $0080;
363 CBB_SHEAR = $0100;
364 CBB_DIRECTION = $0200;
365 CBB_TEXT_ALIGN = $0400;
366 CBB_EXTRA = $0800;
367 CBB_BREAK_EXTRA = $1000;
368 MBB_COLOR = $0001;
369 MBB_BACK_COLOR = $0002;
370 MBB_MIX_MODE = $0004;
371 MBB_BACK_MIX_MODE = $0008;
372 MBB_SET = $0010;
373 MBB_SYMBOL = $0020;
374 MBB_BOX = $0040;
375 ABB_COLOR = $0001;
376 ABB_BACK_COLOR = $0002;
377 ABB_MIX_MODE = $0004;
378 ABB_BACK_MIX_MODE = $0008;
379 ABB_SET = $0010;
380 ABB_SYMBOL = $0020;
381 ABB_REF_POINT = $0040;
382 IBB_COLOR = $0001;
383 IBB_BACK_COLOR = $0002;
384 IBB_MIX_MODE = $0004;
385 IBB_BACK_MIX_MODE = $0008;
386
387 TXTBOX_TOPLEFT = 0;
388 TXTBOX_BOTTOMLEFT = 1;
389 TXTBOX_TOPRIGHT = 2;
390 TXTBOX_BOTTOMRIGHT = 3;
391 TXTBOX_CONCAT = 4;
392 TXTBOX_COUNT = 5;
393 PVIS_ERROR = 0;
394 PVIS_INVISIBLE = 1;
395 PVIS_VISIBLE = 2;
396 RVIS_ERROR = 0;
397 RVIS_INVISIBLE = 1;
398 RVIS_PARTIAL = 2;
399 RVIS_VISIBLE = 3;
400
401 FONT_DEFAULT = 1;
402 FONT_MATCH = 2;
403 LCIDT_FONT = 6;
404 LCIDT_BITMAP = 7;
405 LCID_ALL = (-1);
406
407 FWEIGHT_DONT_CARE = 0;
408 FWEIGHT_ULTRA_LIGHT = 1;
409 FWEIGHT_EXTRA_LIGHT = 2;
410 FWEIGHT_LIGHT = 3;
411 FWEIGHT_SEMI_LIGHT = 4;
412 FWEIGHT_NORMAL = 5;
413 FWEIGHT_SEMI_BOLD = 6;
414 FWEIGHT_BOLD = 7;
415 FWEIGHT_EXTRA_BOLD = 8;
416 FWEIGHT_ULTRA_BOLD = 9;
417 FWIDTH_DONT_CARE = 0;
418 FWIDTH_ULTRA_CONDENSED = 1;
419 FWIDTH_EXTRA_CONDENSED = 2;
420 FWIDTH_CONDENSED = 3;
421 FWIDTH_SEMI_CONDENSED = 4;
422 FWIDTH_NORMAL = 5;
423 FWIDTH_SEMI_EXPANDED = 6;
424 FWIDTH_EXPANDED = 7;
425 FWIDTH_EXTRA_EXPANDED = 8;
426 FWIDTH_ULTRA_EXPANDED = 9;
427 FTYPE_ITALIC = $0001;
428 FTYPE_ITALIC_DONT_CARE = $0002;
429 FTYPE_OBLIQUE = $0004;
430 FTYPE_OBLIQUE_DONT_CARE = $0008;
431 FTYPE_ROUNDED = $0010;
432 FTYPE_ROUNDED_DONT_CARE = $0020;
433 QFA_PUBLIC = 1;
434 QFA_PRIVATE = 2;
435 QFA_ERROR =GPI_ALTERROR;
436 QF_PUBLIC = $0001;
437 QF_PRIVATE = $0002;
438 QF_NO_GENERIC = $0004;
439 QF_NO_DEVICE = $0008;
440
441 ROP_SRCCOPY = $00CC;
442 ROP_SRCPAINT = $00EE;
443 ROP_SRCAND = $0088;
444 ROP_SRCINVERT = $0066;
445 ROP_SRCERASE = $0044;
446 ROP_NOTSRCCOPY = $0033;
447 ROP_NOTSRCERASE = $0011;
448 ROP_MERGECOPY = $00C0;
449 ROP_MERGEPAINT = $00BB;
450 ROP_PATCOPY = $00F0;
451 ROP_PATPAINT = $00FB;
452 ROP_PATINVERT = $005A;
453 ROP_DSTINVERT = $0055;
454 ROP_ZERO = $0000;
455 ROP_ONE = $00FF;
456 BBO_OR = 0;
457 BBO_AND = 1;
458 BBO_IGNORE = 2;
459 BBO_PAL_COLORS = 4;
460 BBO_NO_COLOR_INFO = 8;
461 FF_BOUNDARY = 0;
462 FF_SURFACE = 1;
463 HBM_ERROR = -1;
464
465 {Bitmaps}
466 CBM_INIT = $0004;
467 BMB_ERROR = (-1);
468
469 {Regions}
470 CRGN_OR = 1;
471 CRGN_COPY = 2;
472 CRGN_XOR = 4;
473 CRGN_AND = 6;
474 CRGN_DIFF = 7;
475 RECTDIR_LFRT_TOPBOT = 1;
476 RECTDIR_RTLF_TOPBOT = 2;
477 RECTDIR_LFRT_BOTTOP = 3;
478 RECTDIR_RTLF_BOTTOP = 4;
479 RGN_ERROR = 0;
480 RGN_NULL = 1;
481 RGN_RECT = 2;
482 RGN_COMPLEX = 3;
483 PRGN_ERROR = 0;
484 PRGN_OUTSIDE = 1;
485 PRGN_INSIDE = 2;
486 RRGN_ERROR = 0;
487 RRGN_OUTSIDE = 1;
488 RRGN_PARTIAL = 2;
489 RRGN_INSIDE = 3;
490 EQRGN_ERROR = 0;
491 EQRGN_NOTEQUAL = 1;
492 EQRGN_EQUAL = 2;
493 HRGN_ERROR = -1;
494
495 {Metafiles}
496 PMF_SEGBASE = 0;
497 PMF_LOADTYPE = 1;
498 PMF_RESOLVE = 2;
499 PMF_LCIDS = 3;
500 PMF_RESET = 4;
501 PMF_SUPPRESS = 5;
502 PMF_COLORTABLES = 6;
503 PMF_COLORREALIZABLE = 7;
504 PMF_DEFAULTS = 8;
505 PMF_DELETEOBJECTS = 9;
506 RS_DEFAULT = 0;
507 RS_NODISCARD = 1;
508 LC_DEFAULT = 0;
509 LC_NOLOAD = 1;
510 LC_LOADDISC = 3;
511 LT_DEFAULT = 0;
512 LT_NOMODIFY = 1;
513 LT_ORIGINALVIEW = 4;
514 RES_DEFAULT = 0;
515 RES_NORESET = 1;
516 RES_RESET = 2;
517 SUP_DEFAULT = 0;
518 SUP_NOSUPPRESS = 1;
519 SUP_SUPPRESS = 2;
520 CTAB_DEFAULT = 0;
521 CTAB_NOMODIFY = 1;
522 CTAB_REPLACE = 3;
523 CTAB_REPLACEPALETTE = 4;
524 CREA_DEFAULT = 0;
525 CREA_REALIZE = 1;
526 CREA_NOREALIZE = 2;
527 CREA_DOREALIZE = 3;
528 DDEF_DEFAULT = 0;
529 DDEF_IGNORE = 1;
530 DDEF_LOADDISC = 3;
531 DOBJ_DEFAULT = 0;
532 DOBJ_NODELETE = 1;
533 DOBJ_DELETE = 2;
534 RSP_DEFAULT = 0;
535 RSP_NODISCARD = 1;
536
537 {Polygons}
538 POLYGON_NOBOUNDARY = 0;
539 POLYGON_BOUNDARY = $0001;
540 POLYGON_ALTERNATE = 0;
541 POLYGON_WINDING = $0002;
542 POLYGON_EXCL = 0;
543 POLYGON_INCL = $0008;
544
545 type SizeL=record
546 cx,cy:longint;
547 end;
548 PSizeL=^SizeL;
549 TSizeL=SizeL;
550
551 MatrixLF=record
552 fxm11:longint;
553 fxm12:longint;
554 lm13:longint;
555 fxm21:longint;
556 fxm22:longint;
557 lm23:longint;
558 lm31:longint;
559 lm32:longint;
560 lm33:longint;
561 end;
562 PMatrixLF=^MatrixLF;
563 TMatrixLF=MatrixLF;
564
565 ArcParams=record
566 lp,lq,lr,ls:longint;
567 end;
568 PArcParams=^ArcParams;
569 TArcParams=ArcParams;
570
571 SizeF=record
572 cx,cy:longint;
573 end;
574 PSizeF=^SizeF;
575 TSizeF=SizeF;
576
577 GradientL=record
578 x,y:longint;
579 end;
580 PGradientL=^GradientL;
581 TGradientL=GradientL;
582
583 LineBundle=record
584 lColor:longint;
585 lBackColor:longint;
586 usMixMode:word;
587 usBackMixMode:word;
588 fxWidth:longint;
589 lGeomWidth:longint;
590 usType:word;
591 usEnd:word;
592 usJoin:word;
593 usReserved:word;
594 end;
595 PLineBundle=^LineBundle;
596 TLineBundle=LineBundle;
597
598 CharBundle=record
599 lColor:longint;
600 lBackColor:longint;
601 usMixMode:word;
602 usBackMixMode:word;
603 usSet:word;
604 usPrecision:word;
605 sizfxCell:sizef;
606 ptlAngle:pointl;
607 ptlShear:pointl;
608 usDirection:word;
609 usTextAlign:word;
610 fxExtra:longint;
611 fxBreakExtra:longint;
612 end;
613 PCharBundle=^CharBundle;
614 TCharBundle=CharBundle;
615
616 MarkerBundle=record
617 lColor:longint;
618 lBackColor:longint;
619 usMixMode:word;
620 usBackMixMode:word;
621 usSet:word;
622 usSymbol:word;
623 sizFxCell:SizeF;
624 end;
625 PMarkerBundle=^MarkerBundle;
626 TMarkerBundle=MarkerBundle;
627
628 AreaBundle=record
629 lColor:longint;
630 lBackColor:longint;
631 usMixMode:word;
632 usBackMixMode:word;
633 usSet:word;
634 usSymbol:word;
635 ptlRefPoint:pointl;
636 end;
637 PAreaBundle=^AreaBundle;
638 TAreaBundle=AreaBundle;
639
640 ImageBundle=record
641 lColor:longint;
642 lBackColor:longint;
643 usMixMode:word;
644 usBackMixMode:word;
645 end;
646 PImageBundle=^ImageBundle;
647 TImageBundle=ImageBundle;
648
649 KerningPairs=record
650 sFirstChar:integer;
651 sSecondChar:integer;
652 lKerningAmount:longint;
653 end;
654 PKerningPairs=^KerningPairs;
655 TKerningPairs=KerningPairs;
656
657 FaceNameDesc=record
658 usSize:word;
659 usWeightClass:word;
660 usWidthClass:word;
661 usReserved:word;
662 flOptions:cardinal;
663 end;
664 PFaceNameDesc=^FaceNameDesc;
665 TFaceNameDesc=FaceNameDesc;
666
667 FFDescs=array[0..1,0..FaceSize-1] of char;
668 PFFDescs=^FFDescs;
669 TFFDescs = FFDescs;
670
671 FFDescs2=record
672 cbLength:cardinal;
673 cbFacenameOffset:cardinal;
674 abFamilyName:array[0..1-1] of byte;
675 end;
676 PFFDescs2=^FFDescs2;
677 TFFDescs2=FFDescs2;
678
679 RgnRect=record
680 ircStart:cardinal;
681 crc:cardinal;
682 crcReturned:cardinal;
683 ulDirection:cardinal;
684 end;
685 PRgnRect=^RgnRect;
686 TRgnRect=RgnRect;
687
688 Polygon=record
689 ulPoints:cardinal;
690 aPointl:Ppointl;
691 end;
692 PPolygon=^Polygon;
693 TPolygon=Polygon;
694
695 Polyset=record
696 ulPolys:cardinal;
697 aPolygon:array[0..1-1] of TPolygon;
698 end;
699 PPolyset=^Polyset;
700 TPolyset=Polyset;
701
702 function GpiCreatePS(hab,hdc : cardinal;var psizlSize : SIZEL;flOptions : cardinal) : cardinal;cdecl;
703 function GpiDestroyPS(hps : cardinal) : longbool;cdecl;
704 function GpiAssociate(hps,hdc : cardinal) : longbool;cdecl;
705 function GpiRestorePS(hps : cardinal;lPSid : longint) : longbool;cdecl;
706 function GpiSavePS(hps : cardinal) : longint;cdecl;
707 function GpiErase(hps : cardinal) : longbool;cdecl;
708 function GpiQueryDevice(hps : cardinal) : cardinal;cdecl;
709 function GpiResetPS(hps,flOptions : cardinal) : longbool;cdecl;
710 function GpiSetPS(hps : cardinal;var psizlsize : SIZEL;flOptions : cardinal) : longbool;cdecl;
711 function GpiQueryPS(hps : cardinal;var psizlSize : SIZEL) : cardinal;cdecl;
712 function GpiErrorSegmentData(hps : cardinal;var plSegment,plContext : longint) : longint; cdecl;
713 function GpiQueryDrawControl(hps : cardinal;lControl : longint) : longint;cdecl;
714 function GpiSetDrawControl(hps : cardinal;lControl,lValue : longint) : longbool;cdecl;
715 function GpiQueryDrawingMode(hps : cardinal) : longint;cdecl;
716 function GpiSetDrawingMode(hps : cardinal;lMode : longint) : longbool;cdecl;
717 function GpiQueryStopDraw(hps : cardinal) : longint;cdecl;
718 function GpiSetStopDraw(hps : cardinal;lValue : longint) : longbool;cdecl;
719 function GpiCorrelateChain(hps : cardinal;lType : longint;var pptlPick : POINTL;lMaxHits,lMaxDepth : longint;var pl2 : longint) : longint;cdecl;
720 function GpiQueryTag(hps : cardinal;var plTag : longint) : longbool;cdecl;
721 function GpiSetTag(hps : cardinal;lTag : longint) : longbool;cdecl;
722 function GpiQueryPickApertureSize(hps : cardinal;var psizlSize : SIZEL) : longbool; cdecl;
723 function GpiSetPickApertureSize(hps : cardinal;lOptions : longint;var psizlSize : SIZEL) : longbool; cdecl;
724 function GpiQueryPickAperturePosition(hps : cardinal;var pptlPoint : POINTL) : longbool; cdecl;
725 function GpiSetPickAperturePosition(hps : cardinal;var pptlPick : POINTL) : longbool; cdecl;
726 function GpiQueryBoundaryData(hps : cardinal;var prclBoundary : RECTL) : longbool; cdecl;
727 function GpiResetBoundaryData(hps : cardinal) : longbool; cdecl;
728 function GpiCorrelateFrom(hps : cardinal;lFirstSegment,lLastSegment,lType : longint;var pptlPick : POINTL;lMaxHits,lMaxDepth : longint;var plSegTag : longint) : longint; cdecl;
729 function GpiCorrelateSegment(hps : cardinal;lSegment,lType : longint;var pptlPick : POINTL;lMaxHits,lMaxDepth : longint;var alSegTag : longint) : longint; cdecl;
730 function GpiOpenSegment(hps : cardinal;lSegment : longint) : longbool; cdecl;
731 function GpiCloseSegment(hps : cardinal) : longbool; cdecl;
732 function GpiDeleteSegment(hps : cardinal;lSegid : longint) : longbool; cdecl;
733 function GpiQueryInitialSegmentAttrs(hps : cardinal;lAttribute : longint) : longint; cdecl;
734 function GpiSetInitialSegmentAttrs(hps : cardinal;lAttribute,lValue : longint) : longbool; cdecl;
735 function GpiQuerySegmentAttrs(hps : cardinal;lSegid,lAttribute : longint) : longint; cdecl;
736 function GpiSetSegmentAttrs(hps : cardinal;lSegid,lAttribute,lValue : longint) : longbool; cdecl;
737 function GpiQuerySegmentPriority(hps : cardinal;lRefSegid,lOrder : longint) : longint; cdecl;
738 function GpiSetSegmentPriority(hps : cardinal;lSegid,lRefSegid,lOrder : longint) : longbool; cdecl;
739 function GpiDeleteSegments(hps : cardinal;lFirstSegment,lLastSegment : longint) : longbool; cdecl;
740 function GpiQuerySegmentNames(hps : cardinal;lFirstSegid,lLastSegid,lMax : longint;var alSegids : longint) : longint; cdecl;
741 function GpiGetData(hps : cardinal;lSegid : longint;var plOffset : longint;lFormat,lLength : longint;var pbData : BYTE) : longint; cdecl;
742 function GpiPutData(hps : cardinal;lFormat : longint;var plCount : longint;var pbData : BYTE) : longint; cdecl;
743 function GpiDrawChain(hps : cardinal) : longbool; cdecl;
744 function GpiDrawFrom(hps : cardinal;lFirstSegment,lLastSegment : longint) : longbool; cdecl;
745 function GpiDrawSegment(hps : cardinal;lSegment : longint) : longbool; cdecl;
746 function GpiDrawDynamics(hps : cardinal) : longbool; cdecl;
747 function GpiRemoveDynamics(hps : cardinal;lFirstSegid,lLastSegid : longint) : longbool; cdecl;
748 function GpiBeginElement(hps : cardinal;lType : longint;pszDesc : pchar) : longbool; cdecl;
749 function GpiEndElement(hps : cardinal) : longbool; cdecl;
750 function GpiLabel(hps : cardinal;lLabel : longint) : longbool; cdecl;
751 function GpiElement(hps : cardinal;lType : longint;pszDesc : pchar;lLength : longint;var pbData : BYTE) : longint; cdecl;
752 function GpiQueryElement(hps : cardinal;lOff,lMaxLength : longint;var pbData : BYTE) : longint; cdecl;
753 function GpiDeleteElement(hps : cardinal) : longbool; cdecl;
754 function GpiDeleteElementRange(hps : cardinal;lFirstElement,lLastElement : longint) : longbool; cdecl;
755 function GpiDeleteElementsBetweenLabels(hps : cardinal;lFirstLabel,lLastLabel : longint) : longbool; cdecl;
756 function GpiQueryEditMode(hps : cardinal) : longint; cdecl;
757 function GpiSetEditMode(hps : cardinal;lMode : longint) : longbool; cdecl;
758 function GpiQueryElementPointer(hps : cardinal) : longint; cdecl;
759 function GpiSetElementPointer(hps : cardinal;lElement : longint) : longbool; cdecl;
760 function GpiOffsetElementPointer(hps : cardinal;loffset : longint) : longbool; cdecl;
761 function GpiQueryElementType(hps : cardinal;var plType : longint;lLength : longint;pszData : pchar) : longint; cdecl;
762 function GpiSetElementPointerAtLabel(hps : cardinal;lLabel : longint) : longbool; cdecl;
763 function GpiQuerySegmentTransformMatrix(hps : cardinal;lSegid,lCount : longint;var pmatlfArray : MATRIXLF) : longbool; cdecl;
764 function GpiSetSegmentTransformMatrix(hps : cardinal;lSegid,lCount : longint;var pmatlfarray : MATRIXLF;lOptions : longint) : longbool; cdecl;
765 function GpiConvert(hps : cardinal;lSrc,lTarg,lCount : longint;var aptlPoints : POINTL) : longbool; cdecl;
766 function GpiConvertWithMatrix(hps : cardinal;lCountp : longint;var aptlPoints : POINTL;lCount : longint;var pmatlfArray : MATRIXLF) : longbool; cdecl;
767 function GpiQueryModelTransformMatrix(hps : cardinal;lCount : longint;var pmatlfArray : MATRIXLF) : longbool; cdecl;
768 function GpiSetModelTransformMatrix(hps : cardinal;lCount : longint;var pmatlfArray : MATRIXLF;lOptions : longint) : longbool; cdecl;
769 function GpiCallSegmentMatrix(hps : cardinal;lSegment,lCount : longint;var pmatlfArray : MATRIXLF;lOptions : longint) : longint; cdecl;
770 function GpiQueryDefaultViewMatrix(hps : cardinal;lCount : longint;var pmatlfArray : MATRIXLF) : longbool; cdecl;
771 function GpiSetDefaultViewMatrix(hps : cardinal;lCount : longint;var pmatlfarray : MATRIXLF;lOptions : longint) : longbool; cdecl;
772 function GpiQueryPageViewport(hps : cardinal;var prclViewport : RECTL) : longbool; cdecl;
773 function GpiSetPageViewport(hps : cardinal;var prclViewport : RECTL) : longbool; cdecl;
774 function GpiQueryViewingTransformMatrix(hps : cardinal;lCount : longint;var pmatlfArray : MATRIXLF) : longbool; cdecl;
775 function GpiSetViewingTransformMatrix(hps : cardinal;lCount : longint;var pmatlfArray : MATRIXLF;lOptions : longint) : longbool; cdecl;
776 function GpiTranslate(hps : cardinal;var pmatrixlf : MATRIXLF;long : longint;var ppointl : POINTL) : longbool; cdecl;
777 function GpiScale(hps : cardinal;var p1 : MATRIXLF;p2 : longint;var p3 : longint;var p4 : POINTL) : longbool; cdecl;
778 function GpiRotate(p1 : cardinal;var p2 : MATRIXLF;p3,p4 : longint;var p5 : POINTL) : longbool; cdecl;
779 function GpiSetGraphicsField(hps : cardinal;var prclField : RECTL) : longbool; cdecl;
780 function GpiQueryGraphicsField(hps : cardinal;var prclField : RECTL) : longbool; cdecl;
781 function GpiSetViewingLimits(hps : cardinal;var prclLimits : RECTL) : longbool; cdecl;
782 function GpiQueryViewingLimits(hps : cardinal;var prclLimits : RECTL) : longbool; cdecl;
783 function GpiBeginPath(hps : cardinal;lPath : longint) : longbool; cdecl;
784 function GpiEndPath(hps : cardinal) : longbool; cdecl;
785 function GpiCloseFigure(hps : cardinal) : longbool; cdecl;
786 function GpiModifyPath(hps : cardinal;lPath,lMode : longint) : longbool; cdecl;
787 function GpiFillPath(hps : cardinal;lPath,lOptions : longint) : longint; cdecl;
788 function GpiSetClipPath(hps : cardinal;lPath,lOptions : longint) : longbool; cdecl;
789 function GpiOutlinePath(hps : cardinal;lPath,lOptions : longint) : longint; cdecl;
790 function GpiPathToRegion(GpiH : cardinal;lPath,lOptions : longint) : cardinal; cdecl;
791 function GpiStrokePath(hps : cardinal;lPath : longint;flOptions : cardinal) : longint; cdecl;
792 function GpiCreateLogColorTable(hps,flOptions : cardinal;lFormat,lStart,lCount : longint;var alTable : longint) : longbool; cdecl;
793 function GpiQueryColorData(hps : cardinal;lCount : longint;var alArray : longint) : longbool; cdecl;
794 function GpiQueryLogColorTable(hps,flOptions : cardinal;lStart,lCount : longint;var alArray : longint) : longint; cdecl;
795 function GpiQueryRealColors(hps,flOptions : cardinal;lStart,lCount : longint;var alColors : longint) : longint; cdecl;
796 function GpiQueryNearestColor(hps,flOptions : cardinal;lRgbIn : longint) : longint; cdecl;
797 function GpiQueryColorIndex(hps,flOptions : cardinal;lRgbColor : longint) : longint; cdecl;
798 function GpiQueryRGBColor(hps,flOptions : cardinal;lColorIndex : longint) : longint; cdecl;
799 function GpiCreatePalette(hab,flOptions,ulFormat,ulCount : cardinal;var aulTable : cardinal) : cardinal; cdecl;
800 function GpiDeletePalette(hpal : cardinal) : longbool; cdecl;
801 function GpiSelectPalette(hps,hpal : cardinal) : cardinal; cdecl;
802 function GpiAnimatePalette(hpal,ulFormat,ulStart,ulCount : cardinal;var aulTable : cardinal) : longint; cdecl;
803 function GpiSetPaletteEntries(hpal,ulFormat,ulStart,ulCount : cardinal;var aulTable : cardinal) : longbool; cdecl;
804 function GpiQueryPalette(hps : cardinal) : cardinal; cdecl;
805 function GpiQueryPaletteInfo(hpal,hps,flOptions,ulStart,ulCount : cardinal;var aulArray : cardinal) : longint; cdecl;
806 function GpiSetColor(hps : cardinal;lColor : longint) : longbool; cdecl;
807 function GpiQueryColor(hps : cardinal) : longint; cdecl;
808 function GpiBox(hps : cardinal;lControl : longint;var pptlPoint : POINTL;lHRound,lVRound : longint) : longint; cdecl;
809 function GpiMove(hps : cardinal;var pptlPoint : POINTL) : longbool; cdecl;
810 function GpiLine(hps : cardinal;var pptlEndPoint : POINTL) : longint; cdecl;
811 function GpiPolyLine(hps : cardinal;lCount : longint;var aptlPoints : POINTL) : longint; cdecl;
812 function GpiPolyLineDisjoint(hps : cardinal;lCount : longint;var aptlPoints : POINTL) : longint; cdecl;
813 function GpiSetPattern(hps : cardinal;lPatternSymbol : longint) : longbool; cdecl;
814 function GpiQueryPattern(hps : cardinal) : longint; cdecl;
815 function GpiBeginArea(hps,flOptions : cardinal) : longbool; cdecl;
816 function GpiEndArea(hps : cardinal) : longint; cdecl;
817 function GpiCharString(hps : cardinal;lCount : longint;pchString : pchar) : longint; cdecl;
818 function GpiCharStringAt(hps : cardinal;var pptlPoint : POINTL;lCount : longint;pchString : pchar) : longint; cdecl;
819 function GpiSetAttrMode(hps : cardinal;lMode : longint) : longbool; cdecl;
820 function GpiQueryAttrMode(hps : cardinal) : longint; cdecl;
821 function GpiSetAttrs(hps : cardinal;lPrimType : longint;flAttrMask,flDefMask : cardinal;ppbunAttrs : pointer) : longbool; cdecl;
822 function GpiQueryAttrs(hps : cardinal;lPrimType : longint;flAttrMask : cardinal;ppbunAttrs : pointer) : longint; cdecl;
823 function GpiSetBackColor(hps : cardinal;lColor : longint) : longbool; cdecl;
824 function GpiQueryBackColor(hps : cardinal) : longint; cdecl;
825 function GpiSetMix(hps : cardinal;lMixMode : longint) : longbool; cdecl;
826 function GpiQueryMix(hps : cardinal) : longint; cdecl;
827 function GpiSetBackMix(hps : cardinal;lMixMode : longint) : longbool; cdecl;
828 function GpiQueryBackMix(hps : cardinal) : longint; cdecl;
829 function GpiSetLineType(hps : cardinal;lLineType : longint) : longbool; cdecl;
830 function GpiQueryLineType(hps : cardinal) : longint; cdecl;
831 function GpiSetLineWidth(hps : cardinal;fxLineWidth : longint) : longbool; cdecl;
832 function GpiQueryLineWidth(hps : cardinal) : longint; cdecl;
833 function GpiSetLineWidthGeom(hps : cardinal;lLineWidth : longint) : longbool; cdecl;
834 function GpiQueryLineWidthGeom(hps : cardinal) : longint; cdecl;
835 function GpiSetLineEnd(hps : cardinal;lLineEnd : longint) : longbool; cdecl;
836 function GpiQueryLineEnd(hps : cardinal) : longint; cdecl;
837 function GpiSetLineJoin(hps : cardinal;lLineJoin : longint) : longbool; cdecl;
838 function GpiQueryLineJoin(hps : cardinal) : longint; cdecl;
839 function GpiSetCurrentPosition(hps : cardinal;var pptlPoint : POINTL) : longbool; cdecl;
840 function GpiQueryCurrentPosition(hps : cardinal;var pptlPoint : POINTL) : longbool; cdecl;
841 function GpiSetArcParams(hps : cardinal;var parcpArcParams : ARCPARAMS) : longbool; cdecl;
842 function GpiQueryArcParams(hps : cardinal;var parcpArcParams : ARCPARAMS) : longbool; cdecl;
843 function GpiPointArc(hps : cardinal;var pptl2 : POINTL) : longint; cdecl;
844 function GpiFullArc(hps : cardinal;lControl,fxMultiplier : longint) : longint; cdecl;
845 function GpiPartialArc(hps : cardinal;var pptlCenter : POINTL;fxMultiplier,fxStartAngle,fxSweepAngle : longint) : longint; cdecl;
846 function GpiPolyFillet(hps : cardinal;lCount : longint;var aptlPoints : POINTL) : longint; cdecl;
847 function GpiPolySpline(hps : cardinal;lCount : longint;var aptlPoints : POINTL) : longint; cdecl;
848 function GpiPolyFilletSharp(hps : cardinal;lCount : longint;var aptlPoints : POINTL;var afxPoints : longint) : longint; cdecl;
849 function GpiSetPatternSet(hps : cardinal;lSet : longint) : longbool; cdecl;
850 function GpiQueryPatternSet(hps : cardinal) : longint; cdecl;
851 function GpiSetPatternRefPoint(hps : cardinal;var pptlRefPoint : POINTL) : longbool; cdecl;
852 function GpiQueryPatternRefPoint(hps : cardinal;var pptlRefPoint : POINTL) : longbool; cdecl;
853 function GpiQueryCharStringPos(hps,flOptions : cardinal;lCount : longint;pchString : pchar;var alXincrements : longint;var aptlPositions : POINTL) : longbool; cdecl;
854 function GpiQueryCharStringPosAt(hps : cardinal;var pptlStart : POINTL;flOptions : cardinal;lCount : longint;pchString : pchar;var alXincrements : longint;var aptlPositions : POINTL) : longbool; cdecl;
855 function GpiQueryTextBox(hps : cardinal;lCount1 : longint;pchString : pchar;lCount2 : longint;var aptlPoints : POINTL) : longbool; cdecl;
856 function GpiQueryDefCharBox(hps : cardinal;var psizlSize : SIZEL) : longbool; cdecl;
857 function GpiSetCharSet(hps : cardinal;llcid : longint) : longbool; cdecl;
858 function GpiQueryCharSet(hps : cardinal) : longint; cdecl;
859 function GpiSetCharBox(hps : cardinal;var psizfxBox : SIZEF) : longbool; cdecl;
860 function GpiQueryCharBox(hps : cardinal;var psizfxSize : SIZEF) : longbool; cdecl;
861 function GpiSetCharAngle(hps : cardinal;var pgradlAngle : GRADIENTL) : longbool; cdecl;
862 function GpiQueryCharAngle(hps : cardinal;var pgradlAngle : GRADIENTL) : longbool; cdecl;
863 function GpiSetCharShear(hps : cardinal;var pptlAngle : POINTL) : longbool; cdecl;
864 function GpiQueryCharShear(hps : cardinal;var pptlShear : POINTL) : longbool; cdecl;
865 function GpiSetCharDirection(hps : cardinal;lDirection : longint) : longbool; cdecl;
866 function GpiQueryCharDirection(hps : cardinal) : longint; cdecl;
867 function GpiSetCharMode(hps : cardinal;lMode : longint) : longbool; cdecl;
868 function GpiQueryCharMode(hps : cardinal) : longint; cdecl;
869 function GpiSetTextAlignment(hps : cardinal;lHoriz,lVert : longint) : longbool; cdecl;
870 function GpiQueryTextAlignment(hps : cardinal;var plHoriz,plVert : longint) : longbool; cdecl;
871 function GpiCharStringPos(hps : cardinal;var prclRect : RECTL;flOptions : cardinal;lCount : longint;pchString : pchar;var alAdx : longint) : longint; cdecl;
872 function GpiCharStringPosAt(hps : cardinal;var pptlStart : POINTL;var prclRect : RECTL;flOptions : cardinal;lCount : longint;pchString : pchar;var alAdx : longint) : longint; cdecl;
873 function GpiSetCharExtra(hps : cardinal;Extra : longint) : longbool; cdecl;
874 function GpiSetCharBreakExtra(hps : cardinal;BreakExtra : longint) : longbool; cdecl;
875 function GpiQueryCharExtra(hps : cardinal;var Extra : longint) : longbool; cdecl;
876 function GpiQueryCharBreakExtra(hps : cardinal;var BreakExtra : longint) : longbool; cdecl;
877 function GpiMarker(hps : cardinal;var pptlPoint : POINTL) : longint; cdecl;
878 function GpiPolyMarker(hps : cardinal;lCount : longint;var aptlPoints : POINTL) : longint; cdecl;
879 function GpiSetMarker(hps : cardinal;lSymbol : longint) : longbool; cdecl;
880 function GpiSetMarkerBox(hps : cardinal;var psizfxSize : SIZEF) : longbool; cdecl;
881 function GpiSetMarkerSet(hps : cardinal;lSet : longint) : longbool; cdecl;
882 function GpiQueryMarker(hps : cardinal) : longint; cdecl;
883 function GpiQueryMarkerBox(hps : cardinal;var psizfxSize : SIZEF) : longbool; cdecl;
884 function GpiQueryMarkerSet(hps : cardinal) : longint; cdecl;
885 function GpiImage(hps : cardinal;lFormat : longint;var psizlImageSize : SIZEL;lLength : longint;var pbData : BYTE) : longint; cdecl;
886 function GpiPop(hps : cardinal;lCount : longint) : longbool; cdecl;
887 function GpiPtVisible(hps : cardinal;var pptlPoint : POINTL) : longint; cdecl;
888 function GpiRectVisible(hps : cardinal;var prclRectangle : RECTL) : longint; cdecl;
889 function GpiComment(hps : cardinal;lLength : longint;var pbData : BYTE) : longbool; cdecl;
890 function GpiCreateLogFont(hps : cardinal;var pName : STR8;lLcid : longint;var pfatAttrs : FATTRS) : longint; cdecl;
891 function GpiDeleteSetId(hps : cardinal;lLcid : longint) : longbool; cdecl;
892 function GpiLoadFonts(hab : cardinal;pszFilename : pchar) : longbool; cdecl;
893 function GpiUnloadFonts(hab : cardinal;pszFilename : pchar) : longbool; cdecl;
894 function GpiQueryFonts(hps,flOptions : cardinal;pszFacename : pchar;var plReqFonts : longint;lMetricsLength : longint;var afmMetrics : FONTMETRICS) : longint; cdecl;
895 function GpiQueryFontMetrics(hps : cardinal;lMetricsLength : longint;var pfmMetrics : FONTMETRICS) : longbool; cdecl;
896 function GpiQueryKerningPairs(hps : cardinal;lCount : longint;var akrnprData : KERNINGPAIRS) : longint; cdecl;
897 function GpiQueryWidthTable(hps : cardinal;lFirstChar,lCount : longint;var alData : longint) : longbool; cdecl;
898 function GpiQueryNumberSetIds(hps : cardinal) : longint; cdecl;
899 function GpiQuerySetIds(hps : cardinal;lCount : longint;var alTypes : longint;var aNames : STR8;var allcids : longint) : longbool; cdecl;
900 function GpiQueryFaceString(PS : cardinal;FamilyName : pchar;var attrs : FACENAMEDESC;length : longint;CompoundFaceName : pchar) : cardinal; cdecl;
901 function GpiQueryLogicalFont(PS : cardinal;lcid : longint;var name : STR8;var attrs : FATTRS;length : longint) : longbool; cdecl;
902 function GpiQueryFontAction(anchor,options : cardinal) : cardinal; cdecl;
903 function GpiLoadPublicFonts(p1 : cardinal;p2 : pchar):longbool; cdecl;
904 function GpiUnloadPublicFonts(p1 : cardinal;p2 : pchar) : longbool; cdecl;
905 function GpiSetCp(hps,ulCodePage : cardinal) : longbool; cdecl;
906 function GpiQueryCp(hps : cardinal) : cardinal; cdecl;
907 function GpiQueryFontFileDescriptions(hab : cardinal;pszFilename : pchar;var plCount : longint;var affdescsNames : FFDESCS) : longint; cdecl;
908 function GpiQueryFullFontFileDescs(hab : cardinal;pszFilename : pchar;var plCount : longint;pNames : pointer;var plNamesBuffLength : longint) : longint; cdecl;
909 function GpiBitBlt(hpsTarget,hpsSource : cardinal;lCount : longint;var aptlPoints : POINTL;lRop : longint;flOptions : cardinal) : longint; cdecl;
910 function GpiDeleteBitmap(hbm : cardinal) : longbool; cdecl;
911 function GpiLoadBitmap(hps,Resource,idBitmap : cardinal;lWidth,lHeight : longint) : cardinal; cdecl;
912 function GpiSetBitmap(hps,hbm : cardinal) : cardinal; cdecl;
913 function GpiWCBitBlt(hpsTarget,hbmSource : cardinal;lCount : longint;var aptlPoints : POINTL;lRop : longint;flOptions : cardinal) : longint; cdecl;
914 function GpiCreateBitmap(hps : cardinal;var pbmpNew : Tbitmapinfoheader2;flOptions : cardinal;var pbInitData : BYTE;var pbmiInfoTable : Tbitmapinfo2) : cardinal; cdecl;
915 function GpiSetBitmapBits(hps : cardinal;lScanStart,lScans : longint;var pbBuffer : BYTE;var pbmiInfoTable : Tbitmapinfo2) : longint; cdecl;
916 function GpiSetBitmapDimension(hbm : cardinal;var psizlBitmapDimension : SIZEL) : longbool; cdecl;
917 function GpiSetBitmapId(hps,hbm : cardinal;lLcid : longint) : longbool; cdecl;
918 function GpiQueryBitmapBits(hps : cardinal;lScanStart,lScans : longint;var pbBuffer : BYTE;var pbmiInfoTable :Tbitmapinfo2) : longint; cdecl;
919 function GpiQueryBitmapDimension(hbm : cardinal;var psizlBitmapDimension : SIZEL) : longbool; cdecl;
920 function GpiQueryBitmapHandle(hps : cardinal;lLcid : longint) : cardinal; cdecl;
921 function GpiQueryBitmapParameters(hbm : cardinal;var pbmpData : Tbitmapinfoheader) : longbool; cdecl;
922 function GpiQueryBitmapInfoHeader(hbm : cardinal;var pbmpData : Tbitmapinfoheader2) : longbool; cdecl;
923 function GpiQueryDeviceBitmapFormats(hps : cardinal;lCount : longint;var alArray : longint) : longbool; cdecl;
924 function GpiSetPel(hps : cardinal;var pptlPoint : POINTL) : longint; cdecl;
925 function GpiQueryPel(hps : cardinal;var pptlPoint : POINTL) : longint; cdecl;
926 function GpiFloodFill(hps : cardinal;lOptions,lColor : longint) : longint; cdecl;
927 function GpiDrawBits(hps : cardinal;pBits : pointer;var pbmiInfoTable :Tbitmapinfo2;lCount : longint;var aptlPoints : POINTL;lRop : longint;flOptions : cardinal) : longint; cdecl;
928 function GpiCombineRegion(hps,hrgnDest,hrgnSrc1,hrgnSrc2 : cardinal;lMode : longint) : longint; cdecl;
929 function GpiCreateRegion(hps : cardinal;lCount : longint;var arclRectangles : RECTL) : cardinal; cdecl;
930 function GpiDestroyRegion(hps,hrgn : cardinal) : longbool; cdecl;
931 function GpiEqualRegion(hps,hrgnSrc1,hrgnSrc2 : cardinal) : longint; cdecl;
932 function GpiOffsetRegion(hps,Hrgn : cardinal;var pptlOffset : POINTL) : longbool; cdecl;
933 function GpiPaintRegion(hps,hrgn : cardinal) : longint; cdecl;
934 function GpiFrameRegion(hps,hrgn : cardinal;var thickness : SIZEL) : longint; cdecl;
935 function GpiPtInRegion(hps,hrgn : cardinal;var pptlPoint : POINTL) : longint; cdecl;
936 function GpiQueryRegionBox(hps,hrgn : cardinal;var prclBound : RECTL) : longint; cdecl;
937 function GpiQueryRegionRects(hps,hrgn : cardinal;var prclBound : RECTL;var prgnrcControl : RGNRECT;var prclRect : RECTL) : longbool; cdecl;
938 function GpiRectInRegion(hps,hrgn : cardinal;var prclRect : RECTL) : longint; cdecl;
939 function GpiSetRegion(hps,hrgn : cardinal;lcount : longint;var arclRectangles : RECTL) : longbool;cdecl;
940 function GpiSetClipRegion(hps,hrgn : cardinal;var phrgnOld : cardinal) : longint; cdecl;
941 function GpiQueryClipRegion(hps : cardinal) : cardinal; cdecl;
942 function GpiQueryClipBox(hps : cardinal;var prclBound : RECTL) : longint; cdecl;
943 function GpiExcludeClipRectangle(hps : cardinal;var prclRectangle : RECTL) : longint; cdecl;
944 function GpiIntersectClipRectangle(hps : cardinal;var prclRectangle : RECTL) : longint; cdecl;
945 function GpiOffsetClipRegion(hps : cardinal;var pptlPoint : POINTL) : longint; cdecl;
946 function GpiCopyMetaFile(hmf : cardinal) : cardinal; cdecl;
947 function GpiDeleteMetaFile(hmf : cardinal) : longbool; cdecl;
948 function GpiLoadMetaFile(hab : cardinal;pszFilename : pchar) : cardinal; cdecl;
949 function GpiPlayMetaFile(hps,hmf : cardinal;lCount1 : longint;var alOptarray,plSegCount : longint;lCount2 : longint;pszDesc : pchar) : longint; cdecl;
950 function GpiQueryMetaFileBits(hmf : cardinal;lOffset,lLength : longint;var pbData : BYTE) : longbool; cdecl;
951 function GpiQueryMetaFileLength(hmf : cardinal) : longint; cdecl;
952 function GpiSaveMetaFile(hmf : cardinal;pszFilename : pchar) : longbool; cdecl;
953 function GpiSetMetaFileBits(hmf : cardinal;lOffset,lLength : longint;var pbBuffer : BYTE) : longbool; cdecl;
954 function GpiQueryDefArcParams(hps : cardinal;var parcpArcParams : ARCPARAMS) : longbool; cdecl;
955 function GpiQueryDefAttrs(hps : cardinal;lPrimType : longint;flAttrMask : cardinal;ppbunAttrs : pointer) : longbool; cdecl;
956 function GpiQueryDefTag(hps : cardinal;var plTag : longint) : longbool; cdecl;
957 function GpiQueryDefViewingLimits(hps : cardinal;var prclLimits : RECTL) : longbool; cdecl;
958 function GpiSetDefArcParams(hps : cardinal;var parcpArcParams : ARCPARAMS) : longbool; cdecl;
959 function GpiSetDefAttrs(hps : cardinal;lPrimType : longint;flAttrMask : cardinal;ppbunAttrs : pointer) : longbool;cdecl;
960 function GpiSetDefTag(hps : cardinal;lTag : longint) : longbool; cdecl;
961 function GpiSetDefViewingLimits(hps : cardinal;var prclLimits : RECTL) : longbool; cdecl;
962 function GpiPolygons(hps,ulCount : cardinal;var paplgn : POLYGON;flOptions,flModel : cardinal) : longint; cdecl;
963
964 implementation
965
966 function GpiCreatePS(hab,hdc : cardinal;var psizlSize : SIZEL;flOptions : cardinal) : cardinal;cdecl;external 'pmgpi' index 369;
967 function GpiDestroyPS(hps : cardinal) : longbool;cdecl;external 'pmgpi' index 379;
968 function GpiAssociate(hps,hdc : cardinal) : longbool;cdecl;external 'pmgpi' index 351;
969 function GpiRestorePS(hps : cardinal;lPSid : longint) : longbool;cdecl;external 'pmgpi' index 499;
970 function GpiSavePS(hps : cardinal) : longint;cdecl;external 'pmgpi' index 501;
971 function GpiErase(hps : cardinal) : longbool;cdecl;external 'pmgpi' index 389;
972 function GpiQueryDevice(hps : cardinal) : cardinal;cdecl;external 'pmgpi' index 444;
973 function GpiResetPS(hps,flOptions : cardinal) : longbool;cdecl;external 'pmgpi' index 498;
974 function GpiSetPS(hps : cardinal;var psizlsize : SIZEL;flOptions : cardinal) : longbool;cdecl;external 'pmgpi' index 539;
975 function GpiQueryPS(hps : cardinal;var psizlSize : SIZEL) : cardinal;cdecl;external 'pmgpi' index 471;
976 function GpiErrorSegmentData(hps : cardinal;var plSegment,plContext : longint) : longint;cdecl;external 'pmgpi' index 390;
977 function GpiQueryDrawControl(hps : cardinal;lControl : longint) : longint;cdecl;external 'pmgpi' index 446;
978 function GpiSetDrawControl(hps : cardinal;lControl,lValue : longint) : longbool;cdecl;external 'pmgpi' index 521;
979 function GpiQueryDrawingMode(hps : cardinal) : longint;cdecl;external 'pmgpi' index 447;
980 function GpiSetDrawingMode(hps : cardinal;lMode : longint) : longbool;cdecl;external 'pmgpi' index 522;
981 function GpiQueryStopDraw(hps : cardinal) : longint;cdecl; external 'pmgpi' index 487;
982 function GpiSetStopDraw(hps : cardinal;lValue : longint) : longbool; cdecl; external 'pmgpi' index 550;
983 function GpiCorrelateChain(hps : cardinal;lType : longint;var pptlPick : POINTL;lMaxHits : longint;lMaxDepth : longint;var pl2 : longint) : longint; cdecl; external 'pmgpi' index 366;
984 function GpiQueryTag(hps : cardinal;var plTag : longint) : longbool; cdecl; external 'pmgpi' index 488;
985 function GpiSetTag(hps : cardinal;lTag : longint) : longbool; cdecl; external 'pmgpi' index 551;
986 function GpiQueryPickApertureSize(hps : cardinal;var psizlSize : SIZEL) : longbool; cdecl; external 'pmgpi' index 478;
987 function GpiSetPickApertureSize(hps : cardinal;lOptions : longint;var psizlSize : SIZEL) : longbool; cdecl; external 'pmgpi' index 589;
988 function GpiQueryPickAperturePosition(hps : cardinal;var pptlPoint : POINTL) : longbool; cdecl; external 'pmgpi' index 477;
989 function GpiSetPickAperturePosition(hps : cardinal;var pptlPick : POINTL) : longbool; cdecl; external 'pmgpi' index 545;
990 function GpiQueryBoundaryData(hps : cardinal;var prclBoundary : RECTL) : longbool; cdecl; external 'pmgpi' index 428;
991 function GpiResetBoundaryData(hps : cardinal) : longbool; cdecl; external 'pmgpi' index 497;
992 function GpiCorrelateFrom(hps : cardinal;lFirstSegment,lLastSegment,lType : longint;var pptlPick : POINTL;lMaxHits,lMaxDepth : longint;var plSegTag : longint) : longint; cdecl; external 'pmgpi' index 367;
993 function GpiCorrelateSegment(hps : cardinal;lSegment,lType : longint;var pptlPick : POINTL;lMaxHits,lMaxDepth : longint;var alSegTag : longint) : longint; cdecl; external 'pmgpi' index 582;
994 function GpiOpenSegment(hps : cardinal;lSegment : longint) : longbool; cdecl; external 'pmgpi' index 408;
995 function GpiCloseSegment(hps : cardinal) : longbool; cdecl; external 'pmgpi' index 361;
996 function GpiDeleteSegment(hps : cardinal;lSegid : longint) : longbool; cdecl; external 'pmgpi' index 376;
997 function GpiQueryInitialSegmentAttrs(hps : cardinal;lAttribute : longint) : longint; cdecl; external 'pmgpi' index 455;
998 function GpiSetInitialSegmentAttrs(hps : cardinal;lAttribute,lValue : longint) : longbool; cdecl; external 'pmgpi' index 527;
999 function GpiQuerySegmentAttrs(hps : cardinal;lSegid,lAttribute : longint) : longint; cdecl; external 'pmgpi' index 482;
1000 function GpiSetSegmentAttrs(hps : cardinal;lSegid,lAttribute,lValue : longint) : longbool; cdecl; external 'pmgpi' index 547;
1001 function GpiQuerySegmentPriority(hps : cardinal;lRefSegid,lOrder : longint) : longint; cdecl; external 'pmgpi' index 484;
1002 function GpiSetSegmentPriority(hps : cardinal;lSegid,lRefSegid,lOrder : longint) : longbool; cdecl; external 'pmgpi' index 548;
1003 function GpiDeleteSegments(hps : cardinal;lFirstSegment,lLastSegment : longint) : longbool; cdecl; external 'pmgpi' index 377;
1004 function GpiQuerySegmentNames(hps : cardinal;lFirstSegid,lLastSegid,lMax : longint;var alSegids : longint) : longint; cdecl; external 'pmgpi' index 483;
1005 function GpiGetData(hps : cardinal;lSegid : longint;var plOffset : longint;lFormat,lLength : longint;var pbData : BYTE) : longint; cdecl; external 'pmgpi' index 394;
1006 function GpiPutData(hps : cardinal;lFormat : longint;var plCount : longint;var pbData : BYTE) : longint; cdecl; external 'pmgpi' index 421;
1007 function GpiDrawChain(hps : cardinal) : longbool; cdecl; external 'pmgpi' index 380;
1008 function GpiDrawFrom(hps : cardinal;lFirstSegment,lLastSegment : longint) : longbool; cdecl; external 'pmgpi' index 382;
1009 function GpiDrawSegment(hps : cardinal;lSegment : longint) : longbool; cdecl; external 'pmgpi' index 383;
1010 function GpiDrawDynamics(hps : cardinal) : longbool; cdecl; external 'pmgpi' index 381;
1011 function GpiRemoveDynamics(hps : cardinal;lFirstSegid,lLastSegid : longint) : longbool; cdecl; external 'pmgpi' index 496;
1012 function GpiBeginElement(hps : cardinal;lType : longint;pszDesc : pchar) : longbool; cdecl; external 'pmgpi' index 353;
1013 function GpiEndElement(hps : cardinal) : longbool; cdecl; external 'pmgpi' index 386;
1014 function GpiLabel(hps : cardinal;lLabel : longint) : longbool; cdecl; external 'pmgpi' index 397;
1015 function GpiElement(hps : cardinal;lType : longint;pszDesc : pchar;lLength : longint;var pbData : BYTE) : longint; cdecl; external 'pmgpi' index 384;
1016 function GpiQueryElement(hps : cardinal;lOff,lMaxLength : longint;var pbData : BYTE) : longint; cdecl; external 'pmgpi' index 449;
1017 function GpiDeleteElement(hps : cardinal) : longbool; cdecl; external 'pmgpi' index 372;
1018 function GpiDeleteElementRange(hps : cardinal;lFirstElement,lLastElement : longint) : longbool; cdecl; external 'pmgpi' index 373;
1019 function GpiDeleteElementsBetweenLabels(hps : cardinal;lFirstLabel,lLastLabel : longint) : longbool; cdecl; external 'pmgpi' index 374;
1020 function GpiQueryEditMode(hps : cardinal) : longint; cdecl; external 'pmgpi' index 448;
1021 function GpiSetEditMode(hps : cardinal;lMode : longint) : longbool; cdecl; external 'pmgpi' index 523;
1022 function GpiQueryElementPointer(hps : cardinal) : longint; cdecl; external 'pmgpi' index 450;
1023 function GpiSetElementPointer(hps : cardinal;lElement : longint) : longbool; cdecl; external 'pmgpi' index 524;
1024 function GpiOffsetElementPointer(hps : cardinal;loffset : longint) : longbool; cdecl; external 'pmgpi' index 406;
1025 function GpiQueryElementType(hps : cardinal;var plType : longint;lLength : longint;pszData : pchar) : longint; cdecl; external 'pmgpi' index 451;
1026 function GpiSetElementPointerAtLabel(hps : cardinal;lLabel : longint) : longbool; cdecl; external 'pmgpi' index 525;
1027 function GpiQuerySegmentTransformMatrix(hps : cardinal;lSegid,lCount : longint;var pmatlfArray : MATRIXLF) : longbool; cdecl; external 'pmgpi' index 485;
1028 function GpiSetSegmentTransformMatrix(hps : cardinal;lSegid,lCount : longint;var pmatlfarray : MATRIXLF;lOptions : longint) : longbool; cdecl; external 'pmgpi' index 549;
1029 function GpiConvert(hps : cardinal;lSrc,lTarg,lCount : longint;var aptlPoints : POINTL) : longbool; cdecl; external 'pmgpi' index 364;
1030 function GpiConvertWithMatrix(hps : cardinal;lCountp : longint;var aptlPoints : POINTL;lCount : longint;var pmatlfArray : MATRIXLF) : longbool; cdecl; external 'pmgpi' index 618;
1031 function GpiQueryModelTransformMatrix(hps : cardinal;lCount : longint;var pmatlfArray : MATRIXLF) : longbool; cdecl; external 'pmgpi' index 468;
1032 function GpiSetModelTransformMatrix(hps : cardinal;lCount : longint;var pmatlfArray : MATRIXLF;lOptions : longint) : longbool; cdecl; external 'pmgpi' index 538;
1033 function GpiCallSegmentMatrix(hps : cardinal;lSegment,lCount : longint;var pmatlfArray : MATRIXLF;lOptions : longint) : longint; cdecl; external 'pmgpi' index 357;
1034 function GpiQueryDefaultViewMatrix(hps : cardinal;lCount : longint;var pmatlfArray : MATRIXLF) : longbool; cdecl; external 'pmgpi' index 443;
1035 function GpiSetDefaultViewMatrix(hps : cardinal;lCount : longint;var pmatlfarray : MATRIXLF;lOptions : longint) : longbool; cdecl; external 'pmgpi' index 520;
1036 function GpiQueryPageViewport(hps : cardinal;var prclViewport : RECTL) : longbool; cdecl; external 'pmgpi' index 472;
1037 function GpiSetPageViewport(hps : cardinal;var prclViewport : RECTL) : longbool; cdecl; external 'pmgpi' index 540;
1038 function GpiQueryViewingTransformMatrix(hps : cardinal;lCount : longint;var pmatlfArray : MATRIXLF) : longbool; cdecl; external 'pmgpi' index 491;
1039 function GpiSetViewingTransformMatrix(hps : cardinal;lCount : longint;var pmatlfArray : MATRIXLF;lOptions : longint) : longbool; cdecl; external 'pmgpi' index 553;
1040 function GpiTranslate(hps : cardinal;var pmatrixlf : MATRIXLF;long : longint;var ppointl : POINTL) : longbool; cdecl; external 'pmgpi' index 564;
1041 function GpiScale(hps : cardinal;var p1 : MATRIXLF;p2 : longint;var p3 : longint;var p4 : POINTL) : longbool; cdecl; external 'pmgpi' index 565;
1042 function GpiRotate(p1 : cardinal;var p2 : MATRIXLF;p3,p4 : longint;var p5 : POINTL) : longbool; cdecl; external 'pmgpi' index 566;
1043 function GpiSetGraphicsField(hps : cardinal;var prclField : RECTL) : longbool; cdecl; external 'pmgpi' index 526;
1044 function GpiQueryGraphicsField(hps : cardinal;var prclField : RECTL) : longbool; cdecl; external 'pmgpi' index 454;
1045 function GpiSetViewingLimits(hps : cardinal;var prclLimits : RECTL) : longbool; cdecl; external 'pmgpi' index 552;
1046 function GpiQueryViewingLimits(hps : cardinal;var prclLimits : RECTL) : longbool; cdecl; external 'pmgpi' index 490;
1047 function GpiBeginPath(hps : cardinal;lPath : longint) : longbool; cdecl; external 'pmgpi' index 354;
1048 function GpiEndPath(hps : cardinal) : longbool; cdecl; external 'pmgpi' index 387;
1049 function GpiCloseFigure(hps : cardinal) : longbool; cdecl; external 'pmgpi' index 360;
1050 function GpiModifyPath(hps : cardinal;lPath,lMode : longint) : longbool; cdecl; external 'pmgpi' index 403;
1051 function GpiFillPath(hps : cardinal;lPath,lOptions : longint) : longint; cdecl; external 'pmgpi' index 392;
1052 function GpiSetClipPath(hps : cardinal;lPath,lOptions : longint) : longbool; cdecl; external 'pmgpi' index 515;
1053 function GpiOutlinePath(hps : cardinal;lPath,lOptions : longint) : longint; cdecl; external 'pmgpi' index 563;
1054 function GpiPathToRegion(GpiH : cardinal;lPath,lOptions : longint) : cardinal; cdecl; external 'pmgpi' index 559;
1055 function GpiStrokePath(hps : cardinal;lPath : longint;flOptions : cardinal) : longint; cdecl; external 'pmgpi' index 554;
1056 function GpiCreateLogColorTable(hps,flOptions : cardinal;lFormat,lStart,lCount : longint;var alTable : longint) : longbool; cdecl; external 'pmgpi' index 592;
1057 function GpiQueryColorData(hps : cardinal;lCount : longint;var alArray : longint) : longbool; cdecl; external 'pmgpi' index 438;
1058 function GpiQueryLogColorTable(hps,flOptions : cardinal;lStart,lCount : longint;var alArray : longint) : longint; cdecl; external 'pmgpi' index 593;
1059 function GpiQueryRealColors(hps,flOptions : cardinal;lStart,lCount : longint;var alColors : longint) : longint; cdecl; external 'pmgpi' index 480;
1060 function GpiQueryNearestColor(hps,flOptions : cardinal;lRgbIn : longint) : longint; cdecl; external 'pmgpi' index 469;
1061 function GpiQueryColorIndex(hps,flOptions : cardinal;lRgbColor : longint) : longint; cdecl; external 'pmgpi' index 439;
1062 function GpiQueryRGBColor(hps,flOptions : cardinal;lColorIndex : longint) : longint; cdecl; external 'pmgpi' index 479;
1063 function GpiCreatePalette(hab,flOptions,ulFormat,ulCount : cardinal;var aulTable : cardinal) : cardinal; cdecl; external 'pmgpi' index 594;
1064 function GpiDeletePalette(hpal : cardinal) : longbool; cdecl; external 'pmgpi' index 577;
1065 function GpiSelectPalette(hps,hpal : cardinal) : cardinal; cdecl; external 'pmgpi' index 578;
1066 function GpiAnimatePalette(hpal,ulFormat,ulStart,ulCount : cardinal;var aulTable : cardinal) : longint; cdecl; external 'pmgpi' index 595;
1067 function GpiSetPaletteEntries(hpal,ulFormat,ulStart,ulCount : cardinal;var aulTable : cardinal) : longbool; cdecl; external 'pmgpi' index 596;
1068 function GpiQueryPalette(hps : cardinal) : cardinal; cdecl; external 'pmgpi' index 579;
1069 function GpiQueryPaletteInfo(hpal,hps,flOptions,ulStart,ulCount : cardinal;var aulArray : cardinal) : longint; cdecl; external 'pmgpi' index 597;
1070 function GpiSetColor(hps : cardinal;lColor : longint) : longbool; cdecl; external 'pmgpi' index 517;
1071 function GpiQueryColor(hps : cardinal) : longint; cdecl; external 'pmgpi' index 437;
1072 function GpiBox(hps : cardinal;lControl : longint;var pptlPoint : POINTL;lHRound,lVRound : longint) : longint; cdecl; external 'pmgpi' index 356;
1073 function GpiMove(hps : cardinal;var pptlPoint : POINTL) : longbool; cdecl; external 'pmgpi' index 404;
1074 function GpiLine(hps : cardinal;var pptlEndPoint : POINTL) : longint; cdecl; external 'pmgpi' index 398;
1075 function GpiPolyLine(hps : cardinal;lCount : longint;var aptlPoints : POINTL) : longint; cdecl; external 'pmgpi' index 415;
1076 function GpiPolyLineDisjoint(hps : cardinal;lCount : longint;var aptlPoints : POINTL) : longint; cdecl; external 'pmgpi' index 558;
1077 function GpiSetPattern(hps : cardinal;lPatternSymbol : longint) : longbool; cdecl; external 'pmgpi' index 541;
1078 function GpiQueryPattern(hps : cardinal) : longint; cdecl; external 'pmgpi' index 473;
1079 function GpiBeginArea(hps,flOptions : cardinal) : longbool; cdecl; external 'pmgpi' index 352;
1080 function GpiEndArea(hps : cardinal) : longint; cdecl; external 'pmgpi' index 385;
1081 function GpiCharString(hps : cardinal;lCount : longint;pchString : pchar) : longint; cdecl; external 'pmgpi' index 358;
1082 function GpiCharStringAt(hps : cardinal;var pptlPoint : POINTL;lCount : longint;pchString : pchar) : longint; cdecl; external 'pmgpi' index 359;
1083 function GpiSetAttrMode(hps : cardinal;lMode : longint) : longbool; cdecl; external 'pmgpi' index 503;
1084 function GpiQueryAttrMode(hps : cardinal) : longint; cdecl; external 'pmgpi' index 423;
1085 function GpiSetAttrs(hps : cardinal;lPrimType : longint;flAttrMask,flDefMask : cardinal;ppbunAttrs : pointer) : longbool; cdecl; external 'pmgpi' index 588;
1086 function GpiQueryAttrs(hps : cardinal;lPrimType : longint;flAttrMask : cardinal;ppbunAttrs : pointer) : longint; cdecl; external 'pmgpi' index 583;
1087 function GpiSetBackColor(hps : cardinal;lColor : longint) : longbool; cdecl; external 'pmgpi' index 504;
1088 function GpiQueryBackColor(hps : cardinal) : longint; cdecl; external 'pmgpi' index 424;
1089 function GpiSetMix(hps : cardinal;lMixMode : longint) : longbool; cdecl; external 'pmgpi' index 537;
1090 function GpiQueryMix(hps : cardinal) : longint; cdecl; external 'pmgpi' index 467;
1091 function GpiSetBackMix(hps : cardinal;lMixMode : longint) : longbool; cdecl; external 'pmgpi' index 505;
1092 function GpiQueryBackMix(hps : cardinal) : longint; cdecl; external 'pmgpi' index 425;
1093 function GpiSetLineType(hps : cardinal;lLineType : longint) : longbool; cdecl; external 'pmgpi' index 530;
1094 function GpiQueryLineType(hps : cardinal) : longint; cdecl; external 'pmgpi' index 459;
1095 function GpiSetLineWidth(hps : cardinal;fxLineWidth : longint) : longbool; cdecl; external 'pmgpi' index 531;
1096 function GpiQueryLineWidth(hps : cardinal) : longint; cdecl; external 'pmgpi' index 460;
1097 function GpiSetLineWidthGeom(hps : cardinal;lLineWidth : longint) : longbool; cdecl; external 'pmgpi' index 532;
1098 function GpiQueryLineWidthGeom(hps : cardinal) : longint; cdecl; external 'pmgpi' index 461;
1099 function GpiSetLineEnd(hps : cardinal;lLineEnd : longint) : longbool; cdecl; external 'pmgpi' index 528;
1100 function GpiQueryLineEnd(hps : cardinal) : longint; cdecl; external 'pmgpi' index 457;
1101 function GpiSetLineJoin(hps : cardinal;lLineJoin : longint) : longbool; cdecl; external 'pmgpi' index 529;
1102 function GpiQueryLineJoin(hps : cardinal) : longint; cdecl; external 'pmgpi' index 458;
1103 function GpiSetCurrentPosition(hps : cardinal;var pptlPoint : POINTL) : longbool; cdecl; external 'pmgpi' index 519;
1104 function GpiQueryCurrentPosition(hps : cardinal;var pptlPoint : POINTL) : longbool; cdecl; external 'pmgpi' index 441;
1105 function GpiSetArcParams(hps : cardinal;var parcpArcParams : ARCPARAMS) : longbool; cdecl; external 'pmgpi' index 502;
1106 function GpiQueryArcParams(hps : cardinal;var parcpArcParams : ARCPARAMS) : longbool; cdecl; external 'pmgpi' index 422;
1107 function GpiPointArc(hps : cardinal;var pptl2 : POINTL) : longint; cdecl; external 'pmgpi' index 412;
1108 function GpiFullArc(hps : cardinal;lControl,fxMultiplier : longint) : longint; cdecl; external 'pmgpi' index 393;
1109 function GpiPartialArc(hps : cardinal;var pptlCenter : POINTL;fxMultiplier,fxStartAngle,fxSweepAngle : longint) : longint; cdecl; external 'pmgpi' index 612;
1110 function GpiPolyFillet(hps : cardinal;lCount : longint;var aptlPoints : POINTL) : longint; cdecl; external 'pmgpi' index 413;
1111 function GpiPolySpline(hps : cardinal;lCount : longint;var aptlPoints : POINTL) : longint; cdecl; external 'pmgpi' index 417;
1112 function GpiPolyFilletSharp(hps : cardinal;lCount : longint;var aptlPoints : POINTL;var afxPoints : longint) : longint; cdecl; external 'pmgpi' index 414;
1113 function GpiSetPatternSet(hps : cardinal;lSet : longint) : longbool; cdecl; external 'pmgpi' index 543;
1114 function GpiQueryPatternSet(hps : cardinal) : longint; cdecl; external 'pmgpi' index 475;
1115 function GpiSetPatternRefPoint(hps : cardinal;var pptlRefPoint : POINTL) : longbool; cdecl; external 'pmgpi' index 542;
1116 function GpiQueryPatternRefPoint(hps : cardinal;var pptlRefPoint : POINTL) : longbool; cdecl; external 'pmgpi' index 474;
1117 function GpiQueryCharStringPos(hps,flOptions : cardinal;lCount : longint;pchString : pchar;var alXincrements : longint;var aptlPositions : POINTL) : longbool; cdecl; external 'pmgpi' index 584;
1118 function GpiQueryCharStringPosAt(hps : cardinal;var pptlStart : POINTL;flOptions : cardinal;lCount : longint;pchString : pchar;var alXincrements : longint;var aptlPositions : POINTL) : longbool; cdecl; external 'pmgpi' index 585;
1119 function GpiQueryTextBox(hps : cardinal;lCount1 : longint;pchString : pchar;lCount2 : longint;var aptlPoints : POINTL) : longbool; cdecl; external 'pmgpi' index 489;
1120 function GpiQueryDefCharBox(hps : cardinal;var psizlSize : SIZEL) : longbool; cdecl; external 'pmgpi' index 442;
1121 function GpiSetCharSet(hps : cardinal;llcid : longint) : longbool; cdecl; external 'pmgpi' index 513;
1122 function GpiQueryCharSet(hps : cardinal) : longint; cdecl; external 'pmgpi' index 433;
1123 function GpiSetCharBox(hps : cardinal;var psizfxBox : SIZEF) : longbool; cdecl; external 'pmgpi' index 510;
1124 function GpiQueryCharBox(hps : cardinal;var psizfxSize : SIZEF) : longbool; cdecl; external 'pmgpi' index 430;
1125 function GpiSetCharAngle(hps : cardinal;var pgradlAngle : GRADIENTL) : longbool; cdecl; external 'pmgpi' index 509;
1126 function GpiQueryCharAngle(hps : cardinal;var pgradlAngle : GRADIENTL) : longbool; cdecl; external 'pmgpi' index 429;
1127 function GpiSetCharShear(hps : cardinal;var pptlAngle : POINTL) : longbool; cdecl; external 'pmgpi' index 514;
1128 function GpiQueryCharShear(hps : cardinal;var pptlShear : POINTL) : longbool; cdecl; external 'pmgpi' index 434;
1129 function GpiSetCharDirection(hps : cardinal;lDirection : longint) : longbool; cdecl; external 'pmgpi' index 511;
1130 function GpiQueryCharDirection(hps : cardinal) : longint; cdecl; external 'pmgpi' index 431;
1131 function GpiSetCharMode(hps : cardinal;lMode : longint) : longbool; cdecl; external 'pmgpi' index 512;
1132 function GpiQueryCharMode(hps : cardinal) : longint; cdecl; external 'pmgpi' index 432;
1133 function GpiSetTextAlignment(hps : cardinal;lHoriz,lVert : longint) : longbool; cdecl; external 'pmgpi' index 649;
1134 function GpiQueryTextAlignment(hps : cardinal;var plHoriz,plVert : longint) : longbool; cdecl; external 'pmgpi' index 648;
1135 function GpiCharStringPos(hps : cardinal;var prclRect : RECTL;flOptions : cardinal;lCount : longint;pchString : pchar;var alAdx : longint) : longint; cdecl; external 'pmgpi' index 580;
1136 function GpiCharStringPosAt(hps : cardinal;var pptlStart : POINTL;var prclRect : RECTL;flOptions : cardinal;lCount : longint;pchString : pchar;var alAdx : longint) : longint; cdecl; external 'pmgpi' index 581;
1137 function GpiSetCharExtra(hps : cardinal;Extra : longint) : longbool; cdecl; external 'pmgpi' index 614;
1138 function GpiSetCharBreakExtra(hps : cardinal;BreakExtra : longint) : longbool; cdecl; external 'pmgpi' index 616;
1139 function GpiQueryCharExtra(hps : cardinal;var Extra : longint) : longbool; cdecl; external 'pmgpi' index 613;
1140 function GpiQueryCharBreakExtra(hps : cardinal;var BreakExtra : longint) : longbool; cdecl; external 'pmgpi' index 615;
1141 function GpiMarker(hps : cardinal;var pptlPoint : POINTL) : longint; cdecl; external 'pmgpi' index 402;
1142 function GpiPolyMarker(hps : cardinal;lCount : longint;var aptlPoints : POINTL) : longint; cdecl; external 'pmgpi' index 416;
1143 function GpiSetMarker(hps : cardinal;lSymbol : longint) : longbool; cdecl; external 'pmgpi' index 533;
1144 function GpiSetMarkerBox(hps : cardinal;var psizfxSize : SIZEF) : longbool; cdecl; external 'pmgpi' index 534;
1145 function GpiSetMarkerSet(hps : cardinal;lSet : longint) : longbool; cdecl; external 'pmgpi' index 535;
1146 function GpiQueryMarker(hps : cardinal) : longint; cdecl; external 'pmgpi' index 462;
1147 function GpiQueryMarkerBox(hps : cardinal;var psizfxSize : SIZEF) : longbool; cdecl; external 'pmgpi' index 463;
1148 function GpiQueryMarkerSet(hps : cardinal) : longint; cdecl; external 'pmgpi' index 464;
1149 function GpiImage(hps : cardinal;lFormat : longint;var psizlImageSize : SIZEL;lLength : longint;var pbData : BYTE) : longint; cdecl; external 'pmgpi' index 395;
1150 function GpiPop(hps : cardinal;lCount : longint) : longbool; cdecl; external 'pmgpi' index 418;
1151 function GpiPtVisible(hps : cardinal;var pptlPoint : POINTL) : longint; cdecl; external 'pmgpi' index 420;
1152 function GpiRectVisible(hps : cardinal;var prclRectangle : RECTL) : longint; cdecl; external 'pmgpi' index 495;
1153 function GpiComment(hps : cardinal;lLength : longint;var pbData : BYTE) : longbool; cdecl; external 'pmgpi' index 363;
1154 function GpiCreateLogFont(hps : cardinal;var pName : STR8;lLcid : longint;var pfatAttrs : FATTRS) : longint; cdecl; external 'pmgpi' index 368;
1155 function GpiDeleteSetId(hps : cardinal;lLcid : longint) : longbool; cdecl; external 'pmgpi' index 378;
1156 function GpiLoadFonts(hab : cardinal;pszFilename : pchar) : longbool; cdecl; external 'pmgpi' index 400;
1157 function GpiUnloadFonts(hab : cardinal;pszFilename : pchar) : longbool; cdecl; external 'pmgpi' index 555;
1158 function GpiQueryFonts(hps,flOptions : cardinal;pszFacename : pchar;var plReqFonts : longint;lMetricsLength : longint;var afmMetrics : FONTMETRICS) : longint; cdecl; external 'pmgpi' index 586;
1159 function GpiQueryFontMetrics(hps : cardinal;lMetricsLength : longint;var pfmMetrics : FONTMETRICS) : longbool; cdecl; external 'pmgpi' index 453;
1160 function GpiQueryKerningPairs(hps : cardinal;lCount : longint;var akrnprData : KERNINGPAIRS) : longint; cdecl; external 'pmgpi' index 456;
1161 function GpiQueryWidthTable(hps : cardinal;lFirstChar,lCount : longint;var alData : longint) : longbool; cdecl; external 'pmgpi' index 492;
1162 function GpiQueryNumberSetIds(hps : cardinal) : longint; cdecl; external 'pmgpi' index 470;
1163 function GpiQuerySetIds(hps : cardinal;lCount : longint;var alTypes : longint;var aNames : STR8;var allcids : longint) : longbool; cdecl; external 'pmgpi' index 486;
1164 function GpiQueryFaceString(PS : cardinal;FamilyName : pchar;var attrs : FACENAMEDESC;length : longint;CompoundFaceName : pchar) : cardinal; cdecl; external 'pmgpi' index 575;
1165 function GpiQueryLogicalFont(PS : cardinal;lcid : longint;var name : STR8;var attrs : FATTRS;length : longint) : longbool; cdecl; external 'pmgpi' index 574;
1166 function GpiQueryFontAction(anchor,options : cardinal) : cardinal; cdecl; external 'pmgpi' index 576;
1167 function GpiLoadPublicFonts(p1 : cardinal;p2 : pchar) : longbool; cdecl; external 'pmgpi' index 622;
1168 function GpiUnloadPublicFonts(p1 : cardinal;p2 : pchar) : longbool; cdecl; external 'pmgpi' index 623;
1169 function GpiSetCp(hps,ulCodePage : cardinal) : longbool; cdecl; external 'pmgpi' index 518;
1170 function GpiQueryCp(hps : cardinal) : cardinal; cdecl; external 'pmgpi' index 440;
1171 function GpiQueryFontFileDescriptions(hab : cardinal;pszFilename : pchar;var plCount : longint;var affdescsNames : FFDESCS) : longint; cdecl; external 'pmgpi' index 452;
1172 function GpiQueryFullFontFileDescs(hab : cardinal;pszFilename : pchar;var plCount : longint;pNames : pointer;var plNamesBuffLength : longint) : longint; cdecl; external 'pmgpi' index 657;
1173 function GpiBitBlt(hpsTarget,hpsSource : cardinal;lCount : longint;var aptlPoints : POINTL;lRop : longint;flOptions : cardinal) : longint; cdecl; external 'pmgpi' index 355;
1174 function GpiDeleteBitmap(hbm : cardinal) : longbool; cdecl; external 'pmgpi' index 371;
1175 function GpiLoadBitmap(hps,Resource,idBitmap:cardinal;lWidth,lHeight : longint) : cardinal; cdecl; external 'pmgpi' index 399;
1176 function GpiSetBitmap(hps,hbm : cardinal) : cardinal; cdecl; external 'pmgpi' index 506;
1177 function GpiWCBitBlt(hpsTarget,hbmSource : cardinal;lCount : longint;var aptlPoints : POINTL;lRop : longint;flOptions : cardinal) : longint; cdecl; external 'pmgpi' index 557;
1178 function GpiCreateBitmap(hps : cardinal;var pbmpNew :Tbitmapinfoheader2;flOptions : cardinal;var pbInitData : BYTE;var pbmiInfoTable :Tbitmapinfo2) : cardinal; cdecl; external 'pmgpi' index 598;
1179 function GpiSetBitmapBits(hps : cardinal;lScanStart,lScans : longint;var pbBuffer : BYTE;var pbmiInfoTable :Tbitmapinfo2) : longint; cdecl; external 'pmgpi' index 602;
1180 function GpiSetBitmapDimension(hbm : cardinal;var psizlBitmapDimension : SIZEL) : longbool; cdecl; external 'pmgpi' index 507;
1181 function GpiSetBitmapId(hps,hbm : cardinal;lLcid : longint) : longbool; cdecl; external 'pmgpi' index 508;
1182 function GpiQueryBitmapBits(hps : cardinal;lScanStart,lScans : longint;var pbBuffer : BYTE;var pbmiInfoTable :Tbitmapinfo2) : longint; cdecl; external 'pmgpi' index 599;
1183 function GpiQueryBitmapDimension(hbm : cardinal;var psizlBitmapDimension : SIZEL) : longbool; cdecl; external 'pmgpi' index 426;
1184 function GpiQueryBitmapHandle(hps : cardinal;lLcid : longint) : cardinal; cdecl; external 'pmgpi' index 427;
1185 function GpiQueryBitmapParameters(hbm : cardinal;var pbmpData :Tbitmapinfoheader) : longbool; cdecl; external 'pmgpi' index 573;
1186 function GpiQueryBitmapInfoHeader(hbm : cardinal;var pbmpData :Tbitmapinfoheader2) : longbool; cdecl; external 'pmgpi' index 601;
1187 function GpiQueryDeviceBitmapFormats(hps : cardinal;lCount : longint;var alArray : longint) : longbool; cdecl; external 'pmgpi' index 445;
1188 function GpiSetPel(hps : cardinal;var pptlPoint : POINTL) : longint; cdecl; external 'pmgpi' index 544;
1189 function GpiQueryPel(hps : cardinal;var pptlPoint : POINTL) : longint; cdecl; external 'pmgpi' index 476;
1190 function GpiFloodFill(hps : cardinal;lOptions,lColor : longint) : longint; cdecl; external 'pmgpi' index 560;
1191 function GpiDrawBits(hps : cardinal;pBits : pointer;var pbmiInfoTable :Tbitmapinfo2;lCount : longint;var aptlPoints : POINTL;lRop : longint;flOptions : cardinal) : longint; cdecl; external 'pmgpi' index 603;
1192 function GpiCombineRegion(hps,hrgnDest,hrgnSrc1,hrgnSrc2 : cardinal;lMode : longint) : longint; cdecl; external 'pmgpi' index 362;
1193 function GpiCreateRegion(hps : cardinal;lCount : longint;var arclRectangles : RECTL) : cardinal; cdecl; external 'pmgpi' index 370;
1194 function GpiDestroyRegion(hps,hrgn : cardinal) : longbool; cdecl; external 'pmgpi' index 611;
1195 function GpiEqualRegion(hps,hrgnSrc1,hrgnSrc2 : cardinal) : longint; cdecl; external 'pmgpi' index 388;
1196 function GpiOffsetRegion(hps,Hrgn : cardinal;var pptlOffset : POINTL) : longbool; cdecl; external 'pmgpi' index 407;
1197 function GpiPaintRegion(hps,hrgn : cardinal) : longint; cdecl; external 'pmgpi' index 409;
1198 function GpiFrameRegion(hps,hrgn : cardinal;var thickness : SIZEL) : longint; cdecl; external 'pmgpi' index 617;
1199 function GpiPtInRegion(hps,hrgn : cardinal;var pptlPoint : POINTL) : longint; cdecl; external 'pmgpi' index 419;
1200 function GpiQueryRegionBox(hps,hrgn : cardinal;var prclBound : RECTL) : longint; cdecl; external 'pmgpi' index 481;
1201 function GpiQueryRegionRects(hps,hrgn : cardinal;var prclBound : RECTL;var prgnrcControl : RGNRECT;var prclRect : RECTL) : longbool; cdecl; external 'pmgpi' index 587;
1202 function GpiRectInRegion(hps,hrgn : cardinal;var prclRect : RECTL) : longint; cdecl; external 'pmgpi' index 494;
1203 function GpiSetRegion(hps,hrgn : cardinal;lcount : longint;var arclRectangles : RECTL) : longbool; cdecl; external 'pmgpi' index 546;
1204 function GpiSetClipRegion(hps,hrgn : cardinal;var phrgnOld : cardinal) : longint; cdecl; external 'pmgpi' index 516;
1205 function GpiQueryClipRegion(hps : cardinal) : cardinal; cdecl; external 'pmgpi' index 436;
1206 function GpiQueryClipBox(hps : cardinal;var prclBound : RECTL) : longint; cdecl; external 'pmgpi' index 435;
1207 function GpiExcludeClipRectangle(hps : cardinal;var prclRectangle : RECTL) : longint; cdecl; external 'pmgpi' index 391;
1208 function GpiIntersectClipRectangle(hps : cardinal;var prclRectangle : RECTL) : longint; cdecl; external 'pmgpi' index 396;
1209 function GpiOffsetClipRegion(hps : cardinal;var pptlPoint : POINTL) : longint; cdecl; external 'pmgpi' index 405;
1210 function GpiCopyMetaFile(hmf : cardinal) : cardinal; cdecl; external 'pmgpi' index 365;
1211 function GpiDeleteMetaFile(hmf : cardinal) : longbool; cdecl; external 'pmgpi' index 375;
1212 function GpiLoadMetaFile(hab : cardinal;pszFilename : pchar) : cardinal; cdecl; external 'pmgpi' index 401;
1213 function GpiPlayMetaFile(hps,hmf : cardinal;lCount1 : longint;var alOptarray,plSegCount : longint;lCount2 : longint;pszDesc : pchar) : longint; cdecl; external 'pmgpi' index 411;
1214 function GpiQueryMetaFileBits(hmf : cardinal;lOffset,lLength : longint;var pbData : BYTE) : longbool; cdecl; external 'pmgpi' index 465;
1215 function GpiQueryMetaFileLength(hmf : cardinal) : longint; cdecl; external 'pmgpi' index 466;
1216 function GpiSaveMetaFile(hmf : cardinal;pszFilename : pchar) : longbool; cdecl; external 'pmgpi' index 500;
1217 function GpiSetMetaFileBits(hmf : cardinal;lOffset,lLength : longint;var pbBuffer : BYTE) : longbool; cdecl; external 'pmgpi' index 536;
1218 function GpiQueryDefArcParams(hps : cardinal;var parcpArcParams : ARCPARAMS) : longbool; cdecl; external 'pmgpi' index 567;
1219 function GpiQueryDefAttrs(hps : cardinal;lPrimType : longint;flAttrMask : cardinal;ppbunAttrs : pointer) : longbool; cdecl; external 'pmgpi' index 590;
1220 function GpiQueryDefTag(hps : cardinal;var plTag : longint) : longbool; cdecl; external 'pmgpi' index 568;
1221 function GpiQueryDefViewingLimits(hps : cardinal;var prclLimits : RECTL) : longbool; cdecl; external 'pmgpi' index 569;
1222 function GpiSetDefArcParams(hps : cardinal;var parcpArcParams : ARCPARAMS) : longbool; cdecl; external 'pmgpi' index 570;
1223 function GpiSetDefAttrs(hps : cardinal;lPrimType : longint;flAttrMask : cardinal;ppbunAttrs : pointer) : longbool; cdecl; external 'pmgpi' index 591;
1224 function GpiSetDefTag(hps : cardinal;lTag : longint) : longbool; cdecl; external 'pmgpi' index 571;
1225 function GpiSetDefViewingLimits(hps : cardinal;var prclLimits : RECTL) : longbool; cdecl; external 'pmgpi' index 572;
1226 function GpiPolygons(hps,ulCount : cardinal;var paplgn : POLYGON;flOptions,flModel : cardinal) : longint; cdecl; external 'pmgpi' index 650;
1227
1228 end.
1229 {
1230 $Log$
1231 Revision 1.1 2002/02/19 08:26:01 sasu
1232 Initial revision
1233
1234 Revision 1.1 2000/07/13 06:31:06 michael
1235 + Initial import
1236
1237 Revision 1.10 2000/02/09 16:59:33 peter
1238 * truncated log
1239
1240 Revision 1.9 2000/01/09 20:48:04 hajny
1241 * FPK changed to FPC
1242
1243 Revision 1.8 2000/01/07 16:41:48 daniel
1244 * copyright 2000
1245
1246 Revision 1.7 2000/01/07 16:32:32 daniel
1247 * copyright 2000 added
1248
1249 Revision 1.6 1999/08/04 15:51:07 hajny
1250 * merging changes by RB and DM :-(
1251
1252 }
Mirror of AROS' Contrib svn.