TAdvOfficePager Index out of bounds


Delphi XE5 32bits
TMSComponent pack 7.6.3 

Class TAdvOfficePager Index out of bounds error on closing the last page

In TAdvOfficePager, I set Properties.ButtonSetting.CLoseButton = true

If I then close the last page it fire an out of bounds error. This only happen if no other page has been fired before hand. From the code it looks like the TAdvOfficePager.SelectNextPage(True) will try to select a non existing page.

Further the selection of which page is to be selected when pages is deleeted seems to fail in other occations as well, as one add and delte pages.

In design view, it is also impossible to delete the last of the pages. Select the page, rightclick it and try to delte it will result in an error.

I hope you could assist me in how to get around this bug, or update the component.

tmsadvofficepageerror



This issue was
internally fixed here. The next update will address this.


Thank you for quick response.