Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Centering WAIT WINDOW command
Message
De
22/09/2021 15:17:20
Lutz Scheffler (En ligne)
Lutz Scheffler Software Ingenieurbüro
Dresden, Allemagne
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
01682301
Message ID:
01682338
Vues:
58
>>>>Hi,
>>>>
>>>>I am trying to find a message(s) discussing how to center a WAIT WINDOW command in a VFP window. I would be very surprised if this has never been discussed or brought up. But no matter what I enter in the UT Search, I cannot find a thread. What would you enter in the UT Search to find such a message(s)?
>>>>
>>>>TIA
>>>
>>>Using Sergey Berezniker's code I can place the WAIT WIND almost exactly where I want. But I have to do a trial and error a few times. It would be nice if I could get the value of the length of the string to be shown in WAIT WIND. For example, say my string is "Please wait". Is there a way to calculate the width (or a length) in Foxels of this string?
>>>
>>>TIA
>>
>>https://doughennig.blogspot.com/2006/04/forget-txtwidth-use-gdipmeasurestring.html
>
>
>One of the examples used in the article you suggested (thank you!) is
>
>lnWidth = txtwidth(lcText, lcFontName, lnFontSize,  lcFontStyle)
>
>
>I replaced lcFontName with _screen.FontName and lnFontSize with _screen.FontSize.
>
>But I don't know what property of _screen to use for the value of lcFontStyle. The _screen does not have a property matching the name "FontStyle" but has other Font* properties.
>
>Do you happen to know what property of _screen to use for lcFontStyle?

try
WITH THIS

  lcFontStyle = IIF(.FONTBOLD,"B","") + ;
   IIF(.FONTITALIC,"I","") + ;
   IIF(.FONTSTRIKETHRU,"-","") + ;
   IIF(.FONTUNDERLINE,"U","")
*...
at least this is what FONTMETRIC is using,

Aunt EDIT says: This is what TXTWIDTH is using.

EDIT #2 (can't let it be)
enter
HELP TXTWIDTH
in command window. Look up section cFontStyle. I've listed all styles of use.
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
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform