Changeset 26 for branches/topdown/USystem.pas

Timestamp:

Aug 22, 2019, 11:01:15 AM (5 years ago)

Author:

chronos

Message:

• Added: Reboot button.
• Added: Check memory leaks.

Location:

branches/topdown

Files:

• . (modified) (1 prop)
• USystem.pas (modified) (4 diffs)

branches/topdown/USystem.pas

@@ -30 +30 @@
   TTask = class
     Form: TFormTask;
+    Terminated: Boolean;
+    destructor Destroy; override;
   end;
 
@@ -59 +61 @@
     constructor Create;
     destructor Destroy; override;
+    procedure ShutDown;
+    procedure Reboot;
   end;
 
@@ -67 +71 @@
 implementation
 
+{ TTask }
+
+destructor TTask.Destroy;
+begin
+  Form.Free;
+  inherited;
+end;
+
 { TFormTask }
 
 procedure TFormTask.Terminate;
 begin
-  BaseSystem.Tasks.Remove(Task);
-  Task := nil;
+  Task.Terminated := True;
+  Visible := False;
   BaseSystem.Tasks.DoOnChange;
 end;
@@ -137 +149 @@
 end;
 
+procedure TSystem.ShutDown;
+begin
+  Application.Terminate;
+end;
+
+procedure TSystem.Reboot;
+begin
+  Tasks.Clear;
+  Tasks.DoOnChange;
+end;
+
 initialization