Вверх ↑
Ответов: 1304
Рейтинг: 405
#1: 2016-06-27 22:08:34 ЛС | профиль | цитата
flint2, во время борьбы с фолдингом нашёл полезную настройку, визуализацию отступов линией, можно думаю добавить.
#pas
// визуальная линия интервала отступа, 4 оптимально MAV
CP(SCI_SETINDENT, 4, 0);
// включить, отключить визуализацию линии
CP(SCI_SETINDENTATIONGUIDES, 1, 0);
setindent_.png
правда ещё не искал цветовые настройки для линии, но думаю где то они есть .
Теперь о компиляторе D4, он меня просто вымораживает
без этой строчки фолдинга не будет .
#pas
CP(SCI_SETPROPERTY, LongInt(PChar('fold')), LongInt(PChar('1')));
компиляция без проблем, но во время выполнения рунтайм 216, хоть убейся.
строчку вставляем в Init с вот таким прицепом,чтобы что то увидеть активируем нужные поля
#pas
// Margins
// number margin
CP(SCI_SetMarginTypen,0, SC_MARGIN_NUMBER);
CP(SCI_SetMarginWidthN,0, 36);
// sep
CP(SCI_SetMarginTypen,1, SC_MARGIN_SYMBOL) ;
CP(SCI_SetMarginWidthN,1, 12);
// folding margin
CP(SCI_SetMarginMaskN, 2, SC_MASK_FOLDERS);
CP(SCI_SetMarginWidthN,2, 18);
CP(SCI_SetMarginSensitiveN,2, 1);

CP(SCI_SETFOLDFLAGS, 16, 0);
CP(SCI_SETPROPERTY, LongInt(PChar('fold')), LongInt(PChar('1')));
Вот строчки из врапера, реализация процедуры SetProperty
#pas
procedure TScintilla.SetProperty(key : PChar; value : PChar);
begin
SPerform(SCI_SETPROPERTY, LongInt(key), LongInt(value));
end;
//соответственно вызов процедуры
SetProperty('fold', '1');
Ну что ещё не так?
Скомпилировать удалось на пакете FPC2(компилятор 2.6.4), без всяких проблем.
[flood]Эх, так и хочется соскочить на FPC тем более что системные библиотеки там подключены. Ладно не буду злобно и воинственно проповедовать антинаучный образ мыслей посмотрю лучше кино для успокоения нервов.[/flood]


карма: 3

0
файлы: 1setindent_.png [27.3KB] [910]