2
0
Эх сурвалжийг харах

GUI: deregister TUserInterface events

Herman Schoenfeld 7 жил өмнө
parent
commit
46f29992c1

+ 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