Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Centering WAIT WINDOW command
Message
De
23/09/2021 03:45:46
Lutz Scheffler (En ligne)
Lutz Scheffler Software Ingenieurbüro
Dresden, Allemagne
 
 
À
23/09/2021 02:48:50
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
01682301
Message ID:
01682346
Vues:
47
>>in command window. Look up section cFontStyle. I've listed all styles of use.
>
>
FUNCTION FontStyleStr ( oCtrl )
>    * coCtrl can either be a form or a control
>    LOCAL lcRet
>
>    IF PEMSTATUS(oCtrl,"FONTBOLD",5) ;
>            AND PEMSTATUS(oCtrl,"FONTITALIC",5) ;
>            AND PEMSTATUS(oCtrl,"FONTOUTLINE",5) ;
>            AND PEMSTATUS(oCtrl,"FONTSHADOW",5) ;
>            AND PEMSTATUS(oCtrl,"FONTSTRIKETHRU",5) ;
>            AND PEMSTATUS(oCtrl,"FONTUNDERLINE",5) THEN
>        lcRet = IIF(oCtrl.FONTBOLD,"B","") ;
>            + IIF(oCtrl.FONTITALIC,"I","") ;
>            + IIF(oCtrl.FONTOUTLINE,"O","") ;
>            + IIF(oCtrl.FONTSHADOW,"S","") ;
>            + IIF(oCtrl.FONTSTRIKETHRU,"-","") ;
>            + IIF(oCtrl.FONTUNDERLINE,"_","")
>        IF EMPTY(m.lcRet) THEN
>            lcRet = "N"
>        ENDIF
>    ELSE
>        lcRet = ""
>    ENDIF
>    RETURN m.lcRet
>ENDFUNC  && FontStyleStr
>
Dealing with properties belongs in a method. That's the idea of encapsulation, classes and objects. :)
Words are given to man to enable him to conceal his true feelings.
Charles Maurice de Talleyrand-Périgord

Weeks of programming can save you hours of planning.

Off

There is no place like [::1]
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform