Hi,

I wouldn't hard code Segoe UI necessarily.

What I do is on startup I launch a small window with a text variable
set to automatic (probably static text would work as well).

I then run OBJECT Get font(*;"My Text") etc to retrieve the font name
and store that in an IP variable.  I guess you could use storage
nowadays.

<>Dlg_FontName_t:=OBJECT Get font(*;"Dlg_Text1_t")
<>Dlg_FontSize_i:=OBJECT Get font size(*;"Dlg_Text1_t")
<>Dlg_FontStyle_i:=OBJECT Get font style(*;"Dlg_Text1_t")
OBJECT GET COORDINATES(*;"Dlg_Text1_t";$Left_i;$Top_i;$Right_i;$Bottom_i)
<>Dlg_FontHeight_i:=$Bottom_i-$Top_i

Then you could call

OBJECT SET FONT(*;"@";"<>Dlg_FontName_t")

This way you will get the correct font on startup for different systems.


Regards,

Wayne


Wayne Stewart
about.me/waynestewart




On 15 June 2018 at 03:29, Jim Hays via 4D_Tech <[email protected]> wrote:
> How about:
>
> OBJECT SET FONT(*;"@";"Segoe UI")
>
>
>
> On Thu, Jun 14, 2018 at 10:28 AM David Rose via 4D_Tech <
> [email protected]> wrote:
>
>> Has anyone found a solution? (BTW, I just received a report of this problem
>> from a Windows 7 user.)
>>
>>
>>
>> --
>> Sent from: http://4d.1045681.n5.nabble.com/4D-Tech-f1376241.html
>> **********************************************************************
>> 4D Internet Users Group (4D iNUG)
>> FAQ:  http://lists.4d.com/faqnug.html
>> Archive:  http://lists.4d.com/archives.html
>> Options: https://lists.4d.com/mailman/options/4d_tech
>> Unsub:  mailto:[email protected]
>> **********************************************************************
> **********************************************************************
> 4D Internet Users Group (4D iNUG)
> FAQ:  http://lists.4d.com/faqnug.html
> Archive:  http://lists.4d.com/archives.html
> Options: https://lists.4d.com/mailman/options/4d_tech
> Unsub:  mailto:[email protected]
> **********************************************************************
**********************************************************************
4D Internet Users Group (4D iNUG)
FAQ:  http://lists.4d.com/faqnug.html
Archive:  http://lists.4d.com/archives.html
Options: https://lists.4d.com/mailman/options/4d_tech
Unsub:  mailto:[email protected]
**********************************************************************

Reply via email to