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

IDE: fpdoceditor: fixed crash on destroy

Browse Source 
git-svn-id: trunk@25699 -
This commit is contained in:
mattias 2010-05-27 15:48:53 +00:00
parent 0da4663c8d
commit 924a185cfa
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/fpdoceditwindow.pas
View File

@ -303,8 +303,10 @@ begin
if assigned(CodeHelpBoss) then
CodeHelpBoss.RemoveAllHandlersOfObject(Self);
Application.RemoveAllHandlersOfObject(Self);
SourceEditorManagerIntf.UnRegisterChangeEvent(semEditorActivate, @DoEditorUpdate);
SourceEditorManagerIntf.UnRegisterChangeEvent(semEditorStatus, @DoEditorUpdate);
if SourceEditorManagerIntf<>nil then begin
SourceEditorManagerIntf.UnRegisterChangeEvent(semEditorActivate, @DoEditorUpdate);
SourceEditorManagerIntf.UnRegisterChangeEvent(semEditorStatus, @DoEditorUpdate);
end;
end;
procedure TFPDocEditor.FormKeyDown(Sender: TObject; var Key: Word;