RichEdit

← →
denis24 (2004-12-30 15:06) [0]

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

← →
clickmaker © (2004-12-30 15:13) [1]

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

← →
denis24 (2004-12-30 16:04) [2]

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

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

← →
begin...end © (2004-12-30 16:05) [3]

> [2] denis24 (30.12.04 16:04)

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

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

← →
Zeqfreed © (2004-12-30 16:31) [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.

← →
denis24 (2004-12-31 11:34) [5]

А со след .строчками как быть как их добавлять и окрашивать в них слова?
Пишу
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");
.
.
.
И след строки уже красным как ввыделении.

← →
Eraszer (2004-12-31 16:20) [6]

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

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

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

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

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

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

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