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

+ Added TRect definition

Browse Source
This commit is contained in:
michael 2001-10-29 19:38:13 +00:00
parent 5a85123517
commit a5b3a4c9f4
1 changed files with 11 additions and 8 deletions

19
fcl/inc/classesh.inc
View File

@ -34,16 +34,16 @@ type
TPoint = record
x,y : integer;
end;
TRect = record
Case Integer of
0 : ( Left,Top,Right,Bottom : integer);
1 : ( TopLeft,BottomRight : TPoint);
end;
TSmallPoint = record
x,y : smallint;
end;
TRect = record
case Boolean of
False: (Left,Top,Right,Bottom : Integer);
True: (TopLeft,BottomRight : TPoint);
end;
const
@ -100,10 +100,10 @@ type
// Extra additions
ssMeta, ssSuper, ssHyper, ssAltGr, ssCaps, ssNum, ssScroll);
THelpContext = -MaxLongint..MaxLongint;
// THelpContext = -MaxLongint..MaxLongint;
THelpType = (htKeyword, htContext);
TShortCut = Low(Word)..High(Word);
// TShortCut = Low(Word)..High(Word);
{ Standard events }
@ -1294,7 +1294,10 @@ function LineStart(Buffer, BufPos: PChar): PChar;
{
$Log$
Revision 1.13 2001-10-28 17:16:44 peter
Revision 1.14 2001-10-29 19:38:13 michael
+ Added TRect definition
Revision 1.13 2001/10/28 17:16:44 peter
* int64 file functions added
Revision 1.12 2001/10/23 21:51:02 peter