Right side click

Sally Peck

Question

Please see image:

https://ibb.co/1XsFFh4

When you press [x] is it possible to go to the right-most tab, instead of the first tab?

https://ibb.co/8szkSw7

This seems to be a change required in the LMD Dock VCL source code.

Or can you tell, what is the way to ensure, that it always goes to the right-most tab, even if it's a dock, a tab, or a window?

Sally Peck

Reason for doing so:

In competitor or competing tab/dock VCLs, when closing the tab, it goes to the right-side and one customer I have, is affected.

I'm requesting if it can have similar behavior.

Eugene Balabuev (LMD)

Probably we need to improve this behavior. But, for now you can use dock-panels OnClose event to implement workaround:

procedure TForm16.LMDDockPanel1Close(Sender: TObject;

  var CloseAction: TLMDockPanelCloseAction);

var

  pnl:    TLMDDockPanel;

  zn, tz: TLMDDockZone;

  i, ix:  Integer;

begin

  pnl := Sender as TLMDDockPanel;

  zn  := pnl.Zone;

  if (zn.Parent <> nil) and (zn.Parent.Kind = zkTabs) then

  begin

    tz := zn.Parent;

    ix := zn.Index;

    if ix > 0 then

      tz.SelectedPage := tz[ix - 1];

  end;

end;