Using Courier Font in Boxes

Keywords:   change font courier boxes

---

Question:

I want to use a courier font when displaying text with BoxText. Can this be done with a winbatch command? If not, how do I temporarily change the system font to courier and then change it back to whatever it was previously?

Answer:

To get a courier font you need the more advanced Box functions. BoxText will not cut it. However...

;; sample script for BoxTextFont
BoxesUp("100,100,900,900", @normal) 
BoxCaption(1, "WinBatch BoxTextFont Example")

f3="Courier New"
fam=16
size=20

BoxTextFont(1, f3, size, 0, fam)
BoxDrawText(1, "100,200,1000,1000", "This is courier font", @False, 0)

Message("All","Doned")

---

Article ID:   W15114