fix, hidden AV on quit

This commit is contained in:
Basile Burg 2015-03-12 21:40:02 +01:00
parent 5586fea3d9
commit f399fc6979
1 changed files with 14 additions and 0 deletions

View File

@ -54,6 +54,7 @@ type
procedure docClosing(aDoc: TCESynMemo); procedure docClosing(aDoc: TCESynMemo);
public public
constructor create; override; constructor create; override;
destructor destroy; override;
end; end;
(** (**
@ -69,6 +70,7 @@ type
procedure projCompiling(aProject: TCEProject); procedure projCompiling(aProject: TCEProject);
public public
constructor create; override; constructor create; override;
destructor destroy; override;
end; end;
implementation implementation
@ -154,6 +156,12 @@ begin
EntitiesConnector.addObserver(self); EntitiesConnector.addObserver(self);
end; end;
destructor TCEMRUDocumentList.destroy;
begin
EntitiesConnector.removeObserver(self);
inherited;
end;
procedure TCEMRUDocumentList.docNew(aDoc: TCESynMemo); procedure TCEMRUDocumentList.docNew(aDoc: TCESynMemo);
begin begin
end; end;
@ -178,6 +186,12 @@ begin
EntitiesConnector.addObserver(self); EntitiesConnector.addObserver(self);
end; end;
destructor TCEMRUProjectList.destroy;
begin
EntitiesConnector.removeObserver(self);
inherited;
end;
procedure TCEMRUProjectList.projNew(aProject: TCEProject); procedure TCEMRUProjectList.projNew(aProject: TCEProject);
begin begin
end; end;