Разно цветная строка

[LeoN]

Как создать в RichEdit строку хотя бы из 2-х цветов. У меня получается только разделение на 2-е строки.

[SunKnight]

richedit1.SelStart:=50; //начало выделения
richedit1.SelLength:=34;// длинна выделения
richedit1.SelAttributes.Color:=clRed;

[mihali4]

И, как и всегда, демка в помощь:
Borland\Delphi7\Demos\Doc\TextEdit

[LeoN]

Не получается правильное выделение. Помогите пожалуйста:
Нет разделения между строк.

procedure TMForm.AddSoob(MTxt:string;REdit:TsRichEdit);
Begin
//Система
 REdit.SelStart:=pos('[',MTxt)-1;
 REdit.SelLength:=pos(']',MTxt);
 REdit.SelAttributes.Color:=SysColor.ColorValue;
 REdit.SelAttributes.Size:=SysSize.Value;
 REdit.SelAttributes.Name:=SysFont.Text;
//Ник
 REdit.SelStart:=pos(']',MTxt);
 REdit.SelLength:=pos(':',MTxt)-pos(']',MTxt)-1;
 REdit.SelAttributes.Color:=NikColor.ColorValue;
 REdit.SelAttributes.Size:=NikSize.Value;
 REdit.SelAttributes.Name:=NikFont.Text;
//Сообщение
 REdit.SelStart:=pos(':',MTxt);
 REdit.SelLength:=Length(MTxt)-pos(':',MTxt);
 REdit.SelAttributes.Color:=NikColor.ColorValue;
 REdit.SelAttributes.Size:=NikSize.Value;
 REdit.SelAttributes.Name:=NikFont.Text;
//Добавление
 REdit.Lines.Insert(0,MTxt);
End;

[Jeni]

Сделал у себя приведенный пример, только заменил все переменные на абсолютные значения - всё работает! Единственное, не совсем понятно, что это за тип TsRichEdit?

[LeoN]

Тип TsRichEdit - это один из компонентов пакета AlphaSkins - немного улучшенные компоненты, есть новые. все поддерживают скины.

С постоянными то понятно, я просил разобраться с переменными. У меня пока неполучается.

[Квэнди]

Вывод ? ошибка алгоритмическая, не имеющая отношение к richedit-у. Один вопрос- одна тема.