Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Another Pageframe bug!
Message
General information
Forum:
Visual FoxPro
Category:
Other
Title:
Another Pageframe bug!
Miscellaneous
Thread ID:
00801485
Message ID:
00801485
Views:
52
There is a bug with Page Caption Orientation when using Tab Orientation set to 2-Left and changing the FontName of the Page. Here is code to reproduce the problem.
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
Heavy Metal Pedal - click with care
Next
Reply
Map
View

Click here to load this message in the networking platform