delphi7 Richedit 颜色是不是有BUG

Question

我的代码中有这么两句, 
  Richedit1.SelAttributes.Color:=clRed;
  Richedit1.Lines.Add('红色标记');
Richedit1默认字体颜色是黑色
我发现运行过程中 '红色标记'4个字,偶尔会出现黑色,请问是不是BUG?

Answer 1

应该不是，SelAttributes.Color只是设定了被选中的文字的颜色

Answer 2

如1楼所说，SelAttributes指选中的文字。
所以在追加行之前将光标放到最后(选中最后的位置)即可。
begin
  RichEdit1.SelStart := MaxInt;
  RichEdit1.SelAttributes.Color := clRed;
  RichEdit1.Lines.Add('红色标记');
end;