paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 18:58:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit highlighter: fixed a null range issue from revision 19048 #10773be327

Browse Source 
git-svn-id: trunk@19049 -
This commit is contained in:
martin 2009-03-20 23:58:35 +00:00
parent 10773be327
commit c840c93831
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/synedit/synhighlighterpas.pp
View File

@ -1629,6 +1629,8 @@ begin
CompilerMode:=pcmDelphi;
{$ENDIF}
SetAttributesOnChange({$IFDEF FPC}@{$ENDIF}DefHighlightChange);
if hcCodeFolding in Capabilities then
RootCodeFoldBlock.BlockType := Pointer(PtrInt(cfbtNone));
InitIdent;
MakeMethodTables;
@ -2347,7 +2349,7 @@ function TSynPasSyn.GetWordTriplet(LogicalCaret: TPoint; Lines: TSynEditStrings;
Next;
end;
end;
// Search previous lines
// Search next lines
BeginX2 := 0;
inc(Result);
if Result < c-1 then begin
@ -2700,8 +2702,8 @@ end;
procedure TSynPasSynRange.Assign(Src: TSynCustomHighlighterRange);
begin
inherited Assign(Src);
if (Src<>nil) and (Src<>TSynCustomHighlighterRange(NullRange)) then begin
inherited Assign(Src);
FMode:=TSynPasSynRange(Src).FMode;
FBracketNestLevel:=TSynPasSynRange(Src).FBracketNestLevel;
FMinimumCodeFoldBlockLevel := TSynPasSynRange(Src).FMinimumCodeFoldBlockLevel;