>>>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 >>>