Browse Source

GUI: deregister TUserInterface events

Herman Schoenfeld 7 years ago
parent
commit
46f29992c1
1 changed files with 7 additions and 1 deletions
  1. 7 1
      src/gui/UUserInterface.pas

+ 7 - 1
src/gui/UUserInterface.pas

@@ -358,8 +358,14 @@ begin
   // Exit application
   TLog.NewLog(ltinfo,Classname,'Quit Application - START');
   Try
-    step := 'Saving Settings';
+    step := 'Deregistering events';
     TSettings.OnChanged.Remove(OnSettingsChanged);
+    FUIRefreshTimer.Remove(OnUITimerRefresh);
+    FReceivedHelloMessage.Remove(OnReceivedHelloMessage);
+    FLoaded.Remove(OnLoaded);
+    FUIRefreshTimer.Remove(OnUITimerRefresh);
+
+    step := 'Saving Settings';
     TSettings.Save;
 
     // Destroys root form, non-modal forms and all their attached components