Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Centering WAIT WINDOW command
Message
De
22/09/2021 15:34:06
Dragan Nedeljkovich
Now officially retired
Zrenjanin, Serbia
 
 
À
22/09/2021 15:17:20
Lutz Scheffler
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:
01682339
Vues:
44
>>>>>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.

Auntie Emma, to be correct: http://ndragan.com/pv/emma.html

back to same old

the first online autobiography, unfinished by design
What, me reckless? I'm full of recks!
Balkans, eh? Count them.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform