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

LCL: comments

Browse Source 
git-svn-id: trunk@46496 -
This commit is contained in:
mattias 2014-10-09 16:22:34 +00:00
parent 5ab398219a
commit 9e66742aeb
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/controls.pp
View File

@ -1238,7 +1238,7 @@ type
property AutoSizing: Boolean read FAutoSizingSelf;// see Begin/EndAutoSizing
property AutoSizingAll: Boolean read GetAutoSizingAll;// set in DoAllAutoSize
property AutoSizingLockCount: Integer read FAutoSizingLockCount;
property AutoSizingLockCount: Integer read FAutoSizingLockCount; // in/decreased by Disable/EnableAutoSizing
protected
// protected messages
procedure WMCancelMode(var Message: TLMessage); message LM_CANCELMODE;

4
lcl/include/control.inc
View File

@ -2863,7 +2863,9 @@ procedure TControl.DoAllAutoSize;
begin
AWinControl := TWinControl(AControl);
for i := 0 to AWinControl.ControlCount - 1 do
if AWinControl.Controls[i].IsControlVisible and not CallAllOnResize(AWinControl.Controls[i]) then Exit;
if AWinControl.Controls[i].IsControlVisible
and not CallAllOnResize(AWinControl.Controls[i]) then
exit;
end;
{$IFDEF VerboseOnResize}
debugln(['TControl.DoAllAutoSize ',DbgSName(AControl),' calling Resize ...']);