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

Как сделать простейшую подсветку HTML синтаксиса...?   Найти похожие ветки 

← →
=Sniper=   (2004-01-23 19:04) [0]

Нужно сделать чтобы между символами <> (включая эти символы тоже) всё закрашивалось в какой-то цвет!

---

← →
=Sniper=   (2004-01-23 19:04) [1]

В RichEdit"е!

---

← →
Gandalf ©   (2004-01-24 13:51) [2]

Так же как и в VCL.

---

← →
Rude ©   (2004-01-24 15:59) [3]

есть кампанента бесплатная SynEdit... а самому трудновато писать

---

← →
=Sniper=   (2004-01-24 22:45) [4]

2 Gandalf: а как в VCL? Только не предлагайте мне SynEdit(а то сильно увелицу свой exe"шкик который уже и так не маленький! ;-(!

---

← →
Gandalf ©   (2004-01-25 18:49) [5]

А как в VCL - это другой форум ;)

Прости.

Тебя что смущает?
1) Как определить что покрасить
2) Как что-то покрасить

---

← →
=Sniper=   (2004-01-26 23:02) [6]

2 Gandalf:  меня смущает 1-ое :-)

---

← →
ЮрийК ©   (2004-01-27 19:04) [7]

Сканируешь текст, находишь "<", запоминаешь позицию. Сканируешь дальше текст, находишь ">", запоминаешь позицию. С первой позиции по вторую меняешь цвет фонта в RichEdit.

---

← →
=Sniper=   (2004-01-27 22:42) [8]

2 ЮрийК
LOL! ;-) Меня вообще-то интересует реализация!!! ;-)))

---

← →
SPeller ©   (2004-01-28 10:24) [9]

> Меня вообще-то интересует реализация!!! ;-)))

На блюдечке с голубой каёмочкой? Мож вообще всё за тебя написать?

---

← →
SPeller ©   (2004-01-28 10:26) [10]

> Меня вообще-то интересует реализация!!! ;-)))

На блюдечке с голубой каёмочкой? Мож вообще всё за тебя написать?

---

← →
SPeller ©   (2004-01-28 10:31) [11]

> Меня вообще-то интересует реализация!!! ;-)))

На блюдечке с голубой каёмочкой? Мож вообще всё за тебя написать?

---

← →
Gandalf ©   (2004-01-28 12:08) [12]

За реализацией, смотри готовые подсветки, там все показано... тем  паче что это уже offtopic

---

← →
Gandalf ©   (2004-01-28 16:07) [13]

VK> var Text: String;
VK>     I, From: Integer;

VK> RichEdit1.BeginUpdate;
VK> Text := RichEdit1.Text;
VK> FromPos := -1;
VK> for I := 1 to Length( Text ) do
VK> begin
VK>   if Text[ I ] = "<" then From := I
VK>   else (if Text[ I ] = ">") and (From > 0) then
VK>   begin
VK>     RichEdit1.SelStart := From-1;
VK>     RichEdit1.SelLength := I-From+1;
VK>     RichEdit1.RE_FmtBold := true;
VK>     RichEdit1.RE_FmtFontColor := clRed;
VK>     From := -1;
VK>   end;
VK> end;
VK> RichEdit1.EndUpdate;

---

← →
Sniper   (2004-02-05 00:17) [14]

Это хорошо работает под VCL, но под KOL всё сьезжает сначала на одну позицию потом на две и так далее!!

---

Страницы: 1 вся ветка

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



Память: 0.48 MB
Время: 0.02 c