Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Centering WAIT WINDOW command
Message
From
23/09/2021 03:45:46
Lutz Scheffler (Online)
Lutz Scheffler Software Ingenieurbüro
Dresden, Germany
 
 
To
23/09/2021 02:48:50
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
01682301
Message ID:
01682346
Views:
46
>>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]
Previous
Reply
Map
View

Click here to load this message in the networking platform