From 9eb3a0f03d39762acc4d5666102ec14554907549 Mon Sep 17 00:00:00 2001 From: martin Date: Sun, 5 Apr 2009 13:58:52 +0000 Subject: [PATCH] SynEdit: Fixing a crash when switching highlighter of a unit back to FreePascal git-svn-id: trunk@19228 - --- components/synedit/synedithighlighter.pp | 25 ++++++++++++------------ 1 file changed, 13 insertions(+), 12 deletions(-) diff --git a/components/synedit/synedithighlighter.pp b/components/synedit/synedithighlighter.pp index c45289801b..bbe966374c 100644 --- a/components/synedit/synedithighlighter.pp +++ b/components/synedit/synedithighlighter.pp @@ -897,18 +897,6 @@ begin end; end; -procedure TSynCustomHighlighter.AttachToLines(Lines: TSynEditStrings); -begin - Lines.Ranges := CreateRangeList; -end; - -procedure TSynCustomHighlighter.DetachFromLines(Lines: TSynEditStrings); -begin - if assigned(Lines.Ranges) then - Lines.Ranges.Free; - Lines.Ranges := nil; -end; - procedure TSynCustomHighlighter.FreeHighlighterAttributes; var i: integer; @@ -1245,6 +1233,19 @@ begin FCurrentRanges := TSynHighlighterRangeList(AValue.Ranges); end; +procedure TSynCustomHighlighter.AttachToLines(Lines: TSynEditStrings); +begin + Lines.Ranges := CreateRangeList; + FCurrentLines := nil; +end; + +procedure TSynCustomHighlighter.DetachFromLines(Lines: TSynEditStrings); +begin + if assigned(Lines.Ranges) then + Lines.Ranges.Free; + Lines.Ranges := nil; +end; + procedure TSynCustomHighlighter.SetDrawDividerLevel(const AValue: Integer); begin if FDrawDividerLevel = AValue then exit;