Docking pack training or tutorials

Comments

• Carlo Marangoni

  January 2021

  besides the docking demo, is there any code available to show how to create a docking panel at runtime with comments in the code?

  any help would be much appreciated.

  
  

  examples like creating a docked panel and floating panel would really help me out.

  
  

  Thank you
• Eugene Balabuev (LMD)

  January 2021

  There are no tutorials or videos about that. Docking panel is just a control, like any other control. You can create it like this:

  
  

  pnl := TDockPanel.Create(Self); // Self is a main form.

  
  

  And then dock it into the docking site, like this:

  
  

  MySite.DockControl(pnl, ...);

  
  

  This is also shown in included LMD DockingPack demo.
• Carlo Marangoni

  January 2021

  Ok, I have tried that,

  I get an access violation.

  
  

  Here is the basic code i am using.

  Procedure TOXMain.CustomerPanel;

  Var

    OXFrame : TOXCustomerFrame;

    CP : TLMDDockPanel;

    zn: TLMDDockZone;

    Site: TLMDDockSite;

  Begin

      CP := TLMDDockPanel.Create(Self);

      zn := Site.SpaceZone;

          while (zn <> nil) and (zn.Kind <> zkTabs) and

            (zn.ZoneCount > 0) do

            zn := zn[0];

  
  

            if zn <> nil then

  
  

              CP := TLMDDockPanel.Create(Self);

              Site.DockControl(OXDashPanel, zn, alClient, -1 , true);

  
  

  End;

  
  

  What am I missing or doing wrong?

  Thank you
• Carlo Marangoni

  January 2021

  This is the basics of how I do it with Devexpress.

  
  

  Procedure TOXMainForm.QuotePanel;

  Var

    OXFrame : TOXQuoteFrame;

    CP : TdxDockPanel;

  Begin

    CP := TdxDockPanel.Create(Self);

    CP.Height := 800;

    CP.Width := 850;

    CP.Caption := 'Quote';

    CP.DockTo(OXDashboard, dtClient, -1);

    OXFrame := TOXQuoteFrame.Create(Self);

    OXFrame.Name := '';

    OXFrame.Parent := CP;

    Visible := True;

  End;
• Carlo Marangoni

  January 2021

  The code i am using is this, the first one had a duplicate TLMDDockPanel(create).

  
  

  Procedure TOXMain.CustomerPanel;

  Var

    OXFrame : TOXCustomerFrame;

    CP : TLMDDockPanel;

    zn: TLMDDockZone;

    Site: TLMDDockSite;

  Begin

      CP := TLMDDockPanel.Create(Self);

      zn := Site.SpaceZone;

      while (zn <> nil) and (zn.Kind <> zkTabs) and (zn.ZoneCount > 0) do

      zn := zn[0];

      if zn <> nil then

      Site.DockControl(OXDashPanel, zn, alClient, -1 , true);

  End;
• Eugene Balabuev (LMD)

  January 2021 edited January 2021

  You assign newly created dock panel to CP variable. But, later you use some other OXDashPanel variable in DockControl method call.

  
  

  Procedure TOXMain.CustomerPanel;

  Var

    OXFrame : TOXCustomerFrame;

    CP : TLMDDockPanel;

    zn: TLMDDockZone;

    Site: TLMDDockSite;

  Begin

      CP := TLMDDockPanel.Create(Self);

      zn := Site.SpaceZone;

      while (zn <> nil) and (zn.Kind <> zkTabs) and (zn.ZoneCount > 0) do

      zn := zn[0];

      if zn <> nil then

      Site.DockControl(OXDashPanel, zn, alClient, -1 , true);

  End;
• Carlo Marangoni

  January 2021

  Thank you that was it.

  
  

  I appreciate your feed back.