>>SET DEFAULT TO "c:\infodigger\sample code\" >>loForm = CREATEOBJECT("Bug") >>loForm.SHOW() >>READ EVENTS >> >>DEFINE CLASS bug AS FORM >> >> TOP = 0 >> LEFT = 0 >> HEIGHT = 260 >> WIDTH = 470 >> DOCREATE = .T. >> CAPTION = "PageFrame TabOrientation Bug" >> NAME = "Bug" >> >> ADD OBJECT pgfline AS interface_pageframe WITH ; >> ERASEPAGE = .T., ; >> PAGECOUNT = 3, ; >> TOP = 3, ; >> LEFT = 3, ; >> WIDTH = 425, ; >> HEIGHT = 250, ; >> TABORIENTATION = 2, ; >> NAME = "pgfLine", ; >> Interface_page1.CAPTION = "New", ; >> Interface_page1.NAME = "pgNew", ; >> Interface_page2.CAPTION = "Current", ; >> Interface_page2.NAME = "pgCurrent", ; >> Interface_page3.CAPTION = "History", ; >> Interface_page3.NAME = "pgHistory" >> >> PROCEDURE QUERYUNLOAD >> CLEAR EVENTS >> ENDPROC >> >>ENDDEFINE >> >>DEFINE CLASS interface_pageframe AS PAGEFRAME >> >> ERASEPAGE = .T. >> MEMBERCLASSLIBRARY = "pageframe_taborientation_bug.prg" >> MEMBERCLASS = "Interface_Page" >> NAME = "interface_pageframe" >> >>ENDDEFINE >> >>DEFINE CLASS Interface_Page AS PAGE >>* Comment out the FontName and the page's Caption orientation is correct >> FONTNAME = "MS Sans Serif" >> FONTSIZE = 8 >> OLEDROPMODE = 2 >>ENDDEFINE >>