Changeset 37 for branches/topdown/FormMain.pas

Timestamp:

Jun 30, 2023, 3:29:14 PM (11 months ago)

Author:

chronos

Message:

• Modified: Simplified unit names.

File:

• branches/topdown/FormMain.pas (moved) (moved from branches/topdown/UFormMain.pas ) (5 diffs)

branches/topdown/FormMain.pas

@@ -1 @@
-unit UFormMain;
+unit FormMain;
 
 interface
@@ -5 +5 @@
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls,
-  USystem;
+  OsSystem, FormMenu;
 
 type
@@ -20 +20 @@
     procedure FormShow(Sender: TObject);
   private
+    FormMenu: TFormMenu;
     procedure TaskButtonClick(Sender: TObject);
     procedure TasksChange(Sender: TObject);
     procedure ReloadTasks;
-  public
   end;
 
@@ -35 +35 @@
 
 uses
-  UAppCalc, UAppFileManager, UAppTextEditor,
-  UFormMenu;
+  AppCalc, AppFileManager, AppTextEditor;
 
 { TFormMain }
@@ -95 +94 @@
   BaseSystem.Apps.AddNew('Text editor', TFormTextEditor);
   BaseSystem.Tasks.OnChange := TasksChange;
+
+  FormMenu := TFormMenu.Create(nil);
 end;
 
 procedure TFormMain.FormDestroy(Sender: TObject);
 begin
+  FreeAndNil(FormMenu);
 end;