Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.034 c