Скачать: CL | DM;

RichEdit   Найти похожие ветки 

← →
Mentov   (2004-02-29 17:50) [0]

В RichEdit"е есть некоторый текст. Среди прочего там есть фраза "Привет, мир"

Я хочу именно эту фразу подсветить красным цветом. Как это реализовать?

---

← →
Cardinal ©   (2004-02-29 18:31) [1]


procedure findmytext;
var i: integer;
begin
i:=pos("Привет, мир!",richedit1.Text);
if i<>0 then
begin
richedit1.SelStart:=pos("Привет, мир!",richedit1.Text)-1;
richedit1.SelLength:=length("Привет, мир!");
richedit1.SelAttributes.Color:=clred;
end;
end;


---

← →
Rayslava ©   (2004-03-01 07:01) [2]

А если их несколько? Этих фраз

---

← →
Clift ©   (2004-03-01 07:18) [3]

>Rayslava © (01.03.04 07:01) [2]
А если их несколько? Этих фраз
А Если Подумать................................?????????

procedure findmytext;
var i: integer;
begin
i:=pos("Привет, мир!",richedit1.Text);
WHILE i<>0 do
begin
richedit1.SelStart:=pos("Привет, мир!",richedit1.Text)-1;
richedit1.SelLength:=length("Привет, мир!");
richedit1.SelAttributes.Color:=clred;
i:=pos("Привет, мир!",richedit1.Text);
end;
end;

---

← →
Clift ©   (2004-03-01 07:20) [4]

ОПА!
Чего-то я нетого написал ;)
//НЕбудет работать

---

← →
TUser ©   (2004-03-01 08:20) [5]

richedit1.SelAttributes.Color:=clred;
i:=pos("Привет, мир!",richedit1.Text); // <-- posex
end;
end;

---

← →
Mentov   (2004-03-02 00:06) [6]

>posex
а что такое posex?

И еще такой вопрос. Если фраз, которые надо "украсить" много, то постоянно SelStart бегает, отчего возникает неприятное мерцание!!! Можно как-то перевести RichEdit в состоянии Update, чтобы результаты на экране не отображались. А потом, когда SelStart "отбегается" - все это резко отобразить?

---

← →
Defunct ©   (2004-03-02 00:13) [7]

> А потом, когда SelStart "отбегается" - все это резко отобразить?

Все равно будет мерцать.

Lock На уровне Lines:
RichEdit.Lines.BeginUpdate
...
RichEdit.Lines.EndUpdate;

Lock на уровне Control:
SendMessage(RichEdit.Handle, WM_SETREDRAW, 0,0);
...
SendMessage(RichEdit.Handle, WM_SETREDRAW, 1,0);

---

← →
Mentov   (2004-03-03 19:04) [8]

Все равно будет мерцать

блин, а как же люди делают? Может RichEdit компонент левый для таких целей? В тех же редакторах (в IDE дельфи) подсвечивается - и ничего не мерцает

---

← →
Defunct ©   (2004-03-03 19:08) [9]

блин, а как же люди делают? Может RichEdit компонент левый для таких целей? В тех же редакторах (в IDE дельфи) подсвечивается - и ничего не мерцает

Так и есть...

---

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

Скачать: CL | DM;



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