The R Project SVN R

Rev

Rev 46774 | Rev 76745 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 46774 Rev 46784
Line 999... Line 999...
999 
	settext(obj, text);
 999 
	settext(obj, text);
1000 
    }
 1000 
    }
1001 
    return obj;
 1001 
    return obj;
1002 
}
 1002 
}
1003 
 
 1003 
 
1004 
void setrichtextbackground(textbox obj, rgb bg)
 - 
 
1005 
{
 - 
 
1006 
    COLORREF wincolour;
 - 
 
1007 
    wincolour = RGB((bg&gaRed)>>16,(bg&gaGreen)>>8,(bg&gaBlue));
 - 
 
1008 
    if (obj && obj->handle)
 - 
 
1009 
	sendmessage(obj->handle, EM_SETBKGNDCOLOR, 0, wincolour);
 - 
 
1010 
}
 - 
 
1011 
 
 - 
 
1012 
static SCROLLINFO si;
 1004 
static SCROLLINFO si;
1013 
 
 1005 
 
1014 
scrollbar newscrollbar(rect r, int max, int pagesize, scrollfn fn)
 1006 
scrollbar newscrollbar(rect r, int max, int pagesize, scrollfn fn)
1015 
{
 1007 
{
1016 
    scrollbar obj;
 1008 
    scrollbar obj;