Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Another Pageframe bug!
Message
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00801485
Message ID:
00801504
Views:
17
Thanks Will.

>Sorry... The Caption of the page is in a horizontial position rather than a vertical position.
>
>>So to find out what the problem is we have to run the code???
>>It couldn't hurt to tell people WHAT GOES WRONG when you 'describe' the problem.
>>
>>>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
>>>
Previous
Reply
Map
View

Click here to load this message in the networking platform