TRichEdit - ПОМОГИТЕ !!!

← →
KvORubin © (2002-02-26 15:42) [0]

Как закрасить линию при вводе "#" символа ???
(не передёргивая текст в переменную и обратно).

← →
MBo © (2002-02-26 15:54) [1]

установить selstart,sellength, а потом selattributes

← →
KvORubin © (2002-02-26 21:29) [2]

НЕПОЛУЧАЕТСЯ !!!
ПЛЗ напишите пример..

Нужно когда поставился символ, тогда закрасилась вся линия текста

← →
~Sergius (2002-02-26 22:34) [3]

if Pos(Edit1.Text,"#")<>0 then Edit1.Color := clRed

← →
KvORubin © (2002-02-27 16:25) [4]

Спсибо ~Sergius, но мне нужно в RichEdit1
при наличие этого символа закрасить шрифт той линии, в которой находится этот символ.
Причём всю линию !!!

К примеру: (для понятия смысла)
I:=Текущая линия;
if Pos(RichEdit1.lines[I],"#")<>0 then
RichEdit1.SelAttributes.lines[I].Color:=clRed;

//Тут нужно выделить всю линию и закрасить,,
//чего я и немогу сделать ;(
//Если не затруднит, напишите как это правильно сделать ?!

← →
gek (2002-02-27 16:34) [5]

RichEdit1.sellength:=length(RichEdit1.lines[I]);
with RichEdit1.selattributes do
font.color:=clblue;

← →
Набережных С. (2002-02-27 17:16) [6]

procedure TForm.RichEditKeyPress(Sender: TObject; var Key: Char); var n:integer; begin if Key = "#" then with RichEdit do begin n:=SelStart; SelStart:= n - CaretPos.x; SelLength:=Length(Lines[CaretPos.y]); SelAttributes.Color:=clRed; SelStart:=n; end; end;

> gek (27.02.02 16:34)

Вот что я сделал, но всё равно это не работает:
if Pos(RichEdit1.lines[1],"#")<>0 then begin RichEdit1.sellength:=length(RichEdit1.lines[1]); with RichEdit1.selattributes do font.color:=clblue; end;

Если не затруднит, напишите работающий пример ПЛЗ.

> Набережных С.

БОЛЬШОЕ СПАСИБО !!!

Ваш пример работает как часики, это как раз то, что мне нужно было !!!

ТЕМА ЗАКРЫТА !!!
.

TRichEdit - ПОМОГИТЕ !!! Найти похожие ветки