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