paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-30 00:49:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: added include comments

Browse Source 
git-svn-id: trunk@978 -
This commit is contained in:
lazarus 2002-02-09 01:47:33 +00:00
parent 1fa96575b2
commit ce07e0a39b
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/include/wincontrol.inc
View File

@ -26,7 +26,9 @@ end;
{------------------------------------------------------------------------------}
Procedure TWinControl.AdjustClientRect(var Rect: TRect);
Begin
//Not used. It's a virtual procedure that should be overriden.
// ToDo: ask the interface to adjust the client rectangle
end;
{------------------------------------------------------------------------------}
@ -409,6 +411,14 @@ Begin
Assert(False, Format('Trace:[TWinControl.GetClientOrigin] %s --> (%d, %d)', [Classname, Result.X, Result.Y]));
end;
function TWinControl.GetClientRect: TRect;
begin
// ToDo: ask the interface for the clientrect
inherited GetClientRect;
end;
{------------------------------------------------------------------------------}
{ TWinControl ReCreateWnd }
{------------------------------------------------------------------------------}
@ -2018,6 +2028,9 @@ end;
{ =============================================================================
$Log$
Revision 1.57 2002/04/18 08:09:03 lazarus
MG: added include comments
Revision 1.56 2002/04/04 12:25:01 lazarus
MG: changed except statements to more verbosity