paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 15:10:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

* patch from Ondrej to fix splitrecttype aliasing on windows. Mantis #29557

Browse Source 
added alias of tarray4integertype too.

git-svn-id: trunk@33152 -
This commit is contained in:
marco 2016-03-05 13:50:02 +00:00
parent 4ed0c07ea3
commit b38b3a7c1e
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/objpas/types.pp
View File

@ -69,6 +69,7 @@ type
{$endif} {$endif}
{$ifdef Windows} {$ifdef Windows}
TArray4IntegerType = Windows.TArray4IntegerType;
TSmallPoint = Windows.TSmallPoint; TSmallPoint = Windows.TSmallPoint;
PSmallPoint = Windows.PSmallPoint; PSmallPoint = Windows.PSmallPoint;
@ -82,6 +83,13 @@ type
TRect = Windows.TRect; TRect = Windows.TRect;
PRect = Windows.PRect; PRect = Windows.PRect;
TSplitRectType = Windows.TSplitRectType;
const
srLeft = TSplitRectType.srLeft;
srRight = TSplitRectType.srRight;
srTop = TSplitRectType.srTop;
srBottom = TSplitRectType.srBottom;
type
{$else} {$else}
{$i typshrdh.inc} {$i typshrdh.inc}
TagSize = tSize deprecated; TagSize = tSize deprecated;