Font controls in form - Level Extreme

Plateforme Level Extreme

Abonnement

Profil corporatif

Produits & Services

Support

Légal

English

Font controls in form

Message

31/01/2011 15:44:22

Hugo Ranea
Bc Rapid Transit
Colombie Britannique, Canada

31/01/2011 03:06:01

Karen Tedman
Colombie Britannique, Canada

Information générale

Forum:

Visual FoxPro

Catégorie:

Codage, syntaxe et commandes

Titre:

Re: Font controls in form

Divers

Thread ID:

01497898

Message ID:

01498038

Vues:

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

Répondre

Fil

Voir

Click here to load this message in the networking platform