What I do when I don't care to reboot in NT Workstation (where I have far
less than 180 fonts) is to...
1- click on the object I want to change in the form designer window
2- in the command window: = ASELOBJ (tarray)
3- in the command window: tarray [1].FontName = 'MS Sans Serif' && or
whatever font I wish
To get the correct spelling of a font, I do: _CLIPTEXT = getfont ()
and remove the point size and style. That said, you should have no trouble
creating a short (3 line) .PRG which would parse the result of the
getfont() {i.e. getfont_result = GETFONT ()
tarray [1].FontName = LEFT (getfont_result, AT (",", getfont_result) -
1)
}
and stick it on your own menu additions. Just be SURE you NEVER click on
the fontname property in the form designer window!!!!!!!!!!!!!! (when was
the last time you clicked on save?)
Of course, I have since written my own builder (to make sure I conform to
my own standards) which does that for me
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement