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

SynEdit: unregister callback on destruction of markup-object

Browse Source 
git-svn-id: trunk@28794 -
This commit is contained in:
martin 2010-12-20 21:12:04 +00:00
parent feef5d8146
commit caad22e1db
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/synedit/syneditmarkup.pp
View File

@ -347,6 +347,8 @@ end;
destructor TSynEditMarkup.Destroy;
begin
// unregister caret handler
Caret := nil;
FreeAndNil(fMarkupInfo);
inherited Destroy;
end;
@ -454,8 +456,11 @@ var
i: LongInt;
begin
i := fMarkUpList.IndexOf(aMarkUp);
if i >= 0 then
if i >= 0 then begin
// unregister the caret handler, no longer controled by this synedit
TSynEditMarkup(fMarkUpList[i]).Caret := nil;
fMarkUpList.Delete(i);
end;
end;
function TSynEditMarkupManager.Count: Integer;
@ -587,6 +592,7 @@ var
i : integer;
begin
inherited SetCaret(AValue);
if fMarkUpList = nil then exit;
for i := 0 to fMarkUpList.Count-1 do
TSynEditMarkup(fMarkUpList[i]).SetCaret(AValue);
end;