Changeset 26 for branches/topdown/UFormMain.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)
• UFormMain.pas (modified) (1 diff)

branches/topdown/UFormMain.pas

@@ -65 +65 @@
     RemoveControl(Controls[ControlCount - 1]);
   for I := 0 to BaseSystem.Tasks.Count - 1 do
-  with TTask(BaseSystem.Tasks[I]) do begin
+  with TTask(BaseSystem.Tasks[I]) do
+  if not Terminated then begin
     Button := TButton.Create(PanelTasks);
     Button.Align := alLeft;