Модераторы: Vitalik

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> SynEdit2.0.3stable + CodeFolding(MyStix0.31), совместный пакет 
:(
    Опции темы
LinkPar
Дата 9.6.2014, 11:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 1
Регистрация: 8.5.2013

Репутация: нет
Всего: нет



(http://sepa.spb.ru/d.php?syn/SynMix.rar) - ссылка дохлая, может кто-нибудь поделиться ?

UPD^

Нашёл. Если кому надо - http://i.sepa.spb.ru/_/syn/SynMix.rar

Это сообщение отредактировал(а) LinkPar - 9.6.2014, 12:10
PM MAIL   Вверх
FlutoMAX
Дата 28.11.2014, 19:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 15.2.2014

Репутация: нет
Всего: нет



Цитата(vmazz @ 25.2.2010,  05:18)
Подскажите знатоки SynMix`а, как мне задать регионы со СТРОГИМ соответствием линии.


Присоединяюсь к вопросу. Каким образом?
Например, нужно  с 4 по 8 стоку свернуть, вроде функции, наподобие 
Код

function TFoldRegions.Add(const FromLine, ToLine: Integer): TFoldRegionItem;

Это было бы крайне полезно  smile 

Это сообщение отредактировал(а) FlutoMAX - 28.11.2014, 19:06
PM MAIL   Вверх
FlutoMAX
Дата 28.11.2014, 21:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 15.2.2014

Репутация: нет
Всего: нет



Вопрос решил самостоятельно, 
в SynEdit.pas в классе TCustomSynEdit вынес private fAllFoldRanges из в protected и
метод InitCodeFolding определил как virtual, 
затем создал класс наследник TSynEdit, где этот метод переопределил.

Код

procedure TABCEdit.InitCodeFolding;
var
FoldRange: TSynEditFoldRange;

procedure AddFoldRange(const i: integer);
begin
if FoldRange=nil then exit;
FoldRange.ToLine:=i;
fAllFoldRanges.AddFold(FoldRange);
end;

var
i: integer;
s: string;
begin
fAllFoldRanges.Clear;
fAllFoldRanges.ClearAll;
FoldRange:=nil;
for i:=0 to Lines.Count-1 do begin
s:=Trim(Lines[i]);
if Length(s)>2 then
if (s[1]='V') and (s[2]=':') then begin
AddFoldRange(i);
FoldRange:=TSynEditFoldRange.Create;
FoldRange.FromLine:=i+1;
end;
end;
AddFoldRange(i);
end;


Необходимо было создать регионы по меткам V: для синтаксиса ABC нотации.
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | SynUniHighlighter и SynEdit | Следующая тема »


 




[ Время генерации скрипта: 0.3442 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.