Ko, thanks for your reply.
I dont follow how the Page Tab caption changes colour when it is selected. I see that you add a label but how does this relate to the Tab caption ?

Regards




>>I am trying to set a specific colour on a PageFrame current tab so that it is easily identified when I change tabs.
>>(e.g. I want all tabs to be grey, except the current tab which I want Red)
>>
>>I would like to do this at the class level. So I set up an _assign method attached to the active page event. Now this works fine if I programatically change the Page , but not if I just select a tab by clicking on it.
>>Is there maybe another way to have this functionality, at the class level.?
>>
>>Regards,
>>
>>Gerard
>

---

>Hi Gerard,
>
>I don't think there is a way you can do this directly.
>But why not make a workaround for this.
>Create a custom label class.
>In that class place something like
>

LPARAMETERS lEnable          &&   Red      Gray
>This.Parent.BackColor = iif(lEnable,RGB(...),RGB(...))

>Then in the init event of the pageframe place something like this
>

Local lnTel
>For lnTel = 1 to this.PageCount
>  This.Pages(lnTel).Addobject('lblColor','colorclass')
>EndFor

>
>I hope this may help you,