OpenEuphoria

Re: Budget Builder

• Posted by Senator Oct 01, 2020
• 1653 views

-- 
-- reg_graphics.e 
----    Kenneth Rhodes 
-- 
 
 
public include std/graphics.e 
------------------------------------------------------------ 
--              background   foreground  hilite        menu  
public constant BGC = WHITE, FGC = BLUE, HLC = YELLOW, MC = BROWN 
 
public color foreground  
public color background  
 
public procedure set_background_color(color c) 
-- use set_background_color(color c)  
-- instead of bk_color(x) 
    bk_color(c) 
	background = c 
end procedure 
 
public procedure set_text_color(color c ) 
--use set_text_color instead of text_color(x) 
--foreground will always be available  
--for highlight(), or any other purpose  
    text_color(c) 
    foreground = c 
end procedure 
 
public procedure set_foreground_color(color c) 
set_text_color(c) 
end procedure 
 
public function hilite(sequence text, color hicolor = RED, integer new_line = 0)  -- default no new line 
sequence rc 
    text_color(hicolor)  
    display("[]",{text},new_line)  
    set_foreground_color(foreground) 
    rc=get_position() 
return {rc[1], rc[2]} 
end function 
 

Regards, Ken