Текущий архив: 2004.05.02;
Скачать: CL | DM;
Вниз
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 спасет?
← →
panov © (2004-04-16 14:40) [8]Блин, а попробовать сложно?
procedure TForm1.reKeyPress(Sender: TObject; var Key: Char);
begin
if key in ["<",">"]
then re.SelAttributes.Color := clRed
else re.SelAttributes.Color := DefaultColor;
end;
← →
Владислав © (2004-04-16 14:43) [9]> panov © (16.04.04 14:40) [8]
А мне то на кой пробовать? :)
У меня такой задачи нет :)
← →
panov © (2004-04-16 15:04) [10]>Владислав © (16.04.04 14:43) [9]
Ясно ведь, что это автору.
Страницы: 1 вся ветка
Текущий архив: 2004.05.02;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.049 c
