Changeset 14 for trunk/Forms/UFormMain.pas

Timestamp:

Dec 27, 2017, 7:41:26 PM (6 years ago)

Author:

chronos

Message:

• Fixed: Terminate correctly running apps before scheduler stopped.

File:

• trunk/Forms/UFormMain.pas (modified) (2 diffs)

trunk/Forms/UFormMain.pas

@@ -29 +29 @@
     procedure AFullscreenExecute(Sender: TObject);
     procedure AShowTerminalExecute(Sender: TObject);
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -124 +125 @@
 end;
 
+procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
+begin
+  Kernel.Terminate;
+end;
+
 procedure TFormMain.SwitchFullScreen;
 begin