Показать сообщение отдельно
  #1  
Старый 04.04.2010, 17:12
davin4u davin4u вне форума
Прохожий
 
Регистрация: 21.04.2009
Сообщения: 18
Репутация: 10
По умолчанию RichEdit + цветной текст

Привет, возможно кто то интерисовался подобным:
есть RichEdit в него вводится текст, если введено ключевое слово то оно окрашивается в заданный цвет, вот код:
Код:
  Form1.RichEdit1.SelStart:= pos(CurrentWord,Form1.RichEdit1.Lines[0])-1;
  Form1.RichEdit1.SelLength:=Length(CurrentWord);//в CurrentWord хранится последнее введенное слово, т.е. текст от пробела до пробела
  Form1.RichEdit1.SelAttributes.Color:= HColor;
  Form1.RichEdit1.Lines.Add(CurrentWord);
  Form1.RichEdit1.SelAttributes.Color:=clBlack;
Как я понял тут SelStart-это положение с которого начинается выделение
SelLength-это длина выделения, ну SelAttributes.Color это понятно цвет. А вот со следующей строкой проблема, Form1.RichEdit1.Lines.Add(CurrentWord) осуществляет переход на следующую строку и добавляет текст из переменной CurrentWord, при этом получается примерно следующее:
Код:
текст текст текс CurrentWord
CurrentWord
А мне нужно чтобы просто мой текст CurrentWord окрасился без перехода на следующую строку. Кто знает подскажите плиз, буду очень благодарен
Ответить с цитированием