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

Achim Herrmann

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?

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)

Alternatively you can use LMDDockSite1.SpaceZone.SetChildrenSizes(...) method.

Achim 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)

Just for note: Panel.Zone.Width (as well as Height) works for some panel alignments only. For alDocRight (you second panel) it should work.