paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 23:07:14 +01:00
Code Issues Packages Projects Releases Wiki Activity

* TSize is imported from the Windows unit on win32

Browse Source
This commit is contained in:
florian 2005-02-26 15:11:43 +00:00
parent 46c1b41a7b
commit 9a25f58748
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/objpas/types.pp
View File

@ -77,9 +77,12 @@ type
0: (Left,Top,Right,Bottom : Longint);
1: (TopLeft,BottomRight : TPoint);
end;
{$endif}
{$endif Win32}
PRect = ^TRect;
{$ifdef Win32}
TSize = Windows.TSize;
{$else}
TSize =
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
packed
@ -88,10 +91,12 @@ type
cx : Longint;
cy : Longint;
end;
{$endif Win32}
PSize = ^TSize;
tagSIZE = TSize;
SIZE = TSize;
TSmallPoint =
{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
packed
@ -399,7 +404,10 @@ end;
end.
{
$Log$
Revision 1.9 2005-02-14 17:13:31 peter
Revision 1.10 2005-02-26 15:11:43 florian
* TSize is imported from the Windows unit on win32
Revision 1.9 2005/02/14 17:13:31 peter
* truncate log
}