OpenEuphoria

Re: How do I create a bitmap with text?

• Posted by Greg Haberek <ghaberek at gmail.com> Jul 25, 2005
• 479 views

> What I want to do is get data from database, convert the word retrieved
> into a bitmap and display as bitmap in eugrid thus allowing me to write
> sideways for the column headers.

I use sideways text in my Graph control. I whipped up this little
number to do the trick. ta-da!!

procedure setFontRotated( integer pId, sequence pFont, integer pSize,
integer pStyle, atom pAngle )
-- pAngle *should* be between 0.0 and 359.9 (it may be negative)

=09pAngle = floor( pAngle * 10 )
=09if pAngle < 0 then
=09=09-- negative angle
=09=09pAngle += 3600
=09end if

=09setFont( pId, pFont, pSize, {pStyle,0,pAngle,pAngle,DEFAULT_CHARSET,0,0,=
0,0} )

end procedure

~Greg