|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Выделение слов в RichEdit на лету
Здравсвуйте. У меня следующая проблема: есть массив слов, слова в цикле добавляются в RichEdit, если слово походит под определенные параметры нужно выделить именно это слово жирным. Делаю так
Код:
var obj:TObject; ............... for I := 0 to List.Count - 1 do begin obj:=list.Items[i]; pos :=length(rchEdit.Text); //вычисляем текущую позицию курсора rchEdit.Text:=rchEdit.Text+(obj as TCombobox).text;//добавляем текст if (obj as TCombobox).ItemIndex<>0 then//условие выделения слова begin rchEdit.SelStart:=pos; rchEdit.SelLength:= length((obj as TCombobox).text); rchEdit.SelAttributes.Style:=[fsBold]; end; end; Но этот способ работает криво. Если под условие попадает первое слово, то жирным выделяется весь текст, если не первое, то слово вообще не выделяется. Еще раз повторяю, что стиль нужно менять именно на лету, в момент добавления слова к тексту. Вариант с начальным построением текста и поиском в нем нужных слов не интересует. Последний раз редактировалось Admin, 06.01.2010 в 18:49. |