11 replies to this topic

[MasterEvil]

Hello Boki,

I really miss the option to change the tab order at runtime.
The user needs to drag&drop tabs to a different location.

Would be great to have that

greetz
Steffen

[Boki (Berg)]

Hello Steffen,

I will add this for surre

regards

[MasterEvil]

Hello Boki,

just wanting to ask for the status on that.
Would be a really nice thing!

greetz
Steffen

[Boki (Berg)]

Hello Steffen,

It is still in progress, I hope that I will finish it soon.

regards

[AIM]

Try this code:

CODE

procedure TfrmMain.NxPageControl1MouseDown(Sender: TObject;  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if NxPageControl1.GetTabAtPos(X, Y) <> nil then // <---- added by Boki
  begin
    if Button = mbLeft then NxPageControl1.BeginDrag(false, 5);
  end;
end;

procedure TfrmMain.NxPageControl1DragDrop(Sender, Source: TObject; X,   Y: Integer);
var
  ts: TnxTabSheet;
begin
  if (Sender = Source) then
  begin
    ts := TNxPageControl(Sender).GetTabAtPos(X, Y);
    if Assigned(ts) then // <--- added by Boki
      if (ts.PageIndex >= 0) and (ts.PageIndex < TNxPageControl(Sender).PageCount) then
        TNxPageControl(Sender).ActivePage.PageIndex := ts.PageIndex;
  end
end;

procedure TfrmMain.NxPageControl1DragOver(Sender, Source: TObject; X,   Y: Integer; State: TDragState; var Accept: Boolean);
begin
   Accept := Source is TNxPageControl;
end;

[Boki (Berg)]

Hello Aim,

I have do some modifications in your code. I hope that now all work fine. Thank you again.

Best regards

[AIM]

I can confirm that your changes fixed the problem. Tab moving works perfectly well now

Thanks...

[emailaya]

i need it too but prefer it as a built in, in a final release
when will it be?

[emailaya]

will this be in the next release?
bcoz i dont see this change in the live update post

[Boki (Berg)]

Hello Emailaya,

I will not be added yet. Internaly this will be done without standard Drag & Drop.

Best regards

[emailaya]

so how will it be?

[Boki (Berg)]

Hello Emailaya,

It will act similar but without using Drag & Drop, it will draw arrows instead similar to NextGrid columns moving.

Best regards