paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 07:19:22 +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 try
// restore the layout // restore the layout
// this will close unneeded forms and call OnCreateControl for all needed // this will close unneeded forms and call OnCreateControl for all needed
DockMaster.LoadLayoutFromConfig(XMLConfig); DockMaster.LoadLayoutFromConfig(XMLConfig,true);
finally finally
XMLConfig.Free; XMLConfig.Free;
end; end;

5
lcl/include/dragobject.inc
View File

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