And since Cheryl asked on another thread, you can also use

OBJECT SET STYLESHEET

On Thu, Jun 14, 2018 at 1:50 PM Wayne Stewart via 4D_Tech <
4d_tech@lists.4d.com> wrote:

> 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 <4d_tech@lists.4d.com>
> wrote:
> > How about:
> >
> > OBJECT SET FONT(*;"@";"Segoe UI")
> >
> >
> >
> > On Thu, Jun 14, 2018 at 10:28 AM David Rose via 4D_Tech <
> > 4d_tech@lists.4d.com> 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:4d_tech-unsubscr...@lists.4d.com
> >> **********************************************************************
> > **********************************************************************
> > 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:4d_tech-unsubscr...@lists.4d.com
> > **********************************************************************
> **********************************************************************
> 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:4d_tech-unsubscr...@lists.4d.com
> **********************************************************************
**********************************************************************
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:4d_tech-unsubscr...@lists.4d.com
**********************************************************************

Reply via email to