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.

Chow to control where a New tab is created win a space zone

John BarratJohn Barrat
in LMD-Tools
My app uses Tabs in a space zone to simulate a tabbed page control.  3 of these tabs will be fixed but I need to programatically add additional tabs to the right hand end of fixed Tabs.
Currently the additional tabs are added one tab in from the right-hand end.   Is it possible to ensure that additional tabs appear at the end of existing tabs.

This is my routine to add a tab:
function TfmIDEMain.CreateBottomDock: TLMDDockPanel;
var SrchRes: TfmSearchResults;
    zn: TLMDDockZone;
begin
  Result := TLMDDockPanel.Create(Self); // Create new Panel
  try
    SrchRes := TfmSearchResults.Create(Result);
    SrchRes.Parent := Result;
    zn := dsBottom.SpaceZone;
    while (zn <> nil) and (zn.Kind <> zkTabs) and (zn.ZoneCount > 0) do
      zn := zn[0];
    if zn <> nil then
      dsBottom.DockControl(Result, zn, alClient, zn.ZoneCount -1);
  except
    On E: Exception do
      E.Free;
  end;
end;

Comments

  • John BarratJohn Barrat
    just figured it out 

       dsBottom.DockControl(Result, zn, alClient, zn.ZoneCount

    Use Zone count not zone count -1  I had assumed the count would be 0 based.
  • Eugene Balabuev (LMD)Eugene Balabuev (LMD)
    edited November 2022
    Hi,

    ZoneCount is a counting value, it's not an index, so it is not appropriate to say "zero-based" or "one-based" about it.

    But, you right, when you want to add a new rightmost tab, you have to specify ZoneCount as an index. For example, suppose you have three existing zones. ZoneCount = 3, zone indices are: 0, 1 and 2. The next (rightmost) zone index will be 3, which is equal to the current ZoneCount.
Sign In or Register to comment.