paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 07:31:46 +01:00
Code Issues Packages Projects Releases Wiki Activity

dockmanager example: try to remove flicker on CreateDockable

Browse Source 
git-svn-id: trunk@24828 -
This commit is contained in:
dodi 2010-04-22 20:37:24 +00:00
parent fe33266f15
commit b06278020c
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
examples/dockmanager/package/umakesite.pas
View File

@ -729,7 +729,7 @@ begin
r.Bottom := r.Top + Client.UndockHeight;
Site.BoundsRect := r;
//DebugLn('Before Wrap: ', DbgS(Site.BoundsRect));
Site.Visible := True;
//Site.Visible := True;
Client.Align := alNone;
//Client.Visible := True; //otherwise docking may be rejected - see above
Client.ManualDock(Site);
@ -741,6 +741,7 @@ begin
//Client.Left := 0;
Site.DockManager.ResetBounds(True);
end;
Site.Visible := True;
except
DebugLn('error WrapDockable: ' + Client.Name);
if Client.HostDockSite <> Site then