Will blitz ever be able to load the 'blitz' font ?
Try doing it, it wont work. Seems kind of strange !!
Try doing it, it wont work. Seems kind of strange !!
Graphics 800,600,16 Big=LoadFont ("Arial",40) SetFont big Text 10,10,"foo" FreeFont big Text 100,100,"bar" WaitKey
font=LoadFont("Blitz.fon",15,True,False,False) mywin=CreateWindow("blah",50,50,200,200,0,1) mytext=CreateTextArea(0,0,200,200,mywin) SetTextAreaFont(mytext,font) Repeat Select WaitEvent() Case $803 : End End Select Forever
font=LoadFont("Blitz.fon",15,True,False,False) DebugLog "font = " + font ; Did the font load? mywin=CreateWindow("blah",50,50,200,200,0,1) mytext=CreateTextArea(0,0,200,200,mywin) SetTextAreaFont(mytext,font) AddTextAreaText mytext, "One" AddTextAreaText mytext, Chr(10) + "Two" Repeat Select WaitEvent() Case $803 : End End Select Forever