OpenEuphoria

Re: Graph Control and vertical text

• Posted by Pete Lomax <petelomax at blueyonder.co.uk> Jun 29, 2005
• 641 views

On Wed, 29 Jun 2005 06:05:09 -0400, Greg Haberek <ghaberek at gmail.com>
wrote:

>How does one draw text vertically?

include win32lib.ew
without warning
constant main=create(Window,"Vertical Text Test", 0,
100,100,600,600,0),
		 slope=900
procedure onPaintmain(integer self, integer event, sequence params)
setFont(main,"Tahoma",12,{0,0,slope,slope,ANSI_CHARSET,0,0,0,0})
wPuts({main,310,310},"Some Text")
end procedure
setHandler(main,w32HPaint,routine_id("onPaintmain"))

WinMain(main,Normal)

Regards,
Pete