Bläddra i källkod

* add tag types for size and point, but deprecated, since redundant.

git-svn-id: trunk@32361 -
marco 9 år sedan
förälder
incheckning
f383a39cda
1 ändrade filer med 4 tillägg och 0 borttagningar
  1. 4 0
      rtl/objpas/types.pp

+ 4 - 0
rtl/objpas/types.pp

@@ -73,15 +73,19 @@ type
   PSmallPoint = Windows.PSmallPoint;
   PSmallPoint = Windows.PSmallPoint;
 
 
   TSize  = Windows.TSize;
   TSize  = Windows.TSize;
+  TagSize  = Windows.tagSize deprecated;
   PSize  = Windows.PSize;
   PSize  = Windows.PSize;
 
 
   TPoint = Windows.TPoint;
   TPoint = Windows.TPoint;
+  TagPoint = Windows.TagPoint deprecated;
   PPoint = Windows.PPoint;
   PPoint = Windows.PPoint;
 
 
   TRect  = Windows.TRect;
   TRect  = Windows.TRect;
   PRect  = Windows.PRect;
   PRect  = Windows.PRect;
 {$else}
 {$else}
   {$i typshrdh.inc}
   {$i typshrdh.inc}
+   TagSize = tSize deprecated;
+   TagPoint = TPoint deprecated;
 {$endif}
 {$endif}
 
 
   { TPointF }
   { TPointF }