697
716
procedure TDragManagerDefault.RegisterDockSite(Site: TWinControl; DoRegister: Boolean);
702
721
FDockSites := TFPList.Create;
703
722
if (FDockSites.IndexOf(Site)>=0)=DoRegister then exit;
705
724
//debugln(['TDragManagerDefault.RegisterDockSite Changed ',DbgSName(Site),' DoRegister=',DoRegister]);
708
728
Site.FreeNotification(Self);
711
732
Site.RemoveFreeNotification(Self);