paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-23 02:19:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Codefolding for user-selected blocks (Not saved to session) fix fold-popup-menu

Browse Source 
git-svn-id: trunk@30155 -
This commit is contained in:
martin 2011-04-03 14:48:33 +00:00
parent 71b29ef3e4
commit a7641e812a
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/synedit/syneditfoldedview.pp
View File

@ -3926,14 +3926,13 @@ end;
function TSynEditFoldedView.OpenFoldCount(aStartIndex: Integer): Integer; function TSynEditFoldedView.OpenFoldCount(aStartIndex: Integer): Integer;
// Todo: move entirely to FoldProvider // Todo: move entirely to FoldProvider
//var var
// hl: TSynCustomFoldHighlighter; hl: TSynCustomFoldHighlighter;
begin begin
Result := FoldProvider.FoldOpenCount(aStartIndex); hl := TSynCustomFoldHighlighter(HighLighter);
//hl := TSynCustomFoldHighlighter(HighLighter); if not assigned(hl) then
//if not assigned(hl) then exit(-1);
// exit(-1); Result := hl.FoldNestCount(AStartIndex-1) + FoldProvider.FoldOpenCount(AStartIndex);
//Result := hl.FoldNestCount(AStartIndex-1) + FoldProvider.FoldOpenCount(AStartIndex);
end; end;
function TSynEditFoldedView.OpenFoldInfo(aStartIndex, ColIndex: Integer): TFoldViewNodeInfo; function TSynEditFoldedView.OpenFoldInfo(aStartIndex, ColIndex: Integer): TFoldViewNodeInfo;