Цветной текст RichEdit

[KoBRaAndrey]

Как сделать в RichEdit такое, допустим текст
^1При^2вет, ^1 - означает красный ^2 - желтый. И текст должен выйти При- красный, вет - желтый. Как такое осуществить?

[mihali4]

Элементарно.

SelAttributes
SelLength
SelStart

Если что-то непонятно - милости прошу скачать с нашего же сайта (ссылка внизу - "Клуб программистов" - не знали ?):
http://programmersclub.ru/files/book1_100comp.rar

[KoBRaAndrey]

Я только что читал, нету нужного мне, юзер будет писать, и выделение не нужно! Нужно именно цвет текста менять. А когда таким способом, то не знаю почему текст выделяется, и получается ты пишеш и заменяешь тот текст...
Вот сделал:

var
f, t, l, I: cardinal;
begin

for I:=0 to RichEdit1.Lines.Count-1 do begin
if pos('^1', RichEdit1.Lines.Strings[i])<>0 then
if pos('^2', RichEdit1.Lines.Strings[i])<>0 then   begin

   f := pos('^1', RichEdit1.Lines.Strings[i])-1;
   t := pos('^2', RichEdit1.Lines.Strings[i]);
   l := t - f;
   RichEdit1.SelStart := f;
   RichEdit1.SelLength := l;
   RichEdit1.SelAttributes.Color := clblue;
end;
  end;
end;

Пишу aaa^1aaaaaaa^2 и пишу любую букву после ^2 происходит выделение текста ^1sssssssssssssssssssssssss^.. Что делать?

[Neeter]

Я только что читал, нету нужного мне, юзер будет писать, и выделение не нужно! Нужно именно текст

Вам же mihali4 все сказал.
Находите текст (Pos), выделяйте его(SelStart; SelLength) и присваивайте аттрибуты (SetAttributes).

[mihali4]

Для того самого юзера.
Чтобы закрасить текст, его сначала нужно выделить при помощи

SelStart
SelLength

А потом при помощи

SelAttributes

установить нужные аттрибуты, к коим относятся и цвет фона, и цвет шрифта, и тип шрифта... и многое другое.

[KoBRaAndrey]

В чем проблема кода который выше? А как потом убрать выделение?

[mihali4]

Объясняю.
Окромя POS, есть еще и POSEX.
Первая ищет с самого начала, а вторая - с заданной позиции.
Судя по всему, у вас в первый раз (поскольку POS) находит раньше, чем '^1'...
И выделение у вас происходит "задом наперед".
Дабы не мучаться зазря, пройдите этот кусок по шагам и посмотрите, какие значения получаются у F и L...

[KoBRaAndrey]

Попробовал другим способом:

var
f, t, l, I: cardinal;
begin
for I:=0 to RichEdit1.Lines.Count-1 do begin
if pos('^1', RichEdit1.Lines.Strings[i])<>0 then
if pos('^2', RichEdit1.Lines.Strings[i])<>0 then   begin
f := pos('^1', RichEdit1.Lines.Strings[i])+1;
t := pos('^2', RichEdit1.Lines.Strings[i])-3;
RichEdit1.SelStart := f;
RichEdit1.SelLength := t;
RichEdit1.SelAttributes.Color := clred;
end;
end;

Та же проблема Помогите

[mihali4]

Однако вы лентяй, любезный...
На 74-75 странице рекомендованной вам книги весь этот процесс доложен весьма доступно. Причем с примерами.
Или вам удобнее, если я буду пересказывать абзацы книги?
Нет уж, давайте конкретные вопросы...

[KoBRaAndrey]

Все незнаю... Сегодня встал, сразу за комп, и уже целый час вожусь...

var
ipos : Integer;
begin
    ipos := Pos('test',Richedit1.text);
    Richedit1.SelStart := ipos -1;
    Richedit1.SelLength := length('test');
    Richedit1.SelAttributes.color := Richedit1.SelAttributes.color + clred;
    Richedit1.SelStart := length(richedit1.Text);
end;

Выделяется правильно, но я побывал выделять от ^1 до ^2 и не вышло
Помогите кто-нибудь! Просто я не знаю... Мне нужно цвета от ^1...^9.