OpenEuphoria

Re: Colored statusbar or label

• Posted by Patrick Barnes <mrtrick at gmail.com> Nov 10, 2004
• 494 views

On Wed, 10 Nov 2004 03:25:18 -0800, Derek Parnell
<guest at rapideuphoria.com> wrote:
> Is this sort of thing helpful?

Uh, I see a big statusbar, and 'world' in italics...

But no colors, and 'world' is black.

> ------------------
> }}}
<eucode>
> without warning
> include win32lib.ew
> 
> constant Win = create(Window, "TEST", 0, 0, 0, 400, 400, 0)
> 
> constant SB = create(StatusBar, "", Win, 0, 0, 0, 50, 0)
> 
> procedure Paint_SB(integer self, integer event, sequence parms)
> 
>     setPenColor(self, Red)
>     drawRectangle(self, 1, 3, 3, 150, 50)
>     setPenColor(self, Green)
>     drawRectangle(self, 1, 150, 3, 300, 50)
>     setPenColor(self, Blue)
>     setFont(self, "Courier New", 12, Bold)
>     wPuts({self, 4,4}, "hello")
>     setFont(self, "Arial", 12, Italic)
>     wPuts({self, 154,4}, "world")
> end procedure
> setHandler(SB, w32HPaint, routine_id("Paint_SB"))
> VOID = setErasePolicy(SB, 1)
> WinMain(Win , Normal)
> </eucode>
{{{


-- 
MrTrick