>In the Test.Vcx Library Class
>build a Class 'obBase' of type optionButton.
>
>Set Caption = '123456789'
>You slide the types of FontName slowly:
>
>The little circle themed it becomes a normal black circle for:
>"Raavi"," Shruti", "Tunga" and other.
>
>Stopped to "Tunga", where you have a black circle:
>Set FontSize = 8, then cirche return themed.
Bravo, signore! :-) This was exactly the kind of thing I was looking for. I see it on my machine, too, so I'll pass it on to the people who can do something about it (if they haven't already picked it up from your post).
Code repro:
CREATE CLASS optBase as optionbutton OF themeTest nowait
ASELOBJ(laOpt)
loOpt = laOpt(1)
loOpt.Caption = "123456789"
loOpt.FontName = "Arial Black"
WAIT WINDOW "Button is not themed"
loOpt.FontSize = 8
WAIT WINDOW "Button is themed"
loOpt.SpecialEffect = 2
loOpt.FontName = "Microsoft Sans Serif"
loOpt.Width = 100
WAIT WINDOW "Button is themed"
loOpt.AutoSize = .T.
WAIT WINDOW "Button is not themed"
loOpt.ResetToDefault("Autosize")
WAIT WINDOW "Button is not themed"