Changeset 26 for branches/topdown/UFormMenu.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)
• UFormMenu.pas (modified) (2 diffs)

branches/topdown/UFormMenu.pas

@@ -14 +14 @@
   TFormMenu = class(TForm)
     ButtonShutDown: TButton;
+    ButtonReboot: TButton;
     ListBoxApps: TListBox;
+    procedure ButtonRebootClick(Sender: TObject);
     procedure ButtonShutDownClick(Sender: TObject);
     procedure FormDeactivate(Sender: TObject);
@@ -71 +73 @@
 procedure TFormMenu.ButtonShutDownClick(Sender: TObject);
 begin
-  Application.Terminate;
+  Hide;
+  BaseSystem.ShutDown;
+end;
+
+procedure TFormMenu.ButtonRebootClick(Sender: TObject);
+begin
+  Hide;
+  BaseSystem.Reboot;
 end;