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.

tlmddock horizontal split: How to set 2 panels to the same width?

Achim HerrmannAchim Herrmann
in LMD-Tools
This code creates 2 panels with horizontal split:

procedure TForm1.Button1Click(Sender: TObject);
var
  pnl: TLMDDockPanel;
begin
  pnl := TLMDDockPanel.Create(Self);
  pnl.Caption := 'My panel 1';
  LMDDockSite1.DockControl(pnl, LMDDockSite1.SpaceZone, alClient);

  pnl := TLMDDockPanel.Create(Self);
  pnl.Caption := 'My panel 2';
  LMDDockSite1.DockControl(pnl, LMDDockSite1.SpaceZone, alDocRight);
end;

But the right aligned panel has very small width. How to set both panels to the same width so that the splitter exactly tiles both panels to equal width?

Comments

  • Eugene Balabuev (LMD)Eugene Balabuev (LMD)
    After docking you can use Panel.Zone.Width to change panel's zone width. You probably will need to set the width of only one of two zones, another one will be resized accordingly.
  • Eugene Balabuev (LMD)Eugene Balabuev (LMD)
    Alternatively you can use LMDDockSite1.SpaceZone.SetChildrenSizes(...) method.
  • Achim HerrmannAchim Herrmann
    Panel.Zone.Width does not change anything.

    But your second answer 'SetChildrenSizes' does the job as desired:

    procedure TForm1.Button1Click(Sender: TObject);
    var
      pnl: TLMDDockPanel;
      nWidth: Integer;
    begin
      pnl := TLMDDockPanel.Create(Self);
      pnl.Caption := 'My panel 1';
      LMDDockSite1.DockControl(pnl, LMDDockSite1.SpaceZone, alClient);

      pnl := TLMDDockPanel.Create(Self);
      pnl.Caption := 'My panel 2';
      LMDDockSite1.DockControl(pnl, LMDDockSite1.SpaceZone, alDocRight);

      nWidth:= ceil(LMDDockSite1.SpaceZone.Width / 2);

      LMDDockSite1.SpaceZone.SetChildrenSizes([nWidth, nWidth]);
    end;

    Many thanks!!!
  • Eugene Balabuev (LMD)Eugene Balabuev (LMD)
    Just for note: Panel.Zone.Width (as well as Height) works for some panel alignments only. For alDocRight (you second panel) it should work.

Sign In or Register to comment.