The R Project SVN R

Rev

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

Rev 53861 Rev 60023
Line 605... Line 605...
605 
    	if (obj->handle) {
605 
    	if (obj->handle) {
606 
    	    CHARFORMAT format;
 606 
    	    CHARFORMAT format;
607 
    	    COLORREF wincolour = RGB((fg&gaRed)>>16,(fg&gaGreen)>>8,(fg&gaBlue));
607 
    	    COLORREF wincolour = RGB((fg&gaRed)>>16,(fg&gaGreen)>>8,(fg&gaBlue));
608 
    	    format.cbSize = sizeof(format);
 608 
    	    format.cbSize = sizeof(format);
609 
    	    format.dwMask = CFM_COLOR;
 609 
    	    format.dwMask = CFM_COLOR;
- 
 
 610 
    	    format.dwEffects = 0;
610 
    	    format.crTextColor = wincolour;
 611 
    	    format.crTextColor = wincolour;
611 
 
 612 
 
612 
	    sendmessage(obj->handle, EM_SETCHARFORMAT, 0, (LPARAM)&format);
 613 
	    sendmessage(obj->handle, EM_SETCHARFORMAT, 0, (LPARAM)&format);
613 
	}
 614 
	}
614 
    } else {
 615 
    } else {