Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "KOL";
Текущий архив: 2004.06.27;
Скачать: [xml.tar.bz2];

Вниз

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

Форум: "KOL";
Текущий архив: 2004.06.27;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.033 c
1-1087166154
Mobias
2004-06-14 02:35
2004.06.27
как изменить


14-1086789420
Terminator
2004-06-09 17:57
2004.06.27
Где получить кредит?


6-1083690307
Alpupil
2004-05-04 21:05
2004.06.27
Ping


14-1086946641
karlsn
2004-06-11 13:37
2004.06.27
где скачать delphiX под 7 дельфи???


4-1084895360
ДиМаньяк
2004-05-18 19:49
2004.06.27
Пограммирование мини АТС





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский