Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Font controls in form
Message
 
To
31/01/2011 03:06:01
Karen Tedman
British Columbia, Canada
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Re: Font controls in form
Miscellaneous
Thread ID:
01497898
Message ID:
01498038
Views:
94
This message has been marked as the solution to the initial question of the thread.
You can use SetAll() like this:
frmMyForm = Createobject('Form')  && Create a Form
frmMyForm.Closable = .F.  && Disable the window pop-up menu
frmMyForm.BorderStyle = 3
frmMyForm.FontSize=10  && this will apply only to text above the option group
frmMyForm.AddObject('cmdCommand1','cmdMyCmndBtn')  && Add Command button
frmMyForm.AddObject('opgOptionGroup1','opgMyOptGrp') && Add Option Group
frmMyForm.opgOptionGroup1.SetAll('FontName', 'Courier New') && You could add the optionbutton class here too
frmMyForm.opgOptionGroup1.SetAll('FontSize', 9)
>
>i had assumed the font controls (type size) went into the group definition
>
>
>Define Class opgMyOptGrp As OptionGroup  && Create an Option Group
>	ButtonCount = 13 && number of Option buttons
>	Top = 22
>	Left = 14
>	Height = 275
>	Width = 243
>                    fontsize = 12 &&&& this has no effect
>                   font = "Arial"   &&& this has no effect
>
"The five senses obstruct or deform the apprehension of reality."
Jorge L. Borges?

"Premature optimization is the root of all evil in programming."
Donald Knuth, repeating C. A. R. Hoare

"To die for a religion is easier than to live it absolutely"
Jorge L. Borges
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform