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

git-svn-id: trunk@32362 -

rtl/wince/wininc/struct.inc

@@ -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}