Как сделать простейшую подсветку 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]

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

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

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

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 всё сьезжает сначала на одну позицию потом на две и так далее!!

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