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:
00801502
Views:
20
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
>>
Heavy Metal Pedal - click with care
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform