paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 12:30:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* wince has its own struct. Fix it in same way as win/wininc/struct.inc

Browse Source 
git-svn-id: trunk@32362 -
This commit is contained in:
marco 2015-11-19 14:12:10 +00:00
parent f383a39cda
commit c379362529
1 changed files with 10 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
rtl/wince/wininc/struct.inc
View File

@ -53,7 +53,7 @@
{$ifdef read_interface} {$ifdef read_interface}
type type
{$i typshrdh.inc}
{ WARNING { WARNING
the variable argument list the variable argument list
is not implemented for FPC is not implemented for FPC
@ -265,26 +265,14 @@
TANIMATIONINFO = ANIMATIONINFO; TANIMATIONINFO = ANIMATIONINFO;
PANIMATIONINFO = ^ANIMATIONINFO; PANIMATIONINFO = ^ANIMATIONINFO;
POINT = record POINT = TPOINT;
x : LONG; LPPOINT = PPOINT;
y : LONG; tagPOINT = TPOINT;
end;
LPPOINT = ^POINT;
tagPOINT = POINT;
TPOINT = POINT;
PPOINT = ^POINT;
RECT = record RECT = TRect;
case Integer of LPRECT = PRECT;
0: (Left,Top,Right,Bottom : Longint);
1: (TopLeft,BottomRight : TPoint);
end;
LPRECT = ^RECT;
LPCRECT = ^RECT;
_RECT = RECT; _RECT = RECT;
TRECT = RECT; LPRCECT = PRECT;
PRECT = ^RECT;
tagRECT = RECT; //+windef
RECTL = record RECTL = record
left : LONG; left : LONG;
@ -539,12 +527,6 @@
TPOINTL = POINTL; TPOINTL = POINTL;
PPOINTL = ^POINTL; PPOINTL = ^POINTL;
TSmallPoint = record
X,
Y : SmallInt;
end;
POINTS = record POINTS = record
x : SHORT; x : SHORT;
y : SHORT; y : SHORT;
@ -3245,14 +3227,9 @@
TEMRFORMAT = EMRFORMAT; TEMRFORMAT = EMRFORMAT;
PEMRFORMAT = ^EMRFORMAT; PEMRFORMAT = ^EMRFORMAT;
SIZE = record SIZE = TSize;
cx : LONG; LPSIZE = PSIZE;
cy : LONG;
end;
LPSIZE = ^SIZE;
tagSIZE = SIZE; tagSIZE = SIZE;
TSIZE = SIZE;
PSIZE = ^SIZE;
SIZEL = SIZE; //windef SIZEL = SIZE; //windef
TSIZEL = SIZE; //windef TSIZEL = SIZE; //windef
@ -8234,5 +8211,6 @@ type
a.flag0:=a.flag0 or ((__fAckReq shl bp_DDEUP_fAckReq) and bm_DDEUP_fAckReq); a.flag0:=a.flag0 or ((__fAckReq shl bp_DDEUP_fAckReq) and bm_DDEUP_fAckReq);
end; end;
{$i typshrd.inc}
{$endif read_implementation} {$endif read_implementation}