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

SynEdit Folding: Highlighter didn't reset bracket count (some folds where not available)

Browse Source 
git-svn-id: trunk@18070 -
This commit is contained in:
martin 2009-01-02 23:58:25 +00:00
parent 7b016fe8aa
commit d5955b6de5
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/synedit/synhighlighterpas.pp
View File

@ -118,6 +118,7 @@ type
FMode: TPascalCompilerMode; FMode: TPascalCompilerMode;
FBracketNestLevel : Integer; FBracketNestLevel : Integer;
public public
procedure Clear; override;
function Compare(Range: TSynCustomHighlighterRange): integer; override; function Compare(Range: TSynCustomHighlighterRange): integer; override;
procedure Assign(Src: TSynCustomHighlighterRange); override; procedure Assign(Src: TSynCustomHighlighterRange); override;
procedure IncBracketNestLevel; procedure IncBracketNestLevel;
@ -2395,6 +2396,12 @@ end;
{$IFDEF SYN_LAZARUS} {$IFDEF SYN_LAZARUS}
{ TSynPasSynRange } { TSynPasSynRange }
procedure TSynPasSynRange.Clear;
begin
inherited Clear;
FBracketNestLevel := 0;
end;
function TSynPasSynRange.Compare(Range: TSynCustomHighlighterRange): integer; function TSynPasSynRange.Compare(Range: TSynCustomHighlighterRange): integer;
begin begin
Result:=inherited Compare(Range); Result:=inherited Compare(Range);