Changeset 26

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)
• OS.lpi (modified) (1 diff)
• OS.lpr (modified) (1 diff)
• UFormMain.lfm (modified) (1 diff)
• UFormMain.pas (modified) (1 diff)
• UFormMenu.lfm (modified) (2 diffs)
• UFormMenu.pas (modified) (2 diffs)
• USystem.pas (modified) (4 diffs)

branches/topdown/OS.lpi

@@ -88 +88 @@
       <SyntaxOptions>
         <SyntaxMode Value="Delphi"/>
+        <IncludeAssertionCode Value="True"/>
       </SyntaxOptions>
     </Parsing>
+    <CodeGeneration>
+      <Checks>
+        <IOChecks Value="True"/>
+        <RangeChecks Value="True"/>
+        <OverflowChecks Value="True"/>
+        <StackChecks Value="True"/>
+      </Checks>
+      <VerifyObjMethodCallValidity Value="True"/>
+    </CodeGeneration>
     <Linking>
+      <Debugging>
+        <UseHeaptrc Value="True"/>
+      </Debugging>
       <Options>
         <Win32>

branches/topdown/OS.lpr

@@ -8 +8 @@
   {$ENDIF}{$ENDIF}
   Interfaces, // this includes the LCL widgetset
-  Forms, UFormMain, UApps, USystem, UAppCalc, UFormMenu, UAppFileManager
+  Forms, SysUtils, UFormMain, UApps, USystem, UAppCalc, UFormMenu, UAppFileManager
   { you can add units after this };
 
 {$R *.res}
 
+{$if declared(UseHeapTrace)}
+const
+  HeapTraceLog = 'heaptrclog.trc';
+{$ENDIF}
+
 begin
+  {$if declared(UseHeapTrace)}
+  DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
+  SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog);
+  {$ENDIF}
+
   RequireDerivedFormResource:=True;
   Application.Scaled:=True;

branches/topdown/UFormMain.lfm

@@ -34 +34 @@
     end
     object PanelTasks: TPanel
-      Left = 95
+      Left = 105
       Height = 34
       Top = 1
-      Width = 304
+      Width = 294
       Align = alClient
+      BorderSpacing.Left = 10
       BevelOuter = bvNone
       TabOrder = 1

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;

branches/topdown/UFormMenu.lfm

@@ -8 +8 @@
   ClientWidth = 262
   DesignTimePPI = 120
+  FormStyle = fsStayOnTop
   OnDeactivate = FormDeactivate
   OnShow = FormShow
@@ -35 +36 @@
     TabOrder = 1
   end
+  object ButtonReboot: TButton
+    Left = 112
+    Height = 31
+    Top = 362
+    Width = 94
+    Anchors = [akLeft, akBottom]
+    Caption = 'Reboot'
+    OnClick = ButtonRebootClick
+    TabOrder = 2
+  end
 end

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;
 

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