Simple Calculator

[billhsln]

I am trying to learn how to use RichEdit controls, so I started with a Simple Calculator.  Not everything works yet, but most does.  What I am looking for is how do I change the color of the Text in a RichEdit control.  I would like Positive in Black and 0 in Green or Blue and Negative numbers to be in Red.  Sounds simple, but I have not been able to figure any way to do it.

Thanks for any help.

Bill

[billhsln]

Found the answer to my problem:

Code Select Expand

'=========================
SUB write_rtf(text:STRING)
'=========================
DEF c:UINT
l = CONTROLCMD (w1,100,@RTGETTEXTLENGTH)
CONTROLCMD w1,100,@RTSETSELECTION,l,l
IF dval1 < 0
c = RED
ELSE
IF dval1 > 0
c = BLACK
ELSE
c = GREEN
ENDIF
ENDIF
CONTROLCMD w1,100,@RTSETSELCOLOR,c
CONTROLCMD w1,100,@RTREPLACESEL,text + CHR$(13) + CHR$(10)
CONTROLCMD w1,100,@RTSCROLL,0,1
RETURN
ENDSUB

All I needed was the

Code Select Expand

CONTROLCMD w1,100,@RTSETSELCOLOR,c.

Bill