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

LCL: docking: debugging

Browse Source 
git-svn-id: trunk@26065 -
This commit is contained in:
mattias 2010-06-12 19:05:26 +00:00
parent db4cbc90f9
commit c702020f12
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/dragmanager.inc
View File

@ -607,7 +607,7 @@ end;
destructor TDragManagerDefault.Destroy;
begin
FDockSites.Free;
FreeAndNil(FDockSites);
inherited Destroy;
end;
@ -693,6 +693,9 @@ begin
begin
if FDockSites = nil then
FDockSites := TFPList.Create;
if (FDockSites.IndexOf(Site)>=0)=DoRegister then exit;
//debugln(['TDragManagerDefault.RegisterDockSite Changed ',DbgSName(Site),' DoRegister=',DoRegister]);
if DoRegister then begin
FDockSites.Add(Site);
Site.FreeNotification(Self);
@ -736,6 +739,7 @@ begin
inherited Notification(AComponent, Operation);
if Operation=opRemove then begin
if FDockSites<>nil then begin
//if FDockSites.IndexOf(AComponent)>=0 then debugln(['TDragManagerDefault.Notification DockSite: ',DbgSName(AComponent)]);
FDockSites.Remove(AComponent);
if FDockSites.Count=0 then
FreeAndNil(FDockSites);