| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Выделение слов в RichEdit на лету [D7, WinXP]

Иван ©   (2010-01-06 15:22:00) 

Здравсвуйте. У меня следующая проблема: есть массив слов, слова в цикле добавляются в RichEdit, если слово походит под определенные параметры нужно выделить именно это слово жирным. Делаю так

var
obj:TObject;
...............
for I := 0 to List.Count - 1 do
   begin
   obj:=list.Items[i];  //вычисляем текущую позицию курсора
    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;

Но этот способ работает криво. Если под условие попадает первое слово, то жирным выделяется весь текст, если не первое,   то слово вообще не выделяется. Еще раз повторяю, что  стиль нужно менять именно на лету, в момент добавления слова к тексту. Вариант с начальным построением текста и поиском в нем нужных слов не интересует.

---

Германн   (2010-01-07 02:29:00) [1]

> Иван   (06.01.10 15:22)  


> for I := 0 to List.Count - 1 do
>    begin
>    obj:=list.Items[i];  //вычисляем текущую позицию курсора
>     rchEdit.Text:=rchEdit.Text+(obj as TCombobox).text;//добавляем
> текст
>    if (obj as TCombobox).ItemIndex<>0 then//условие выделения
> слова
>

Позволь спросить. У тебя действительно есть List.Count объектов типа TCombobox? Или их действительно было столько создано в рантайме?

---

Джо   (2010-01-07 01:18:00) [2]

Всё прекрасно работает (выделяет каждое нечетное слово):

procedure TForm1.Button1Click(Sender: TObject);
var
 I: Integer;
begin
 for I := 1 to 10 do
 begin
   if Odd(I) then
     RichEdit1.SelAttributes.Style := [fsBold];
   RichEdit1.SelText := 'ABC ';
   RichEdit1.SelAttributes.Style := [];
 end;
end;

---

Иван   (2010-01-07 00:06:00) [3]

> Style:=[fsBold];Добавляем текстStyle:=[];Не подходит?

Так тоже не работает.

---

Джо   (2010-01-06 22:11:00) [4]

Style:=[fsBold];
Добавляем текст
Style:=[];

Не подходит?

---

Наверх