Setting Fonts

Ken Ward

New Member
Version: 9.1C
OS: Win2000

I'm trying to change the font without using the
SYSTEM-DIALOG FONT command.

what I have to far is...

PUT-KEY-VALUE SECTION "Fonts" KEY fontnum VALUE fontstr

where (for example) fontnum = "font1" and
fontstr = "Arial, size=10"

When I do this and run a little program that shows all the fonts in the table, the font strings are correct. but the example fill-in at the bottom of the window shows the original font.

Also, my font changes aren't saved.

I've tried:

n = 10.
fontstr = "Arial, size=10".
fontnum = "font" + TRIM(STRING(n, ">>9")).

PUT-KEY-VALUE SECTION "Fonts" KEY fontnum VALUE fontstr.
PUT-KEY-VALUE FONT n.

this has no effect at all!


Please Help!
 
Top