problem changing font
- Posted by Ron Austin <ronaustin at alltel.net> Jan 02, 2004
- 369 views
I want to change the size of the the screen and the font points when my app runs at 800 X 600 vs 1024 X 768. Why does this work: without warning include win32lib.ew constant win=createEx (Window,"Test",0,Center,Center,500,500,0,0) procedure print_it( integer self, integer event, sequence params) setFont(win,"Roman",18,1) wPuts(win,"Hello") end procedure setHandler(win, w32HPaint, routine_id( "print_it" )) WinMain(win,Normal) and this dont? without warning include win32lib.ew constant win=createEx (Window,"Test",0,Center,Center,500,500,0,0) procedure print_it( integer self, integer event, sequence params) setFont(win,"Roman",18,1) sequence name name="Ron" wPuts( {win, 40, 40}, name) end procedure setHandler(win, w32HPaint, routine_id( "print_it" )) WinMain(win,Normal) I get a syntax error - expected to see possibly 'end', not a type sequence name