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

SynEdit: Fixing a crash when switching highlighter of a unit back to FreePascal

Browse Source 
git-svn-id: trunk@19228 -
This commit is contained in:
martin 2009-04-05 13:58:52 +00:00
parent 5350a5ecf5
commit 9eb3a0f03d
1 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
components/synedit/synedithighlighter.pp
View File

@ -897,18 +897,6 @@ begin
end; end;
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; procedure TSynCustomHighlighter.FreeHighlighterAttributes;
var var
i: integer; i: integer;
@ -1245,6 +1233,19 @@ begin
FCurrentRanges := TSynHighlighterRangeList(AValue.Ranges); FCurrentRanges := TSynHighlighterRangeList(AValue.Ranges);
end; 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); procedure TSynCustomHighlighter.SetDrawDividerLevel(const AValue: Integer);
begin begin
if FDrawDividerLevel = AValue then exit; if FDrawDividerLevel = AValue then exit;