Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.05.11;
Скачать: CL | DM;

Вниз

DMClient - посветка.   Найти похожие ветки 

 
guav ©   (2008-03-29 18:08) [0]

Удалось прикрутить ко-какую подсетку к DMCilent 3.0 beta 1.21

Идея навеяна easy © http://delphimaster.net/view/15-1206729020/

В клиенте есть фалй hint.js, загружаемый для каждой страницы, в него вписан код, выделяющий все keywords в тэге code тэгом . Не блеск - комментарии игнорируются, и кейворды подсвечиваются и в комментариях - но уже что-то.

document.body.onload = function()
{
 var codePieces = document.getElementsByTagName("CODE");
 var keywords = new Array("and", "array", "as", "asm", "begin", "case",
   "class", "const", "constructor", "destructor", "dispinterface", "div",
   "do", "downto", "else", "end", "except", "exports", "file",
   "finalization", "finally", "for", "function", "goto", "if",
   "implementation", "in", "inherited", "initialization", "inline",
   "interface", "is", "label", "library", "mod", "nil", "not", "object",
   "of", "or", "out", "packed", "procedure", "program", "property" ,"raise",
   "record", "repeat", "resourcestring", "set", "shl", "shr", "string",
   "then", "threadvar", "to", "try", "type", "unit", "until", "uses",
   "var", "while", "with", "xor");
 re = new RegExp("(^|[^a-z0-9_])(" + keywords.join("|") + ")([^a-z0-9_]|$)", "gim");
 for (var i = 0; i != codePieces.length; ++i)
 {
   codePieces[i].innerHTML =
     codePieces[i].innerHTML.replace(re, "$1$2$3");
 }  
}


 
guav ©   (2008-03-29 18:09) [1]

На ветке http://delphimaster.net/view/15-1206729020/ например хорошо работает.


 
guav ©   (2008-03-29 18:13) [2]

Ну да, забыл, что тэг и тут есть

> "$1$2$3");

читать как "$1$2$3);



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

Текущий архив: 2008.05.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
2-1207839420
Vanis
2008-04-10 18:57
2008.05.11
Отрисовка картинок


15-1206869807
sauron
2008-03-30 13:36
2008.05.11
Чьё у меня с монитором?


15-1206602366
@!!ex
2008-03-27 10:19
2008.05.11
VNC не хочет подключаться по интернету


15-1206091656
gidravlikus
2008-03-21 12:27
2008.05.11
База данных Access


6-1186234118
r.o.o.t
2007-08-04 17:28
2008.05.11
Организация тунеля помогите...