Changeset 47 for branches/ByteArray/Forms/FormSourceEditor.pas

Timestamp:

Oct 25, 2023, 12:33:07 AM (7 months ago)

Author:

chronos

Message:

• Added: Common package.
• Modified: Improved BigInt class.

File:

• branches/ByteArray/Forms/FormSourceEditor.pas (modified) (4 diffs)

branches/ByteArray/Forms/FormSourceEditor.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, FormMessages,
-  FormAssembler;
+  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, Menus,
+  ActnList, FormMessages, FormAssembler, Project;
 
 type
@@ -12 +12 @@
 
   TFormSourceEditor = class(TForm)
+    AClose: TAction;
+    ANew: TAction;
+    ASaveAs: TAction;
+    ASave: TAction;
+    AOpenRecent: TAction;
+    AOpen: TAction;
+    AExit: TAction;
+    ActionList1: TActionList;
+    MainMenu1: TMainMenu;
+    MenuItem1: TMenuItem;
+    MenuItem2: TMenuItem;
+    MenuItem3: TMenuItem;
+    MenuItem4: TMenuItem;
+    MenuItem5: TMenuItem;
+    MenuItem6: TMenuItem;
+    MenuItem7: TMenuItem;
+    MenuItem8: TMenuItem;
+    Separator1: TMenuItem;
     PanelBottom: TPanel;
     PanelCenter: TPanel;
     Splitter1: TSplitter;
+    procedure ACloseExecute(Sender: TObject);
+    procedure AExitExecute(Sender: TObject);
+    procedure ANewExecute(Sender: TObject);
+    procedure AOpenExecute(Sender: TObject);
+    procedure ASaveAsExecute(Sender: TObject);
+    procedure ASaveExecute(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
-  private
-
   public
     FormMessages: TFormMessages;
     FormAssembler: TFormAssembler;
+    Project: TProject;
     procedure DockInit;
+    procedure UpdateInterface;
   end;
 
@@ -41 +65 @@
   FormAssembler := TFormAssembler.Create(nil);
   FormMessages.OnSelect := FormAssembler.Select;
+end;
+
+procedure TFormSourceEditor.AExitExecute(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TFormSourceEditor.ANewExecute(Sender: TObject);
+begin
+  Project.New;
+end;
+
+procedure TFormSourceEditor.ACloseExecute(Sender: TObject);
+begin
+  Project.Close;
+end;
+
+procedure TFormSourceEditor.AOpenExecute(Sender: TObject);
+var
+  OpenDialog: TOpenDialog;
+begin
+  OpenDialog := TOpenDialog.Create(nil);
+  try
+    if OpenDialog.Execute then
+      Project.Open(OpenDialog.FileName);
+  finally
+    OpenDialog.Free;
+  end;
+end;
+
+procedure TFormSourceEditor.ASaveAsExecute(Sender: TObject);
+var
+  SaveDialog: TSaveDialog;
+begin
+  SaveDialog := TSaveDialog.Create(nil);
+  try
+    if SaveDialog.Execute then
+      Project.SaveAs(SaveDialog.FileName);
+  finally
+    SaveDialog.Free;
+  end;
+end;
+
+procedure TFormSourceEditor.ASaveExecute(Sender: TObject);
+begin
+  Project.Save;
 end;
 
@@ -62 +132 @@
 end;
 
+procedure TFormSourceEditor.UpdateInterface;
+begin
+
+end;
+
 end.