paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-30 14:42:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

AnchorDocking: Use async call for SimplifyPendingLayouts always. Issue #32591.

Browse Source 
git-svn-id: trunk@56156 -
This commit is contained in:
juha 2017-10-22 22:25:38 +00:00
parent 7427737860
commit c1a20347a3
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/anchordocking/anchordocking.pas
View File

@ -3436,7 +3436,7 @@ begin
RaiseGDBException('');
dec(fUpdateCount);
if fUpdateCount=0 then
SimplifyPendingLayouts;
QueueSimplify:=True;
end;
procedure TAnchorDockMaster.NeedSimplify(AControl: TControl);
@ -3736,7 +3736,7 @@ begin
try
BeginUpdateLayout;
try
DockMaster.SimplifyPendingLayouts;
DockMaster.QueueSimplify:=True;
NewControl.DisableAutoSizing{$IFDEF DebugDisableAutoSizing}('TAnchorDockHostSite.ExecuteDock NewControl'){$ENDIF};
if (NewControl.Parent=Self) and (SiteType=adhstLayout) then begin
@ -6706,7 +6706,7 @@ begin
if Site=nil then exit;
DockMaster.RestoreLayouts.Add(DockMaster.CreateRestoreLayout(Site),true);
Site.CloseSite;
DockMaster.SimplifyPendingLayouts;
DockMaster.QueueSimplify:=True;
end;
procedure TAnchorDockPageControl.MoveLeftButtonClick(Sender: TObject);