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

improved TSynMultiSyn destruction

Browse Source 
git-svn-id: trunk@9128 -
This commit is contained in:
mattias 2006-04-15 14:56:19 +00:00
parent a70721d9df
commit 8fe43ea1a0
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/synedit/synhighlightermulti.pas
View File

@ -264,9 +264,9 @@ end;
destructor TSynMultiSyn.Destroy;
begin
fSchemes.Free;
FreeAndNil(fSchemes);
ClearMarkers;
fMarkers.Free;
FreeAndNil(fMarkers);
{ unhook notification handlers }
DefaultHighlighter := nil;
inherited Destroy;
@ -516,9 +516,10 @@ begin
then begin
if DefaultHighlighter = aComp then
DefaultHighlighter := nil;
for cScheme := 0 to Schemes.Count -1 do
if Schemes[ cScheme ].Highlighter = aComp then
Schemes[ cScheme ].Highlighter := nil;
if Schemes<>nil then
for cScheme := 0 to Schemes.Count -1 do
if Schemes[ cScheme ].Highlighter = aComp then
Schemes[ cScheme ].Highlighter := nil;
end;
end;