|
statictext #w.st1, "Static text1", 20, 20, 200, 30 statictext #w.st2, "Static text2", 20, 70, 200, 30 statictext #w.st3, "Static text3", 20, 120, 200, 40 textbox #w.tb, 20, 170, 200, 30 open "Font test" for window as #w #w.st1 "!font Courier_New 16" #w.st2 "!font Arial 18 italic" #w.st3 "!font Times_New_Roman 20 underscore" #w.tb "!font Lucida_Console 16 bold" #w.tb "Text Box" wait
#w "!font Arial 18 italic"
|
[IMG]http://i61.tinypic.com/ddt6t.jpg[/IMG]
|
for row = 1 to 15 for col = 1 to 9 handle$ = "#C.";row*10+col #handle$ "!font Arial 11 bold" next col next row
|
|