This forum is temporaily read-only. All existing discussions remain available for reference. For new questions, bug reports or support requests, please contact us at mail@lmdsupport.com.

How to select a specific Tabbed DockPanel.

John BarratJohn Barrat
edited October 2019 in LMD-Tools
When a tabbed panel is closed the focus always returns to the first (most left) tabbed panel.
Is it possible to return focus to the left of the panel which has been closed and freed.

Comments

  • Eugene Balabuev (LMD)Eugene Balabuev (LMD)
    edited October 2019
    Whole layout structure is encoded inside ZoneTree, which is exposed via Site.RootZone property. Each DockPanel also provides acees to its own zone via Panel.Zone property. 
    To achieve what you want, Panel's parent zone, which can be acessed via Panel.Zone.Parent can be used. This zone sohuld be of zkTabs kind, since the panel is a tabbed document. So, its SelectedPage property can be set to any of its child zones to activate another panel.
  • John BarratJohn Barrat
    I have used this code in the DoClose event  of my editor which was intended to switch to the next tab down when current tab is closed.
    This gets called when I close the tab on which the editor is placed.

      dp := Parent as TLMDDockPanel;
      dz := dp.zone.parent;
      i := dz.Panel.Zone.SelectedPage.Index;
      if i > -1 then
        dz.Panel.Zone.SelectedPage.Index := i -1;
      Close;

    dp is returned correctly but dp.zone and dp.zone.parent returns empty
      Action := caFree;

    Am I using this code in the wrong place or have I missed the point?

  • Eugene Balabuev (LMD)Eugene Balabuev (LMD)
    What you mean saying "empty"? nil? If yes, then its strange. 

    dp.Zone cannot be nil, because your panel is docked and will stay docked (even when invisible) until it destroyed. dp.Zone.Parent can be nil, in some cases (if panel is not a tabbed document, for example).

    Changing Index property (SelectedPage.Index := i -1;) is not correct. You move some zone to another location, but this does not change SelectedPage itself. 

    You need to do something like this:

      dp := Parent as TLMDDockPanel;
      dz := dp.zone;   // Panel's zone.
      i  := dz.Index;  
      
      tz := dz.Parent; // Tabs zone.
      if (tz <> nil) and (i > 0) then // If we are inside tabs and 
                                      // we are not the first child.
      begin
        prevz := tz[i - 1]; // Previous zone.
        tz.SelectedPage := prevz; // Change selected tab to prev zone.
      end;

  • John BarratJohn Barrat
    edited October 2019
    That has worked beautifully, many thanks for your help, sorry I am a bit of a slow learner
Sign In or Register to comment.