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

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

RichEdit [D6, Win2k]

denis24 ©   (2004-12-30 15:06:00) 

Посдкажите как в сабже окрашивать отдельные фразы и слова в разные цвета?

---

TButton   (2004-12-31 17:26:00) [1]

а можно, как-то сначала подготовить строку со всеми выделениями, а потом добавить ее?

---

Eraszer   (2004-12-31 16:20:00) [2]

Зачем же так топорно, вот

SelAttributes.Color:=clred;
Lines .add('title');

весь  дальнейший цвет- красный

SelAttributes.Color:=clBlack;
Lines .add('Black )))');

... теперь чёрный.
selstart по-умолчанию равен текущей позиции курсора, не надо извращаться и выделять слова задом наперёд )))

---

denis24   (2004-12-31 11:34:00) [3]

А со след .строчками как быть как их добавлять и окрашивать в них слова?
Пишу
var temp_str:string
with richedit1 do
begin
Lines .add('title');
text:=text+'line ';
temp_str:=Text;
text:=text+'1'
SelStart:=length(temp_str);
SelLength:=length(text)-selstart;
SelAttributes.Color:=clred;
SelAttributes.Style:=[fsbold];
lines.add('line');
.
.
.
И след строки уже красным как ввыделении.

---

Zeqfreed   (2004-12-30 16:31:00) [4]


RichEdit1.Text := 'привет';
RichEdit1.Text := RichEdit1.Text + ' test';
RichEdit1.SelStart := length('привет') + 1;
RichEdit1.SelLength := length(RichEdit1.Text) - RichEdit1.SelStart;
RichEdit1.SelAttributes.Color := clred;

а так окрашивается только "test" (вроде это надо?)
трассировка кода показала что после изменения св-ва Textсв-во SelStartсбрасывается в 0.

---

begin...end   (2004-12-30 16:05:00) [5]

> [2] denis24   (30.12.04 16:04)

> Все окрашивается в красный

Это Вас удивляет?

---

denis24   (2004-12-30 16:04:00) [6]

Пишу
with FrmReport.RichEdit1 do
       begin
               text:='привет';
               SelStart:=length(text)+1;
               text:=FrmReport.RichEdit1.text+' test';
               SelLength:=length(text)-selstart;
               SelAttributes.Color:=clred;
       end;

Все окрашивается в красный

---

clickmaker   (2004-12-30 15:13:00) [7]

Edit.SelStart :=
Edit.SelLength :=
Edit.SelAttributes.Color :=

---

Наверх