Подсветка

← →
Германн © (2014-10-13 02:46) [80]

> jack128 © (12.10.14 14:39) [79]
>
> в можно фон во второй библиотеке сделать того же цвета,
> что фон сайта?
>

А почему? Чем тебе этот фон мешает?

← →
ProstoTak © (2014-10-13 09:34) [81]

а смысл в этой подсветке, код давно уже никто не выкладывает :)

← →
лукошко © (2014-10-13 11:58) [82]

Второй вариант отличный, цвет фона тоже устраивает - блок кода выделяется на фоне текста.

← →
Rouse_ © (2014-10-13 12:18) [83]

Вторая явно лучше, и фон тоже лучше оставить, чтоб выделялся.

← →
Rouse_ © (2014-10-13 12:19) [84]

Только ты проверь один момент, у этой подсветке при большом куске кода скролы появляются, я у себя их руками убирал.

← →
Rouse_ © (2014-10-13 12:21) [85]

Удалено модератором
Примечание: не получилось

← →
Rouse_ © (2014-10-13 13:45) [86]

Удалено модератором
Примечание: не получилось

← →
Rouse_ © (2014-10-13 13:46) [87]

{ Touch Input defines and functions } type { Touch input handle } HTOUCHINPUT = THandle; {$EXTERNALSYM HTOUCHINPUT} PTOUCHINPUT = ^TOUCHINPUT; TOUCHINPUT = record x: Integer; y: Integer; hSource: THandle; dwID: DWORD; dwFlags: DWORD; dwMask: DWORD; dwTime: DWORD; dwExtraInfo: ULONG_PTR; cxContact: DWORD; cyContact: DWORD; end; tagTOUCHINPUT = TOUCHINPUT; {$EXTERNALSYM tagTOUCHINPUT} TTouchInput = TOUCHINPUT; {$EXTERNALSYM TOUCHINPUT} {$EXTERNALSYM PTOUCHINPUT} { * Conversion of touch input coordinates to pixels * winuser.h: #define TOUCH_COORD_TO_PIXEL(l) ((l) / 100) } function TOUCH_COORD_TO_PIXEL(l: Integer): Integer; inline; {$EXTERNALSYM TOUCH_COORD_TO_PIXEL} { * Touch input flag values (TOUCHINPUT.dwFlags) } const TOUCHEVENTF_MOVE = $0001; {$EXTERNALSYM TOUCHEVENTF_MOVE} TOUCHEVENTF_DOWN = $0002; {$EXTERNALSYM TOUCHEVENTF_DOWN} TOUCHEVENTF_UP = $0004; {$EXTERNALSYM TOUCHEVENTF_UP} TOUCHEVENTF_INRANGE = $0008; {$EXTERNALSYM TOUCHEVENTF_INRANGE} TOUCHEVENTF_PRIMARY = $0010; {$EXTERNALSYM TOUCHEVENTF_PRIMARY} TOUCHEVENTF_NOCOALESCE = $0020; {$EXTERNALSYM TOUCHEVENTF_NOCOALESCE} TOUCHEVENTF_PEN = $0040; {$EXTERNALSYM TOUCHEVENTF_PEN} TOUCHEVENTF_PALM = $0080; {$EXTERNALSYM TOUCHEVENTF_PALM} { * Touch input mask values (TOUCHINPUT.dwMask) } TOUCHINPUTMASKF_TIMEFROMSYSTEM = $0001; // the dwTime field contains a system generated value {$EXTERNALSYM TOUCHINPUTMASKF_TIMEFROMSYSTEM} TOUCHINPUTMASKF_EXTRAINFO = $0002; // the dwExtraInfo field is valid {$EXTERNALSYM TOUCHINPUTMASKF_EXTRAINFO} TOUCHINPUTMASKF_CONTACTAREA = $0004; // the cxContact and cyContact fields are valid {$EXTERNALSYM TOUCHINPUTMASKF_CONTACTAREA} function GetTouchInputInfo(hTouchInput: HTOUCHINPUT; cInputs: UINT; pInputs: PTOUCHINPUT; cbSize: Integer): BOOL; stdcall; {$EXTERNALSYM GetTouchInputInfo} function CloseTouchInputHandle(hTouchInput: HTOUCHINPUT): BOOL; stdcall; {$EXTERNALSYM CloseTouchInputHandle} { RegisterTouchWindow flag values } const TWF_FINETOUCH = $00000001; {$EXTERNALSYM TWF_FINETOUCH} TWF_WANTPALM = $00000002; {$EXTERNALSYM TWF_WANTPALM} function RegisterTouchWindow(hwnd: HWND; ulFlags: Cardinal): BOOL; stdcall; {$EXTERNALSYM RegisterTouchWindow} function UnregisterTouchWindow(hwnd: HWND): BOOL; stdcall; {$EXTERNALSYM UnregisterTouchWindow} function IsTouchWindow(hwnd: HWND; pulFlags: PULONG): BOOL; stdcall; {$EXTERNALSYM IsTouchWindow} type PLastInputInfo = ^TLastInputInfo; {$EXTERNALSYM tagLASTINPUTINFO} tagLASTINPUTINFO = record cbSize: UINT; dwTime: DWORD; end; TLastInputInfo = tagLASTINPUTINFO; {$EXTERNALSYM GetLastInputInfo} function GetLastInputInfo(var plii: TLastInputInfo): BOOL; stdcall;

← →
MBo © (2014-10-13 14:32) [88]

Подсветка хорошая.
А как всё-таки будет с большими кусками кода?
Если, например, три тыщи строк загнать - ничего не сломается?

← →
MBo © (2014-10-13 14:33) [89]

>код давно уже никто не выкладывает
Это потому что у нас (велосипеда) подсветки не было ;)

← →
Kerk © (2014-10-13 14:38) [90]

> MBo © (13.10.14 14:32) [88]
>
> Подсветка хорошая.
> А как всё-таки будет с большими кусками кода?
> Если, например, три тыщи строк загнать - ничего не сломается?

Вроде не должно сломаться. Надо попробовать и посмотреть что будет :)
В принципе на форуме есть ограничение на длину поста, так что вот прям три тысячи строк запостить не удастся все равно.

← →
ProstoTak © (2014-10-13 14:57) [91]

> Это потому что у нас (велосипеда) подсветки не было ;)

Ах вон оно в чем дело... тогда срочно начинаем постить код)

← →
Jeer © (2014-10-13 16:12) [92]

По большому счету - все равно.
Я привык как к аскетичному стилю раскраски, так и в Notepad++, но там раскраска поинтереснее.

← →
Inovet © (2014-10-13 16:20) [93]

> [87] Rouse_ © (13.10.14 13:46)

У меня скрол всегда есть - двигает на полстрочки.

← →
лукошко © (2014-10-13 16:35) [94]

Пользуясь наличием множества браузеров под рукой, проверил на IE 11, Opera 12.17, Chrome 37 и Firefox 31/32
Скрипт раскраски работает везде нормально, горизонтальная полоса прокрутки появляется только при невлезании хотя бы одной строки кода, что крайне кошерно.

Но обнаружился косяк, подтверждаю: в Firefox 31 и 32 всегда присутствует вертикальная полоса прокрутки, которая сдвигает ровно один пиксель :o)

← →
DVM © (2014-10-13 17:20) [95]

(* Тестовая программа "в скобках" { Еще один тест *) program Project1; (*$APPTYPE CONSOLE*) (* Директива компилятора *) //{$APPTYPE CONSOLE} // Закомментированная директива компилятора (*{$APPTYPE CONSOLE}*) {Закомментированная директива компилятора} procedure Test; begin (* комментарий {вложенный коммент} *) { это коммент { однотипные комменты не вкладываются } Write({бла бла "{}"Test complete"); end;(*}*) begin (*bla bla) bla(*)Test; ReadLn; (*{"(* напоследок(*"*)//;-)))} *) (*){(*{ну} и "чтобы } добить" :)*) { {{ } {сме"рть (* парс"еру \m/ {{{} {Обрабатывать // это }// тоже } обязательно надо {(*) т.к. вдруг { кому-то приспичит (*(*)// " в заголовке модуля } { символьный рисунок сделать. Вроде ASCII-ART называется {{{{{{{{{{{} (*)еще раз тест }^_^{ (*) {//} end.

← →
DVM © (2014-10-13 17:22) [96]

не все гладко с подсветкой как видите

← →
Rouse_ © (2014-10-13 18:03) [97]

Дим, ну это сторонний парсер, еще и его двигло под парсинг таких вещей допиливать имх Ромке грустно будет :)

← →
ProstoTak © (2014-10-14 09:38) [98]

Удалено модератором
Примечание: Нарушение правил форума

← →
лукошко © (2014-10-14 12:09) [99]

В любом случае именно эту подсветку нужно оставлять, ИМХО. Керку респект :o)
Разве что для Firefox контейнер можно попробовать по высоте/отступами подвигать, если будет желание.

← →
Kerk © (2014-10-14 13:22) [100]

Ну раз у нас тут консенсус, то убрал первый вариант. Потом добавлю кнопку еще к форме комментария и наступит счастье.

← →
DVM © (2014-10-14 13:48) [101]

> Kerk © (14.10.14 13:22) [100]

> Потом добавлю кнопку еще к форме комментария и наступит
> счастье.

Версии Delphi можно добавить новые еще там + FreePascal. Насколько я понимаю это там должно быть элементарно.
Только их расплодилось столько, что выпадающий список нужен, а не радиокнопки. Или убрать вообще это.

Кстати, в этой подсветке еще есть возможность подсветить некоторые строки в коде, только я че-то не пойму как это сделать из самого сообщения.

← →
БарЛог © (2014-10-14 14:13) [102]

Ого. Класс.
Ну уж если даже Делфимастер эволюционировал, то и за будущее страны в целом я спокоен :)

← →
Andy BitOff © (2014-10-14 16:12) [103]

Баг в ветке "Задачка::Проверка бита" (http://delphimaster.net/view/15-1413270428/) начиная с сообщения [5] и заканчивая [11]
Или только у меня?
http://i.imgur.com/HDTpPmj.png
http://i.imgur.com/4SUoxla.png

Ой, сорри, там уже это обсудили :(

> Andy BitOff © (14.10.14 16:12) [103]

Не срабатывало автоматическое закрывание тэга. Я это теперь пофиксил.

Вот сейчас проверим.

WriteLn("А не закрою-ка я тэг");

Вот. Все нормально :)

Теперь еще меньше кода смотреть буду, а писать - тем более :(

> DVM © (14.10.14 13:48) [101]
>
> Кстати, в этой подсветке еще есть возможность подсветить
> некоторые строки в коде, только я че-то не пойму как это
> сделать из самого сообщения.

Через сообщение никак не сделать. Точнее сделать-то можно, но надо это в движке учесть.

> DVM © (14.10.14 13:48) [101]
>
>
> > Kerk © (14.10.14 13:22) [100]
>
>
> > Потом добавлю кнопку еще к форме комментария и наступит
> > счастье.
>
> Версии Delphi можно добавить новые еще там + FreePascal.
> Насколько я понимаю это там должно быть элементарно.
> Только их расплодилось столько, что выпадающий список нужен,
> а не радиокнопки. Или убрать вообще это.

Я бы убрал. Зачем оно нужно вообще.

Kerk, спасибо, а в этой классной зелёно-белой засветке можно шрифт поменять на Courier New?
( уж больно новомодно "велосипед" выглядит )

апп

Подсветка Найти похожие ветки