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

LCL: TDragDockObject.HideDockImage check if something to hide

Browse Source 
git-svn-id: trunk@26271 -
This commit is contained in:
mattias 2010-06-23 15:15:40 +00:00
parent 7f8a4f287d
commit 241c05aaae
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/anchordocking/minide/unit1.pas
View File

@ -229,7 +229,7 @@ begin
try
// restore the layout
// this will close unneeded forms and call OnCreateControl for all needed
DockMaster.LoadLayoutFromConfig(XMLConfig);
DockMaster.LoadLayoutFromConfig(XMLConfig,true);
finally
XMLConfig.Free;
end;

5
lcl/include/dragobject.inc
View File

@ -147,14 +147,15 @@ end;
procedure TDragDockObject.HideDockImage;
begin
WidgetSet.DrawDefaultDockImage(EraseDockRect, DockRect, disHide);
if FEraseDockRect.Left<MaxInt then
WidgetSet.DrawDefaultDockImage(EraseDockRect, DockRect, disHide);
FEraseDockRect := Rect(MaxInt, 0, MaxInt, 0);
end;
procedure TDragDockObject.MoveDockImage;
begin
//Draw the form outlines when the position has changed
if not CompareMem(@DockRect, @EraseDockRect, SizeOf(TRect)) then
if not CompareRect(@DockRect, @EraseDockRect) then
begin
WidgetSet.DrawDefaultDockImage(EraseDockRect, DockRect, disMove);
EraseDockRect := DockRect;