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

LCL: reduce flicker when docking

Browse Source 
git-svn-id: trunk@24906 -
This commit is contained in:
mattias 2010-04-25 11:22:27 +00:00
parent cb6d9270b3
commit 30eede4ac8
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lcl/include/control.inc
View File

@ -4008,6 +4008,9 @@ begin
RaiseAlreadyDocking;
// dock
{$IFNDEF OldAutoSize}
DisableAutoSizing;
{$ENDIF}
Include(FControlState, csDocking);
try
OldHostDockSite:=HostDockSite;
@ -4020,7 +4023,7 @@ begin
NewDockSite.FDockClients.Add(Self);
end;
//debugln('TControl.Dock A ',DbgSName(Self));
//debugln(['TControl.Dock A ',DbgSName(Self),' NewDockSite=',DbgSName(NewDockSite),' ',NewDockSite.Visible]);
DoDock(NewDockSite,ARect);
@ -4037,6 +4040,11 @@ begin
NewDockSite.FDockClients.Remove(Self);
Exclude(FControlState, csDocking);
end;
{$IFNDEF OldAutoSize}
EnableAutoSizing;
{$ENDIF}
//DebugLn(['TControl.Dock END ',DbgSName(Self),' ',DbgSName(HostDockSite)]);
end;
{------------------------------------------------------------------------------
@ -4179,6 +4187,9 @@ var
begin
Result := False;
{$IFNDEF OldAutoSize}
DisableAutoSizing;
{$ENDIF}
OldDockSite := Control.HostDockSite;
if (OldDockSite<>nil) and (not HostDockSiteManagerAvailable(OldDockSite)) then
exit;
@ -4192,6 +4203,9 @@ begin
OldDockSite.DockManager.SetReplacingControl(nil);
end;
Result:=Control.ManualDock(NewDockSite,DropControl,ControlSide);
{$IFNDEF OldAutoSize}
EnableAutoSizing;
{$ENDIF}
end;
procedure TControl.AddHandlerOnResize(const OnResizeEvent: TNotifyEvent;