11 replies to this topic

[mcinternet]

Hi,

 

Is it possible to make an event which is fired after a tab is moved?

 

I only need the info, where to place that. I think I can implement it by myself, if I know where.

 

 

kind regards

 

mcinternet

 

[Boki (Berg)]

Hi,

I will try to add it. It should be easy.

[mcinternet]

Hi,

I will try to add it. It should be easy.

Can you pls. post it here? - I need it really urgent.

 

thx in adv

 

kind regards

 

Jörg alias mcinternet

[Boki (Berg)]

Hi,

 

You can add it to 

 

procedure TNxPageControl6.SetMoving(const Value: Boolean);
begin
  if Value <> FMoving then
  begin
    FMoving := Value;
    if FMoving then Screen.Cursor := crDrag
      else Screen.Cursor := crDefault;
    DoAfterTabMode; // <--- call to the event
  end;
end;

[Boki (Berg)]

It's actually not a good place. It should be inside MouseMove method of PageControl.

 

There is a line:

          ActivePage.Index := NearestTab.Index;

 

I believe this is a place where the event should be.

 

[mcinternet]

Hi Boki,

 

I did it here, that´s not good!

 

procedure TNxPageControl6.MouseMove(Shift: TShiftState; X, Y: Integer);
var
  NearestTab: TNxPageSheet6;
begin
  inherited;

  { Ignore while in design state }
  if not (csDesigning in ComponentState) then
  begin

    { Tab Moving code }
    if Assigned(PressedPageTab) and TabMoving then
    begin
      { Already Moving }
      if FMoving then
      begin
        NearestTab := GetTabAtPos(Point(X, Y));
        if NearestTab <> nil then
        begin
    //        WritelnDebug(IntToStr(NearestTab.Index));
          ActivePage.Index := NearestTab.Index;
          DoAfterTabMode;     // Hier eingefügt JB
        end;
        Exit;
      end;

Always, if you move the mouse (pressed), the event pops up

 

regards

 

Jörg alias mcinternet

[Boki (Berg)]

Hi,

Maybe you can add checking to see if value is the same? Oldindex := ActivePage.Index and NewIndex := NearestTab.Index. I will try to do it also.

[mcinternet]

I just made tests with new and old index - no successfull results. The event must be fired AFTER moving, when the mousebutton goes up.

 

Regards

 

Jörg alias mcinternet

[mcinternet]

That seems not to be the right place ?

 

Regards

 

Jörg alias mcinternet

[mcinternet]

Got it!!!

 

under private:

 

    FAfterTabMoving : TNotifyEvent;

    FOldInt : Integer;

    FNewInt : Integer;

 

Published:

 

property OnAfterTabMoving : TNotifyEvent read FAfterTabMoving write FAfterTabMoving;

 

 

procedure TNxPageControl6.MouseMove(Shift: TShiftState; X, Y: Integer);
var
  NearestTab: TNxPageSheet6;
begin
  inherited;

  { Ignore while in design state }
  if not (csDesigning in ComponentState) then
  begin

    { Tab Moving code }
    if Assigned(PressedPageTab) and TabMoving then
    begin

      { Already Moving }
      if FMoving then
      begin
        NearestTab := GetTabAtPos(Point(X, Y));
        if NearestTab <> nil then
        begin
         // WritelnDebug(IntToStr(NearestTab.Index));
          FNewInt := NearestTab.Index;
          ActivePage.Index := NearestTab.Index;
        end;
        Exit;
      end;

and:

procedure TNxPageControl6.MouseUp(Button: TMouseButton; Shift: TShiftState; X,
  Y: Integer);
begin
  inherited;

  { Change cursor back }
  Moving := False;
  if FOldInt <> FNewInt then DoAfterTabMode;
  FOldInt := 0;
  FNewInt := 0;

For completing this Code (public)

 

procedure TNxPageControl6.DoAfterTabMode;

begin

  if Assigned(FAfterTabMoving) then FAfterTabMoving(self);

end;

 

 

Kind regards

 

Jörg alias mcinternet

 

 

@Boki: pls. implement this property so as it is in the next release 

[Boki (Berg)]

Hi Jörg,

 

Problem is that tab is moved even after you don't raise mouse button. Only dragging is stopped after you mouse up.

 

I can have for example 2 events, one when tab is moved and one when moving is done.

 

This will be more correct approach.

[mcinternet]

oh, then do so 

 

many thx

 

Kind Regards

 

Jörg