23 replies to this topic

[emailaya]

plz change in nxPageControl unit: MouseUp
from line:
if Accept then DeletePage(ActivePage);

to:
if Accept then
begin
RemovePage(ActivePage);
if PageCount > 0 then
ActivePageIndex := 0;
end;

otherwise, bad things happen

[Boki (Berg)]

Hello Emailaya,

Can you please tell me what happen. I am not surre that new code is better.

regards

[emailaya]

deletepage made the page blank
but the tab was still active
only when i chose the tab to the left of it
the tab disappeared

if i just changed deletepage to removepage
then the tab+page were gone (which is good)
but then, no tab was active so the page was blank
until the user manually choses a tab

[Boki (Berg)]

Hello,

I still no see a problem Maybe it is already fixed.

In my version, when I click on X to close page, first tab is automatically selected.

regards

[emailaya]

not sure i understood
active tab was the second problem
it seems that deletpage only deletes the page
but the component is still there
only removepage seems to do the whole job

i wonder why there are 2 similar methods

[Boki (Berg)]

Hello,

DeletePage actually delete complete page. RemovePage delete it from list of pages.

You may see in DeletePage method that there is FreeAndNill call too.

regards

[emailaya]

so mayb u fixed sth
bcoz deletepage seems to just make the page blank
but it was still there

only when i called removepage
the page was gone and another page became active

why would i need to delete a page without removing it from the page list?

[Boki (Berg)]

I hope that is all fine now.

You may for example decide to add this page to other NxPageControl.

regards

[emailaya]

hi

when clicking on close
it still does deletepage and not removepage
attached the result
if i manually click any of the other remaining tabs
the the 3rd tab in the image, disappears

when changing it to what i have written in my original post
everything works fine

Attached Files

•  closebutton_click.JPG   40.04KB   28 downloads

[Boki (Berg)]

Hello,

I still don't understand

Here is a RemovePage:

CODE

procedure TNxCustomNotebook.RemovePage(Page: TNxTabSheet);
begin
  FPageList.Delete(FPageList.IndexOf(Page));
  RemoveControl(Page);
  Invalidate;
end;

and DeletePage:

CODE

procedure TNxCustomNotebook.DeletePage(TabSheet: TNxTabSheet);
begin
  FPageList.Delete(FPageList.IndexOf(TabSheet));
  RemoveControl(TabSheet);
  TabSheet.RemoveFreeNotification(Self);
  FreeAndNil(TabSheet);
end;

and there is a line (FreeAndNil) and this line simply free this Tab.

If you may attach here this demo, with step-by-step this may help.

regards

[emailaya]

mayb if you'll add a activepage := 0
deletepage will work too
bcoz if i click manually of a different tab
the deleted tab disappears

why do u need a demo?
simply add a page in runtime
and click on X

i didnt understand why dont u want to change to my code which works?
(im on bds2006)

[Boki (Berg)]

Hello Emailaya,

For me all work fine. I can't find where is a problem.

I can't use your code without testing it.

regards

[Boki (Berg)]

Hello,

Please try next code:

CODE

procedure TForm1.Button1Click(Sender: TObject);
var
  tab: TNxTabSheet;
begin
  tab := TNxTabSheet.Create(NxPageControl1);
  tab.Caption := 'Page ' + IntToStr(NxPageControl1.PageCount);
  NxPageControl1.AddPage(tab);
  NxPageControl1.ActivePage := tab;
end;

regards

[emailaya]

its a bit late so i will check this 2morrow

i didnt understand the relation between the problem
and the code u wanted me to try

i have the above code in my application
and it works fine
shouldnt it?

[emailaya]

what about this issue?
it seems that removepage should be used and not deletepage

[Boki (Berg)]

Hello,

I am sorry, I still don't know where is a problem and why I need to change this. I hope that someone else may report this problem.

regards

[emailaya]

I show u a screenshot about what happens on my computer

[wvd_vegt]

Hi,

I only have a OnPageClose handler setting Accept to the value of a save/discard/cancel messagebox and a OnChange handler that starts with:

CODE

with TNxPageControl(Sender) do
    if Assigned(ActivePage) then
      begin
        if Visible then
          MakeVisible(ActivePageIndex);

Thats all, i have no ghost pages etc and i'm pretty sure they're gone after clicking the topright cross. The last line scrolls the active tab into view.

[emailaya]

if i understood u correctly
u had the above code, in your OnPageClose event
so when u click the X, YOUR code cancels the ghost page as u described

if you remove the above code from the event,
do u get the same symptom as i? (see screenshot in original post)

[wvd_vegt]

if i understood u correctly
u had the above code, in your OnPageClose event
so when u click the X, YOUR code cancels the ghost page as u described

if you remove the above code from the event,
do u get the same symptom as i? (see screenshot in original post)

Still works fine (i added an exit as first line of the OnPageClose event).

Btw I succesfully close all pages without ghosts with:

CODE

  for i := Pred(NxPageControl1.PageCount) downto 0 do
    begin
      NxPageControl1.ActivePage := NxPageControl1.Pages[i];
      NxPageControl1.OnPageClose(NxPageControl1, NxPageControl1.ActivePage.PageIndex, accept); <--basically contains a messagebox.
      if accept then
        NxPageControl1.DeletePage(NxPageControl1.Pages[i])
      else
        Exit;
    end;

For completeness, i create them like (Self is the main form).

CODE

      tab := TNxTabSheet.Create(Self);
      tab.Margin := 4;
      NxPageControl1.AddPage(tab, True);
      NxPageControl1.ActivePage := Tab;
      tab.Caption := 'test';

and the PageControl has options:

[pgAlwaysShowTabsRect,pgBoldActiveTab,pgCloseButton,pgScrollButtons,pgTopBorder]

The first is important as otherwise the area where the tabs resize is reclaimed by the pages. With it it leaves a small dark band where the tabs will be painted