mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-22 11:39:30 +02:00
SynEdit: Fixing a crash when switching highlighter of a unit back to FreePascal
git-svn-id: trunk@19228 -
This commit is contained in:
parent
5350a5ecf5
commit
9eb3a0f03d
@ -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;
|
||||||
|
Loading…
Reference in New Issue
Block a user