Hi David
Yes I did discover this method and am now in the process of updating my class library to use this technique.
Thanks,
Simon
>Simon,
>
>Do it in code like this:
>
>
>Public oForm
>oForm=CreateObject("Form")
>oForm.Height=500
>oForm.Width=500
>oForm.AddObject("pageFrame","mypageframe")
>oForm.pageFrame.Visible=.Y.
>oForm.Show
>Return
>Define Class mypageFrame as PageFrame
>
>function Init()
>with this
> .TabOrientation=3
> .PageCount=2
> .top=0
> .left=0
> .Width=500
> .Height=500
>endwith
>endfunc
>
>EndDefine
>
>
>
>
>>If you run the following code with the tabs set on the left or right the height of the pageframe is reduced by what appears to be the height of the tabs and the width is increased by the amount of the tab height so that they extend past the form border.
>>
>>If you use the top or bottom tabs everything works fine. This seems to aonly happen when using code. If you build the form in the designer it works correctly.
Simon White
dCipher Computing