paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-24 13:50:55 +01: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; destructor TSynMultiSyn.Destroy;
begin begin
fSchemes.Free; FreeAndNil(fSchemes);
ClearMarkers; ClearMarkers;
fMarkers.Free; FreeAndNil(fMarkers);
{ unhook notification handlers } { unhook notification handlers }
DefaultHighlighter := nil; DefaultHighlighter := nil;
inherited Destroy; inherited Destroy;
@ -516,9 +516,10 @@ begin
then begin then begin
if DefaultHighlighter = aComp then if DefaultHighlighter = aComp then
DefaultHighlighter := nil; DefaultHighlighter := nil;
for cScheme := 0 to Schemes.Count -1 do if Schemes<>nil then
if Schemes[ cScheme ].Highlighter = aComp then for cScheme := 0 to Schemes.Count -1 do
Schemes[ cScheme ].Highlighter := nil; if Schemes[ cScheme ].Highlighter = aComp then
Schemes[ cScheme ].Highlighter := nil;
end; end;
end; end;