Hi again
Meanwhile I have found that the second "bug" is documented in help, so is not actually a bug. IMO, is rather a strange design. Themed labels DO support font charset (IOW, is not a Operating System limitation).
>Hi, everyone.
>
>Over the weekend I have found two bugs in VFP9 SP1. I'd be glad if anyone can confirm these.
>
>First bug appears when a label is added in a pageframe, the backstyle is set to opaque and the style is set to 4 (themed background only). When the label's edge reaches the edge of the page, the backstyle goes to transparent by itself.
>
>Second bug is related to themed labels as well: when a label is set to themed, the fontcharset property is ignored.
>
>Repro code:
>
>Public oForm
>oForm = CreateObject("MyForm")
>oForm.Show()
>
>Define Class myForm As Form
> Name="MyForm"
>
>Add Object MyPgf AS PageFrame With ;
> PageCount = 2
>
>Add Object MyCmd1 As CommandButton With ;
> Caption = "Click here for first bug", ;
> Top = 150, ;
> Left = 200, ;
> Height = 24, ;
> Width = 150
>
>Add Object MyCmd2 As CommandButton With ;
> Caption = "Click here for second bug", ;
> Top = 200, ;
> Left = 200, ;
> Height = 24, ;
> Width = 150
>
>Procedure Init
> *-- Add a shape
> ThisForm.MyPgf.Page1.AddObject("MyShape","shape")
> Thisform.MyPgf.Page1.MyShape.Visible = .T.
> Thisform.MyPgf.Page1.MyShape.SpecialEffect = 0
> THisForm.MyPgf.Page1.MyShape.Top = 8
>
> *-- Add a label over shape
> ThisForm.MyPgf.Page1.AddObject("MyLabel","Label")
> Thisform.MyPgf.Page1.MyLabel.Top = 1
> ThisForm.MyPgf.Page1.MyLabel.Caption = "Test caption"
> ThisForm.MyPgf.Page1.MyLabel.AutoSize = .T.
> ThisForm.MyPgf.Page1.MyLabel.Visible = .T.
> ThisForm.MyPgf.Page1.MyLabel.Style = 4
> ThisForm.MyPgf.Page1.MyLabel.BackStyle = 1
> ThisForm.MyPgf.Page1.MyLabel.Left = 1
>
>
> *-- Add a themed label:
> Thisform.MyPgf.Page1.AddObject("MyThemedLabel", "Label")
> Thisform.MyPgf.Page1.MyThemedLabel.Caption = "This is a romanian text: " + Chr(254) + Chr(186) + Chr(170) + Chr(222)
> Thisform.MyPgf.Page1.MyThemedLabel.Top = 100
> Thisform.MyPgf.Page1.MyThemedLabel.Style = 0
> Thisform.MyPgf.Page1.MyThemedLabel.Autosize = .T.
> Thisform.MyPgf.Page1.MyThemedLabel.FontCharSet = 238
> Thisform.MyPgf.Page1.MyThemedLabel.Visible = .T.
>EndProc
>
>Procedure MyCmd1.Click
> *-- Bug 1: Label's backstyle becomes transparent when
> *-- label reaches the pageframe edge.
> ThisForm.MyPgf.Page1.MyLabel.Top = ThisForm.MyPgf.Page1.MyLabel.Top - 1
>
>
>Procedure MyCmd2.Click
> *-- Bug 2: When label's style is set to 3 - themed,
> *-- .FontCharSet property is ignored
> ThisForm.MyPgf.Page1.MyThemedLabel.Style = 3
>EndDefine
>
Grigore Dolghin
Class Software.