added custom fold block, start on line comment ending with ---+, stop with line comment ending with ----

This commit is contained in:
Basile Burg 2014-11-26 04:58:20 +01:00
parent 525c3ea1e1
commit 4e4207ff55
1 changed files with 12 additions and 0 deletions

View File

@ -476,6 +476,18 @@ begin
if readDelim(reader, fTokStop, '/') then
fTokKind := tkDDocs;
readLine(reader, fTokStop);
if fTokStop - fTokStart > 4 then
begin
Dec(reader,4);
Dec(fTokStop,4);
if reader = '---+'#10 then
StartCodeFoldBlock(nil)
else if reader = '----'#10 then
EndCodeFoldBlock();
readLine(reader, fTokStop);
end;
exit;
end else readerReset;