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