Главная страница
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.02 c
2-1207988074
Danco
2008-04-12 12:14
2008.05.11
Свернуть и Hide.


2-1208200976
Boris
2008-04-14 23:22
2008.05.11
Бинарный файл


2-1207909029
savyhinst
2008-04-11 14:17
2008.05.11
Как вызвать диалог выбора папки???


3-1196844514
em240
2007-12-05 11:48
2008.05.11
MsSql+Job+обработка ошибки


4-1188820743
Че
2007-09-03 15:59
2008.05.11
Служба