paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 12:39:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

Now part of pmgpi.pas

Browse Source
This commit is contained in:
yuri 2003-03-27 18:13:23 +00:00
parent 1712c1a175
commit b91f0f1f32
1 changed files with 0 additions and 725 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

725
rtl/os2/pmord.pas
View File

@ -1,725 +0,0 @@
{****************************************************************************
Copyright (c) 1999-2000 by Florian Kl„mpfl
****************************************************************************}
unit pmord;
interface
uses
os2def,pmgpi;
{$PACKRECORDS 1}
type
RECT1S = record
xLeft : SHORT;
yBottom : SHORT;
xRight : SHORT;
yTop : SHORT;
end;
ODPOINT = record
dx : CHAR;
dy : CHAR;
end;
SIZES = record
cx : SHORT;
cy : SHORT;
end;
SWPUSHORT = record
HiByte : UCHAR;
LoByte : UCHAR;
end;
const
OCODE_GNOP1 = $00;
OCODE_GESD = $FF;
OCODE2_1 = $80;
OCODE2_2 = $88;
type
ORDER = record
idCode : UCHAR;
uchData : UCHAR;
end;
const
OCODE_GBAR = $68;
OCODE_GCFIG = $7D;
OCODE_GEEL = $49;
OCODE_GEPTH = $7F;
OCODE_GEPROL = $3E;
OCODE_GPOP = $3F;
OCODE_GSBMX = $0D;
OCODE_GPSBMX = $4D;
OCODE_GSCD = $3A;
OCODE_GPSCD = $7A;
OCODE_GSCR = $39;
OCODE_GPSCR = $79;
OCODE_GSCS = $38;
OCODE_GPSCS = $78;
OCODE_GSCOL = $0A;
OCODE_GPSCOL = $4A;
OCODE_GSLE = $1A;
OCODE_GPSLE = $5A;
OCODE_GSLJ = $1B;
OCODE_GPSLJ = $5B;
OCODE_GSLT = $18;
OCODE_GPSLT = $58;
OCODE_GSLW = $19;
OCODE_GPSLW = $59;
OCODE_GSMP = $3B;
OCODE_GPSMP = $7B;
OCODE_GSMS = $3C;
OCODE_GPSMS = $7C;
OCODE_GSMT = $29;
OCODE_GPSMT = $69;
OCODE_GSMX = $0C;
OCODE_GPSMX = $4C;
OCODE_GSPS = $08;
OCODE_GPSPS = $48;
OCODE_GSPT = $28;
OCODE_GPSPT = $09;
GBAR_RESERVED = $80;
GBAR_BOUNDARY = $C0;
GBAR_NOBOUNDARY = $80;
GBAR_WINDING = $A0;
GBAR_ALTERNATE = $80;
GSCR_PRECISION = $0F;
OCODE_VLONG = $FE;
LORDER_ML = 253;
type
LORDER = record
idCode : UCHAR;
uchLength : UCHAR;
uchData : array[0..LORDER_ML-1] of UCHAR;
end;
const
OCODE_GEAR = $60;
OCODE_GEIMG = $93;
OCODE_GCCHST = $83;
GCCHST_MC = 255;
OCODE_GCHST = $C3;
GCHST_SMC = 251;
GCHST_LMC = 247;
OCODE_GCCHSTM = $B1;
GCCHSTM_MC = 255;
OCODE_GCHSTM = $F1;
GCHSTM_SMC = 251;
GCHSTM_LMC = 247;
OCODE_GCOMT = $01;
GCOMT_ML = 255;
OCODE_GIMD = $92;
GIMD_ML = 255;
OCODE_GCFARC = $87;
OCODE_GFARC = $C7;
OCODE_GLABL = $D3;
OCODE_GSCP = $21;
OCODE_GPSCP = $61;
OCODE_GCBEZ = $A5;
GCBEZ_SMB = 21;
GCBEZ_LMB = 10;
OCODE_GBEZ = $E5;
GBEZ_SMB = 20;
GBEZ_LMB = 10;
OCODE_GCFLT = $85;
GCFLT_SMP = 63;
GCFLT_LMP = 31;
OCODE_GFLT = $C5;
GFLT_SMP = 62;
GFLT_LMP = 30;
OCODE_GCLINE = $81;
GCLINE_SMP = 63;
GCLINE_LMP = 31;
OCODE_GLINE = $C1;
GLINE_SMP = 62;
GLINE_LMP = 30;
OCODE_GCMRK = $82;
GCMRK_SMP = 63;
GCMRK_LMP = 31;
OCODE_GMRK = $C2;
GMRK_SMP = 62;
GMRK_LMP = 30;
OCODE_GCRLINE = $A1;
GCRLINE_MP = 127;
OCODE_GRLINE = $E1;
GRLINE_SMP = 125;
GRLINE_LMP = 123;
OCODE_GSBCOL = $25;
OCODE_GPSBCOL = $65;
OCODE_GSECOL = $26;
OCODE_GPSECOL = $66;
SECOL_DEFAULT0 = $0000;
SECOL_DEFAULT1 = $FF00;
SECOL_NEUTRAL = $FF07;
SECOL_RESET = $FF08;
OCODE_GSCA = $34;
OCODE_GPSCA = $74;
OCODE_GSCH = $35;
OCODE_GPSCH = $75;
OCODE_GSFLW = $11;
OCODE_GPSFLW = $51;
OCODE_GSPIK = $43;
OCODE_GPSPIK = $23;
OCODE_GCARC = $86;
OCODE_GARC = $C6;
type
ORDERS_GCARC = record
ptInter : POINTS;
ptEnd : POINTS;
end;
ORDERL_GCARC = record
ptInter : POINTL;
ptEnd : POINTL;
end;
const
OCODE_GBEL = $D2;
GBEL_DL = 251;
type
ORDER_GBEL = record
lElementType : LONG;
achDesc : array[0..GBEL_DL-1] of CHAR;
end;
const
OCODE_GCBIMG = $91;
OCODE_GBIMG = $D1;
type
ORDER_GCBIMG = record
uchFormat : UCHAR;
uchReserved : UCHAR;
cx : SWPUSHORT;
cy : SWPUSHORT;
end;
const
OCODE_GBPTH = $D0;
type
ORDER_GBPTH = record
usReserved : USHORT;
idPath : LONG;
end;
const
OCODE_GCBOX = $80;
OCODE_GBOX = $C0;
type
ORDERS_GCBOX = record
fbFlags : UCHAR;
uchReserved : UCHAR;
ptCorner : POINTS;
hAxis : SHORT;
vAxis : SHORT;
end;
ORDERL_GCBOX = record
fbFlags : UCHAR;
uchReserved : UCHAR;
ptCorner : POINTL;
hAxis : LONG;
vAxis : LONG;
end;
const
GCBOX_FILL = $40;
GCBOX_BOUNDARY = $20;
OCODE_GCALLS = $07;
type
ORDER_GCALLS = record
sReserved : USHORT;
idSegment : LONG;
end;
const
OCODE_GFPTH = $D7;
type
ORDER_GFPTH = record
fbFlags : UCHAR;
uchReserved : UCHAR;
idPath : LONG;
end;
const
GFPTH_ALTERNATE = $00;
GFPTH_WINDING = $40;
GFPTH_MODIFY = $20;
OCODE_GOPTH = $D4;
type
ORDER_GOPTH = record
fbFlags : UCHAR;
uchReserved : UCHAR;
idPath : LONG;
end;
const
OCODE_GMPTH = $D8;
type
ORDER_GMPTH = record
uchMode : UCHAR;
uchReserved : UCHAR;
idPath : LONG;
end;
const
GMPTH_STROKE = $06;
OCODE_GCPARC = $A3;
OCODE_GPARC = $E3;
type
ORDERS_GCPARC = record
ptCenter : POINTS;
ufx88Multiplier : FIXED88;
usStartAngle : LONG;
usSweepAngle : LONG;
end;
ORDERL_GCPARC = record
ptCenter : POINTL;
ufxMultiplier : FIXED;
usStartAngle : LONG;
usSweepAngle : LONG;
end;
const
OCODE_GSCPTH = $B4;
type
ORDER_GSCPTH = record
fbFlags : UCHAR;
uchReserved : UCHAR;
idPath : LONG;
end;
const
GSCPTH_ALTERNATE = $00;
GSCPTH_WINDING = $40;
GSCPTH_RESET = $00;
GSCPTH_INTERSECT = $20;
OCODE_GSAP = $22;
OCODE_GPSAP = $62;
type
ORDERS_GSAP = record
p : SHORT;
q : SHORT;
r : SHORT;
s : SHORT;
end;
ORDERL_GSAP = record
p : LONG;
q : LONG;
r : LONG;
s : LONG;
end;
const
OCODE_GSBICOL = $A7;
OCODE_GPSBICOL = $E7;
OCODE_GSICOL = $A6;
OCODE_GPSICOL = $E6;
type
ORDER_GSBICOL = record
fbFlags : UCHAR;
auchColor : array[0..3-1] of UCHAR;
end;
const
SICOL_SPECIFY = $00;
SICOL_SPECIAL = $40;
SICOL_DEFAULT = $80;
SICOL_BLACK = 1;
SICOL_WHITE = 2;
SICOL_ONES = 4;
SICOL_ZEROES = 5;
OCODE_GSCC = $33;
OCODE_GPSCC = $03;
type
ORDERS_GSCC = record
cxInt : SHORT;
cyInt : SHORT;
cxFract : USHORT;
cyFract : USHORT;
fbFlags : UCHAR;
uchReserved : UCHAR;
end;
ORDERL_GSCC = record
cxInt : LONG;
cyInt : LONG;
cxFract : USHORT;
cyFract : USHORT;
fbFlags : UCHAR;
uchReserved : UCHAR;
end;
const
GSCC_ZERODEF = $00;
GSCC_ZEROZERO = $80;
OCODE_GSMC = $37;
OCODE_GPSMC = $77;
type
ORDERS_GSMC = record
cx : SHORT;
cy : SHORT;
fbFlags : UCHAR;
uchReserved : UCHAR;
end;
ORDERL_GSMC = record
cx : LONG;
cy : LONG;
fbFlags : UCHAR;
uchReserved : UCHAR;
end;
const
GSMC_ZERODEF = $00;
GSMC_ZEROZERO = $80;
OCODE_GSPRP = $A0;
OCODE_GPSPRP = $E0;
type
ORDERS_GSPRP = record
fbFlags : UCHAR;
uchReserved : UCHAR;
ptPos : POINTS;
end;
ORDERL_GSPRP = record
fbFlags : UCHAR;
uchReserved : UCHAR;
ptPos : POINTL;
end;
const
GSPRP_DEFAULT = $80;
GSPRP_SPECIFY = $00;
OCODE_GSIA = $14;
OCODE_GPSIA = $54;
GSIA_VL = 3;
type
ORDER_GSIA = record
uchAttrType : UCHAR;
uchPrimType : UCHAR;
fbFlags : UCHAR;
auchValue : array[0..GSIA_VL-1] of UCHAR;
end;
const
GSIA_COLOR = $01;
GSIA_BCOLOR = $02;
GSIA_MIX = $03;
GSIA_BMIX = $04;
GSIA_LINE = $01;
GSIA_CHAR = $02;
GSIA_MARKER = $03;
GSIA_PATTERN = $04;
GSIA_IMAGE = $05;
GSIA_SPECIFY = $00;
GSIA_SPECIAL = $40;
GSIA_DEFAULT = $80;
GSIA_BLACK = 1;
GSIA_WHITE = 2;
GSIA_ONES = 4;
GSIA_ZEROES = 5;
OCODE_GSTM = $24;
OCODE_GPSTM = $64;
OCODE_GSTV = $31;
GSTM_ML = 16;
type
ORDERS_GSTM = record
uchReserved : UCHAR;
fbFlags : UCHAR;
fsMask : USHORT;
asMatrix : array[0..GSTM_ML-1] of SHORT;
end;
ORDERL_GSTM = record
uchReserved : UCHAR;
fbFlags : UCHAR;
fsMask : USHORT;
alMatrix : array[0..GSTM_ML-1] of LONG;
end;
const
GSTM_M11 = $8000;
GSTM_M12 = $4000;
GSTM_M13 = $2000;
GSTM_M14 = $1000;
GSTM_M21 = $0800;
GSTM_M22 = $0400;
GSTM_M23 = $0200;
GSTM_M24 = $0100;
GSTM_M31 = $0080;
GSTM_M32 = $0040;
GSTM_M33 = $0020;
GSTM_M34 = $0010;
GSTM_M41 = $0008;
GSTM_M42 = $0004;
GSTM_M43 = $0002;
GSTM_M44 = $0001;
GSTM_UNITY = $00;
GSTM_AFTER = $01;
GSTM_BEFORE = $02;
GSTM_OVERWRITE = $03;
GSTV_OVERWRITE = $00;
GSTV_AFTER = $04;
OCODE_GSSB = $32;
OCODE_GSVW = $27;
OCODE_GPSVW = $67;
GSSB_ML = 4;
type
ORDERS_GSSB = record
fbFlags : UCHAR;
fbMask : UCHAR;
alMatrix : array[0..GSSB_ML-1] of SHORT;
end;
ORDERL_GSSB = record
fbFLags : UCHAR;
fbMask : UCHAR;
alMatrix : array[0..GSSB_ML-1] of LONG;
end;
const
GSSB_XLEFT = $20;
GSSB_XRIGHT = $10;
GSSB_YBOTTOM = $08;
GSSB_YTOP = $04;
GSVW_INTERSECT = $00;
GSVW_REPLACE = $80;
OCODE_GSGCH = $04;
GSGCH_ML = 254;
type
ORDER_GSGCH = record
uchIdent : UCHAR;
auchData : array[0..GSGCH_ML-1] of UCHAR;
end;
const
OCODE_GSSLW = $15;
OCODE_GPSSLW = $55;
type
ORDERS_GSSLW = record
fbFlags : UCHAR;
uchReserved : UCHAR;
LineWidth : SHORT;
end;
ORDERL_GSSLW = record
fbFlags : UCHAR;
uchReserved : UCHAR;
LineWidth : LONG;
end;
const
GSSLW_DEFAULT = $80;
GSSLW_SPECIFY = $00;
OCODE_GCSFLT = $A4;
OCODE_GSFLT = $E4;
GCSFLT_SMF = 21;
GSFLT_SMF = 20;
GCSFLT_SMF2 = GCSFLT_SMF*2;
type
ORDERS_GCSFLT = record
apt : array[0..GCSFLT_SMF2-1] of POINTS;
afxSharpness : array[0..GCSFLT_SMF-1] of FIXED;
end;
const
GCSFLT_LMF = 12;
GSFLT_LMF = 12;
GCSFLT_LMF2 = GCSFLT_LMF*2;
type
ORDERL_GCSFLT = record
apt : array[0..GCSFLT_LMF2-1] of POINTL;
afxSharpness : array[0..GCSFLT_LMF-1] of FIXED;
end;
const
OCODE_GBBLT = $D6;
type
ORDERS_GBBLT = record
fsFlags : USHORT;
usMix : USHORT;
hbmSrc : HBITMAP;
lOptions : LONG;
rcsTargetRect : RECT1S;
rclSourceRect : RECTL;
end;
ORDERL_GBBLT = record
fsFlags : USHORT;
usMix : USHORT;
hbmSrc : HBITMAP;
lOptions : LONG;
rclTargetRect : RECTL;
rclSourceRect : RECTL;
end;
const
OCODE_GSCE = $17;
OCODE_GPSCE = $57;
OCODE_GSCBE = $05;
OCODE_GPSCBE = $45;
type
ORDER_GSCBE = record
fbFlags : UCHAR;
uchReserved : UCHAR;
ufxextra : FIXED;
end;
const
OCODE_GESCP = $D5;
GESCP_ML = 253;
type
ORDER_GESCP = record
uchType : UCHAR;
uchIdent : UCHAR;
auchData : array[0..GESCP_ML-1] of UCHAR;
end;
const
GESCP_REG = $80;
GEBB_REGID = $02;
ETYPE_GEBB = $800200D5;
GEBB_LMP = 29;
type
ORDERL_GEBB = record
fbFlags : UCHAR;
usMix : USHORT;
cPoints : UCHAR;
hbmSrc : HBITMAP;
lReserved : LONG;
lOptions : LONG;
aptPoints : array[0..GEBB_LMP-1] of POINTL;
end;
const
GEPEL_REGID = $01;
ETYPE_GEPEL = $800100D5;
GEDB_REGID = $04;
ETYPE_GEDB = $800400D5;
type
ORDERL_GEDB = record
fsFlags : USHORT;
usMix : USHORT;
pBits : PVOID;
pbmi : PBITMAPINFO2;
lOptions : LONG;
rclTargetRect : RECTL;
rclSourceRect : RECTL;
end;
const
GEFF_REGID = $03;
ETYPE_GEFF = $800300D5;
type
ORDERL_GEFF = record
fsFlags : UCHAR;
auchColor : array[0..3-1] of UCHAR;
end;
const
ETYPE_LINEBUNDLE = $0000FD01;
ETYPE_CHARBUNDLE = $0000FD02;
ETYPE_MARKERBUNDLE = $0000FD03;
ETYPE_AREABUNDLE = $0000FD04;
ETYPE_IMAGEBUNDLE = $0000FD05;
VORDER_ML = 65531;
type
VORDER = record
idCode : UCHAR;
uchQualifier : UCHAR;
uchLength : SWPUSHORT;
uchData : array[0..VORDER_ML-1] of UCHAR;
end;
const
OCODEQ_GCCHSTE = $B0;
OCODEQ_GCHSTE = $F0;
ETYPE_GCCHSTE = $0000FEB0;
ETYPE_GCHSTE = $0000FEF0;
type
ORDERS_GCCHSTE = record
fbFlags : UCHAR;
uchReserved : UCHAR;
ptRect : array[0..2-1] of POINTS;
cchString : SWPUSHORT;
achString : array[0..1-1] of CHAR;
adx : array[0..1-1] of SHORT;
end;
ORDERL_GCCHSTE = record
fbFlags : UCHAR;
uchReserved : UCHAR;
ptRect : array[0..2-1] of POINTL;
cchString : SWPUSHORT;
achString : array[0..1-1] of CHAR;
adx : array[0..1-1] of LONG;
end;
const
GCCHSTE_DRAWRECT = $80;
GCCHSTE_NORECT = $00;
GCCHSTE_CLIP = $40;
GCCHSTE_NOCLIP = $00;
GCCHSTE_DEEMPHASIZE = $20;
GCCHSTE_NODEEMPHASIZE = $00;
GCCHSTE_LEAVEPOS = $10;
GCCHSTE_MOVEPOS = $00;
GCCHSTE_UNDERSCORE = $08;
GCCHSTE_NOUNDERSCORE = $00;
GCCHSTE_STRIKEOUT = $04;
GCCHSTE_NOSTRIKEOUT = $00;
OCODEQ_GEESCP = $D5;
GEESCP_ML = 65533;
type
ORDER_GEESCP = record
uchType : UCHAR;
uchIdent : UCHAR;
auchData : array[0..GEESCP_ML-1] of UCHAR;
end;
{$PACKRECORDS NORMAL}
implementation
end.