Changeset 7 for trunk/UFormMain.pas

Timestamp:

Mar 30, 2016, 11:32:54 PM (8 years ago)

Author:

chronos

Message:

• Added: Main menu with available actions.
• Added: Basic functionality to save project to file and open project from file.

File:

• trunk/UFormMain.pas (modified) (6 diffs)

trunk/UFormMain.pas

@@ -15 +15 @@
   TFormMain = class(TForm)
     ABrowseDisk: TAction;
+    AFileOpen: TAction;
+    AFileSaveAs: TAction;
+    AExit: TAction;
     AScanOptions: TAction;
     AScanStart: TAction;
@@ -48 +51 @@
     ListView1: TListView;
     MainMenu1: TMainMenu;
+    MenuItem1: TMenuItem;
+    MenuItem2: TMenuItem;
+    MenuItem3: TMenuItem;
+    MenuItem4: TMenuItem;
+    MenuItem5: TMenuItem;
+    MenuItem6: TMenuItem;
+    MenuItem7: TMenuItem;
+    MenuItem8: TMenuItem;
     OpenDialog1: TOpenDialog;
+    SaveDialog1: TSaveDialog;
     Timer1: TTimer;
     procedure ABrowseDiskExecute(Sender: TObject);
+    procedure AExitExecute(Sender: TObject);
+    procedure AFileOpenExecute(Sender: TObject);
+    procedure AFileSaveAsExecute(Sender: TObject);
     procedure AScanOptionsExecute(Sender: TObject);
     procedure AScanStartExecute(Sender: TObject);
@@ -102 +117 @@
 begin
   PrefixMultiplier := TPrefixMultiplier.Create;
-  DriveScan := TDriveScan.Create;
+  Project := TProject.Create;
+  Project.Scans.Add(TDriveScan.Create);
+  DriveScan := TDriveScan(Project.Scans[0]);
   DriveScan.OnChange := DriveScanChange;
   DriveScan.OnTerminate := DriveScanTerminate;
-  Project := TProject.Create;
   EditDrive.Text := '/dev/sdb';
 end;
@@ -137 +153 @@
 begin
   OpenDialog1.Title := 'Select drive for scan';
+  OpenDialog1.DefaultExt := '';
   OpenDialog1.FileName := EditDrive.Text;
   if OpenDialog1.Execute then
@@ -142 +159 @@
 end;
 
+procedure TFormMain.AExitExecute(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TFormMain.AFileOpenExecute(Sender: TObject);
+begin
+  OpenDialog1.Title := 'Open stored scan project';
+  OpenDialog1.DefaultExt := '.cdp';
+  if OpenDialog1.Execute then begin
+    Project.LoadFromFile(OpenDialog1.FileName);
+  end;
+end;
+
+procedure TFormMain.AFileSaveAsExecute(Sender: TObject);
+begin
+  SaveDialog1.Title := 'Save scan project';
+  SaveDialog1.DefaultExt := '.cdp';
+  if SaveDialog1.Execute then begin
+    Project.SaveToFile(SaveDialog1.FileName);
+  end;
+end;
+
 procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
 begin
@@ -150 +190 @@
   Timer1.Enabled := False;
   FreeAndNil(Project);
-  FreeAndNil(DriveScan);
   FreeAndNil(PrefixMultiplier);
 end;