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

reduced output

Browse Source 
git-svn-id: trunk@4470 -
This commit is contained in:
mattias 2003-08-12 16:12:42 +00:00
parent 3acce5cea1
commit 2476a3797b
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/include/wincontrol.inc
View File

@ -639,9 +639,9 @@ end;
-------------------------------------------------------------------------------}
procedure TWinControl.InvalidateClientRectCache;
begin
{ $IFDEF VerboseClientRectBugFix}
{$IFDEF VerboseClientRectBugFix}
writeln('[TWinControl.InvalidateClientRectCache] ',Name,':',ClassName);
{ $ENDIF}
{$ENDIF}
Include(FFlags,wcfClientRectNeedsUpdate);
end;
@ -2880,8 +2880,8 @@ var
NewBounds: TRect;
begin
NewBounds:=Bounds(Left, Top, Width, Height);
writeln('TWinControl.DoSendBoundsToInterface A ',Name,':',ClassName,' Old=',FBoundsRealized.Left,',',FBoundsRealized.Top,',',FBoundsRealized.Right,',',FBoundsRealized.Bottom,
' New=',NewBounds.Left,',',NewBounds.Top,',',NewBounds.Right,',',NewBounds.Bottom);
//writeln('TWinControl.DoSendBoundsToInterface A ',Name,':',ClassName,' Old=',FBoundsRealized.Left,',',FBoundsRealized.Top,',',FBoundsRealized.Right,',',FBoundsRealized.Bottom,
//' New=',NewBounds.Left,',',NewBounds.Top,',',NewBounds.Right,',',NewBounds.Bottom);
FBoundsRealized:=NewBounds;
CNSendMessage(LM_SetSize, Self, @NewBounds);
end;
@ -2948,6 +2948,9 @@ end;
{ =============================================================================
$Log$
Revision 1.159 2003/08/12 16:12:42 mattias
reduced output
Revision 1.158 2003/08/12 16:04:22 mattias
added groupboxnested example