paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 00:49:18 +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(''); RaiseGDBException('');
dec(fUpdateCount); dec(fUpdateCount);
if fUpdateCount=0 then if fUpdateCount=0 then
SimplifyPendingLayouts; QueueSimplify:=True;
end; end;
procedure TAnchorDockMaster.NeedSimplify(AControl: TControl); procedure TAnchorDockMaster.NeedSimplify(AControl: TControl);
@ -3736,7 +3736,7 @@ begin
try try
BeginUpdateLayout; BeginUpdateLayout;
try try
DockMaster.SimplifyPendingLayouts; DockMaster.QueueSimplify:=True;
NewControl.DisableAutoSizing{$IFDEF DebugDisableAutoSizing}('TAnchorDockHostSite.ExecuteDock NewControl'){$ENDIF}; NewControl.DisableAutoSizing{$IFDEF DebugDisableAutoSizing}('TAnchorDockHostSite.ExecuteDock NewControl'){$ENDIF};
if (NewControl.Parent=Self) and (SiteType=adhstLayout) then begin if (NewControl.Parent=Self) and (SiteType=adhstLayout) then begin
@ -6706,7 +6706,7 @@ begin
if Site=nil then exit; if Site=nil then exit;
DockMaster.RestoreLayouts.Add(DockMaster.CreateRestoreLayout(Site),true); DockMaster.RestoreLayouts.Add(DockMaster.CreateRestoreLayout(Site),true);
Site.CloseSite; Site.CloseSite;
DockMaster.SimplifyPendingLayouts; DockMaster.QueueSimplify:=True;
end; end;
procedure TAnchorDockPageControl.MoveLeftButtonClick(Sender: TObject); procedure TAnchorDockPageControl.MoveLeftButtonClick(Sender: TObject);