OpenEuphoria

Re: Colored statusbar or label

• Posted by Derek Parnell <ddparnell at bigpond.com> Nov 10, 2004
• 544 views

Patrick Barnes wrote:
> 
> On Tue, 09 Nov 2004 23:57:58 -0800, Derek Parnell
> <guest at rapideuphoria.com> wrote:
> > posted by: Derek Parnell <ddparnell at bigpond.com>
> > 
> > Patrick Barnes wrote:
> > >
> > > Is there any way to have a label or text in the status bar that is
> > > colored and bold?
> > >
> > > Or ideally, can different areas of the status bar be different colors?
> > 
> > I'm pretty sure that the Microsoft statusbar does not support 'fancy'
> > stuff like that. You will have to do your own, or ask somebody to do it,
> > or wait till I get around to doing one 
> 
> Alright...
> 
> So lets say I wanted to draw graphics in a status bar.... How could I do that?


Is this sort of thing helpful?

------------------

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)    

    
------------------
-- 
Derek Parnell
Melbourne, Australia