RichEdit

← →
Шишкин Илья © (2004-04-13 21:47) [0]

Необходимо сделать в RichEdit"е подсветку символов "<" и ">" например красным цветом в реальном времени. Кто-нибудь знает как это можно реализовать?

← →
Rouse_ © (2004-04-13 21:55) [1]

Парсер (к примеру примитивно через Pos) + SelStart + SelLength + SelAttributes.Color

← →
тихий вовочка © (2004-04-13 22:24) [2]

В Промт пытаешься устроиться? Это они такое бредовое тестовое задание дают. Если очень надо пришлю исходники

← →
Yanis © (2004-04-13 23:08) [3]

Пришли мне если не жалко!
Буду рад увидив их у себя.

← →
panov © (2004-04-13 23:29) [4]

А какие тут проблемы?
posStart := re.FindText("<",0,Length(re.Text),[]); while posStart<>-1 do begin re.SelStart := posStart; re.SelLength := 1; re.SelAttributes.Color := clRed; posStart := re.FindText("<",posStart+1,Length(re.Text),[]); end; posStart := re.FindText(">",0,Length(re.Text),[]); while posStart<>-1 do begin re.SelStart := posStart; re.SelLength := 1; re.SelAttributes.Color := clRed; posStart := re.FindText(">",posStart+1,Length(re.Text),[]); end;

← →
Шишкин Илья © (2004-04-14 23:08) [5]

Я сам делал точно так же. Только меня такой вариант не устраивает. Надо выделять скобки в реальном времени. То есть при вводе скобки, она сразу же должна стать красного цвета.

← →
Шишкин Илья © (2004-04-16 13:37) [6]

Мне кто-нибудь поможет?

← →
Владислав © (2004-04-16 13:39) [7]

Может чем OnKeyPress спасет?

Блин, а попробовать сложно?

procedure TForm1.reKeyPress(Sender: TObject; var Key: Char);
begin
if key in ["<",">"]
then re.SelAttributes.Color := clRed
else re.SelAttributes.Color := DefaultColor;
end;

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