paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 10:29:24 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
fcl/inc/classesh.inc
View File

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