paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 14:00:18 +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; procedure TWinControl.InvalidateClientRectCache;
begin begin
{ $IFDEF VerboseClientRectBugFix} {$IFDEF VerboseClientRectBugFix}
writeln('[TWinControl.InvalidateClientRectCache] ',Name,':',ClassName); writeln('[TWinControl.InvalidateClientRectCache] ',Name,':',ClassName);
{ $ENDIF} {$ENDIF}
Include(FFlags,wcfClientRectNeedsUpdate); Include(FFlags,wcfClientRectNeedsUpdate);
end; end;
@ -2880,8 +2880,8 @@ var
NewBounds: TRect; NewBounds: TRect;
begin begin
NewBounds:=Bounds(Left, Top, Width, Height); NewBounds:=Bounds(Left, Top, Width, Height);
writeln('TWinControl.DoSendBoundsToInterface A ',Name,':',ClassName,' Old=',FBoundsRealized.Left,',',FBoundsRealized.Top,',',FBoundsRealized.Right,',',FBoundsRealized.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); //' New=',NewBounds.Left,',',NewBounds.Top,',',NewBounds.Right,',',NewBounds.Bottom);
FBoundsRealized:=NewBounds; FBoundsRealized:=NewBounds;
CNSendMessage(LM_SetSize, Self, @NewBounds); CNSendMessage(LM_SetSize, Self, @NewBounds);
end; end;
@ -2948,6 +2948,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.159 2003/08/12 16:12:42 mattias
reduced output
Revision 1.158 2003/08/12 16:04:22 mattias Revision 1.158 2003/08/12 16:04:22 mattias
added groupboxnested example added groupboxnested example