>*-------------------------------------------------- >*-- Create nLastPage property at pageframe class level and initialize it with 0 > >*-------------------------------------------------- >*-- Pageframe Click event >this.OnPageChange() > >*-------------------------------------------------- >*-- OnPageChange method >with this >LOCAL lnActivePage >lnActivePage = .ActivePage >if lnActivePage # .nLastpage > * a new page was clicked/chosen > * lock screen > thisform.lockscreen = .t. > * set last page font to normal > .pages(.nLastPage).fontbold = .f. > * set actual page font to bold > .pages(lnActivePage).fontbold = .t. > * refresh active page > .pages(lnActivePage).refresh() > * store active page as last page > .nLastpage = lnActivePage > * unlock screen > thisform.lockscreen = .f. >endif >endwith >*-------------------------------------------------- > >