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

MG: added include comments

Browse Source 
git-svn-id: trunk@983 -
This commit is contained in:
lazarus 2002-02-09 01:47:34 +00:00
parent 7d70eae4d6
commit 8c0fb480dc
1 changed files with 2 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/include/wincontrol.inc
View File

@ -26,9 +26,7 @@ end;
{------------------------------------------------------------------------------}
Procedure TWinControl.AdjustClientRect(var Rect: TRect);
Begin
// ToDo: ask the interface to adjust the client rectangle
//Not used. It's a virtual procedure that should be overriden.
end;
{------------------------------------------------------------------------------}
@ -411,14 +409,6 @@ 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 }
{------------------------------------------------------------------------------}
@ -2028,7 +2018,7 @@ end;
{ =============================================================================
$Log$
Revision 1.57 2002/04/18 08:09:03 lazarus
Revision 1.58 2002/04/18 08:13:36 lazarus
MG: added include comments
Revision 1.56 2002/04/04 12:25:01 lazarus