OpenEuphoria

set_back_color wxEuphoria

• Posted by don cole <doncole at pacbell.net> Oct 18, 2005
• 472 views

Hello people.

In wxEuphoria,

I can't get set_back_color ( atom window, atom color )

to work.

procedure onPaint_ScrollWin( atom this, atom id, atom event_type, atom event )
    atom newfont, dc
        dc = create( wxPaintDC, {this})
        set_background_mode (  dc, wxSOLID  )
        set_back_color(ScrollWin,Yellow)--does nothing
        set_back_color(ScrollFrame,Yellow)--does nothing
       -- set_back_color(dc,Yellow)--gets mach level err
        set_text_color (dc ,Red)--does nothing 
        set_text_back_color (dc ,Yellow)-- works for text
newfont = create( wxFont, {fontSize,wxROMAN,wxNORMAL,wxNORMAL,0,"Times
        New Roman"})
        set_font( dc, newfont )
        wx_printf( {ScrollWin,1,30,dc}, "It has been %d days", {fontSize} )
        delete_instance( newfont )
        delete_instance( dc )
end procedure
set_event_handler( ScrollWin, get_id(ScrollWin),wxEVT_PAINT, routine_id(
"onPaint_ScrollWin" ))

Any appreciated,
Don Cole
SF