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

anchordocking: debug

Browse Source 
git-svn-id: trunk@49916 -
This commit is contained in:
mattias 2015-10-02 22:09:17 +00:00
parent a3bb8de5bc
commit 23e763f9c4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/anchordocking/anchordocking.pas
View File

@ -2004,8 +2004,8 @@ var
begin begin
i:=fDisabledAutosizing.Count-1; i:=fDisabledAutosizing.Count-1;
while (i>=0) do begin while (i>=0) do begin
//debugln(['TAnchorDockMaster.EnableAllAutoSizing ',DbgSName(TControl(fDisabledAutosizing[i]))]);
AControl:=TControl(fDisabledAutosizing[i]); AControl:=TControl(fDisabledAutosizing[i]);
//debugln(['TAnchorDockMaster.EnableAllAutoSizing ',DbgSName(AControl)]);
fDisabledAutosizing.Delete(i); fDisabledAutosizing.Delete(i);
AControl.EnableAutoSizing; AControl.EnableAutoSizing;
i:=Min(i,fDisabledAutosizing.Count)-1; i:=Min(i,fDisabledAutosizing.Count)-1;