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.

Adjust all document TLMDDockPanels with code

IDKOSCHIDKOSCH
in LMD-Tools
is it possible to change all documentpanels (also all floating) as tabbed panels to center of site with code?

I mean when i drop all panels with mouse into the center but whithout mouse, by code?

Stefan 

Comments

  • Eugene Balabuev (LMD)Eugene Balabuev (LMD)
    You can use the following code (this will include all floating panels, because the we iterate form's Components collection, and because the Owner of components (which is a form) never changes):

    procedure TForm3.Button1Click(Sender: TObject);
    var
      i:   Integer;
      pnl: TLMDDockPanel;
    begin
      for i := 0 to ComponentCount - 1 do
        if Components[i] is TLMDDockPanel then
        begin
          pnl := TLMDDockPanel(Components[i]);
          if pnl.ClientKind = dkDocument then
            LMDDockSite1.DockControl(pnl, LMDDockSite1.SpaceZone, alClient);
        end;
    end;
  • IDKOSCHIDKOSCH
    Thank you,

    i tested your code, it makes all document dockpanels (also floating) to tabbed documents in the Site.


    I want all documents to be horizontally next to each other with the same width

    Stefan
  • Eugene Balabuev (LMD)Eugene Balabuev (LMD)
    I've answered in another topic.
  • IDKOSCHIDKOSCH
    I've answered in that topic, there is a problem
Sign In or Register to comment.