12 replies to this topic

[emailaya]

not critical

http://www.bergsoft....?showtopic=1341
read AIM second post above

click works perfect
the problem is with doubleclick, here is the code i have:

GetCursorPos(CursorPoint);
CursorPoint := PageControl1.ScreenToClient(CursorPoint);
with PageControl1 do R := Rect(0, TopIndent, ClientWidth, TabHeight + TopIndent);
if PtInRect(R, CursorPoint) then
begin
Tab := PageControl1.GetTabAtPos(CursorPoint.X, CursorPoint.Y);
if (Tab = nil) or (Tab.PageIndex < 2) then
begin
if (Tab = nil) and (PageControl1.GetButtonAtPos(CursorPoint) = pbNone) then
btn.Click;
exit;
end;
PageControl1PageClose(nil,Tab.PageIndex,Accept);
if not Accept then exit;
PageControl1.RemovePage(Tab);
PageControl1.ActivePageIndex := 0;
end;

if i doubleclick on the tab itself it works ok, the first tab becomes active
if i doubleclick inside the red part (see above link), the tab on the left becomes active, and not the first one

[Boki (Berg)]

Hello Emailaya,

I will test your code today and try to find a solution. I think that one part of additional code need to be added here for detecting when user click on previous tab.

Best regards

[emailaya]

i think 1 of the 2:

1) doubleclick consists of 2 clicks, so mayb the 2nd click "thinks" it was on the left tab

2) the fix u made for 1 click which is working now, should be done for the doubleclick event as well

[Boki (Berg)]

Hello Emailaya,

I think that I know where is a problem and how to solve it. I will go back here today.

Best regards

[emailaya]

ok
10x

[Boki (Berg)]

Hello Emailaya,

Next code work fine:

CODE

procedure TForm1.NxPageControl1DblClick(Sender: TObject);
var
  R: TRect;
  CursorPoint: TPoint;
  APage: TNxTabSheet;
begin
  GetCursorPos(CursorPoint);
  CursorPoint := NxPageControl1.ScreenToClient(CursorPoint);
  with NxPageControl1 do R := Rect(0, TopIndent, ClientWidth, TabHeight + TopIndent);
  if PtInRect(R, CursorPoint) then
  begin
    APage := NxPageControl1.GetTabAtPos(CursorPoint.X, CursorPoint.Y);
    if APage <> nil then
    begin
      ShowMessage(APage.Caption);
    end;
  end;
end;

Tab edges are well checked and correct tab is shown in ShowMessage. You need also to note that DblClick first call 1 click and this change tab first.

Best regards

[emailaya]

the correct tab is assigned
in my code, the double clicked tab is removed as it should

PageControl1PageClose(nil,Tab.PageIndex,Accept);
if not Accept then exit;
PageControl1.RemovePage(Tab); <----
PageControl1.ActivePageIndex := 0;

but instead of making pageindex 0 the default
the left tab is being default

if i double click, not in the red marked (see my fist post here)
then everything is ok

[emailaya]

ok here is the conclusion
it seems that
procedure TNxPageControl.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

is executed AFTER OnDblClick event is triggered
and since the click was over the left tab (that would be the case when i remove the doubleclicked tab)
that tab becomes active

[Boki (Berg)]

Hello Emailaya,

I am not sure what you are tying to archive

Next code successfully delete correct page:

CODE

procedure TForm1.NxPageControl1DblClick(Sender: TObject);
var
  R: TRect;
  CursorPoint: TPoint;
  APage: TNxTabSheet;
begin
  GetCursorPos(CursorPoint);
  CursorPoint := NxPageControl1.ScreenToClient(CursorPoint);
  with NxPageControl1 do R := Rect(0, TopIndent, ClientWidth, TabHeight + TopIndent);
  if PtInRect(R, CursorPoint) then
  begin
    APage := NxPageControl1.GetTabAtPos(CursorPoint.X, CursorPoint.Y);
    if APage <> nil then
    begin
      NxPageControl1.RemovePage(APage);
    end;
  end;
end;

Best regards

[emailaya]

i want to do sth really simple

double click on a tab will close it
and it does close
but then i want the first tab to be active (pagecontrol1.activepageindex := 0) (look in the code in my first post here)
that works ok, if i doubleclick NOT on the red marked
if i doubleclick ON the red marked the tab on the left becomes active
and that is bcoz OnMouseDown event is triggered when DblClick event finishes to execute

[emailaya]

my explanation above was ok this time?

[Boki (Berg)]

Hello Emailaya,

Open NxPageControl.pas file

Find procedure TNxPageControl.MouseDown and change line:

CODE

    if Assigned(APage) then

into

CODE

    if Assigned(APage) and not (ssDouble in Shift) then

Now use next DblClick event:

CODE

procedure TForm1.NxPageControl1DblClick(Sender: TObject);
var
  R: TRect;
  CursorPoint: TPoint;
  APage: TNxTabSheet;
begin
  GetCursorPos(CursorPoint);
  CursorPoint := NxPageControl1.ScreenToClient(CursorPoint);
  with NxPageControl1 do R := Rect(0, TopIndent, ClientWidth, TabHeight + TopIndent);
  if PtInRect(R, CursorPoint) then
  begin
    APage := NxPageControl1.GetTabAtPos(CursorPoint.X, CursorPoint.Y);
    if APage <> nil then
    begin
      NxPageControl1.RemovePage(APage);
      NxPageControl1.ActivePageIndex := 0; // <----- new line
    end;
  end;
end;

Best regards

[emailaya]

i just needed this addition
if Assigned(APage) and not (ssDouble in Shift) then

the code that i posted in my original post here worked gr8
except for when i doubleclicked on the red part

now the addition: if Assigned(APage) and not (ssDouble in Shift) then
did the trick and its working
10x!