Parcourir la source

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

git-svn-id: trunk@32361 -
marco il y a 9 ans
Parent
commit
f383a39cda
1 fichiers modifiés avec 4 ajouts et 0 suppressions
  1. 4 0
      rtl/objpas/types.pp

+ 4 - 0
rtl/objpas/types.pp

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