Текущий архив: 2010.03.07;
Скачать: CL | DM;

Вниз

Выделение слов в RichEdit на лету   Найти похожие ветки 

← →
Иван   (2010-01-06 15:22) [0]

Здравсвуйте. У меня следующая проблема: есть массив слов, слова в цикле добавляются в 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-06 22:11) [1]

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

Не подходит?

---

← →
Иван   (2010-01-07 00:06) [2]

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

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

---

← →
Джо ©   (2010-01-07 01:18) [3]

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

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 02:29) [4]

> Иван   (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? Или их действительно было столько создано в рантайме?

---

Страницы: 1 вся ветка

Текущий архив: 2010.03.07;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.013 c