Docking - exclude Zone

David Wilbourn

In the Docking WiKi there is an example of how to exclude a docking zone:

procedure TForm1.SiteUpdateHotSpots(Sender: TObject;

  AZone: TLMDDockZone; var EnabledAreas: TLMDHotSpotAreas);

begin

  if AZone = CentralPanel.Zone then

    Exclude(EnabledAreas, hsaZoneTabs);

end;

However when I tried this hsaZoneTabs fails as an Undeclared Identifer. What should I use for this parameter? Am I missing something in Uses? I have LMDDckSite, LMDDckStyles, LMDDckStyleElems there.

Eugene Balabuev (LMD)

hsaZoneTabs was renamed to hsaTabs and it's declared in LMDDckStyleElems.pas unit.

David Wilbourn

... I did some more testing on this and I have found that 

AZone = CentralPanel.Zone

does not work but 

AZone.Index = CentralPanel.Zone.Index

does work. 

I also need 

if AZone = nil then

    exit;

at the top of the UpdateHotSpots to cover any movement outside of the DockSite.