Changeset 9

Timestamp:

Apr 1, 2016, 8:25:11 AM (8 years ago)

Author:

chronos

Message:

• Added: Project save action in menu activated if project was modified.

Location:

trunk

Files:

• UFormMain.lfm (modified) (2 diffs)
• UFormMain.pas (modified) (10 diffs)
• UProject.pas (modified) (2 diffs)

trunk/UFormMain.lfm

@@ -285 +285 @@
       OnExecute = AFileOpenExecute
     end
+    object AFileSave: TAction
+      Caption = 'Save'
+      OnExecute = AFileSaveExecute
+    end
   end
   object OpenDialog1: TOpenDialog
@@ -302 +306 @@
         Action = AFileOpen
       end
+      object MenuItem9: TMenuItem
+        Action = AFileSave
+      end
       object MenuItem3: TMenuItem
         Action = AFileSaveAs

trunk/UFormMain.pas

@@ -15 +15 @@
   TFormMain = class(TForm)
     ABrowseDisk: TAction;
+    AFileSave: TAction;
     AFileOpen: TAction;
     AFileSaveAs: TAction;
@@ -59 +60 @@
     MenuItem7: TMenuItem;
     MenuItem8: TMenuItem;
+    MenuItem9: TMenuItem;
     OpenDialog1: TOpenDialog;
     SaveDialog1: TSaveDialog;
@@ -67 +69 @@
     procedure AFileOpenExecute(Sender: TObject);
     procedure AFileSaveAsExecute(Sender: TObject);
+    procedure AFileSaveExecute(Sender: TObject);
     procedure AScanOptionsExecute(Sender: TObject);
     procedure AScanStartExecute(Sender: TObject);
@@ -106 +109 @@
   UFormProject;
 
+resourcestring
+  SProjectModified = '(modified)';
+
 { TFormMain }
 
@@ -112 +118 @@
   LoadConfig;
   if FileExists(LastProjectFileName) then
-    ProjectOpen(LastProjectFileName);
-  Redraw;
-  UpdateInterface;
+    ProjectOpen(LastProjectFileName)
+  else begin
+    Redraw;
+    UpdateInterface;
+  end;
 end;
 
@@ -148 +156 @@
   DriveScan.WritePattern := StrToInt(EditPattern.Text);
   DriveScan.Start;
+  Project.Modified := True;
   UpdateInterface;
 end;
@@ -189 +198 @@
     Project.SaveToFile(SaveDialog1.FileName);
   end;
+end;
+
+procedure TFormMain.AFileSaveExecute(Sender: TObject);
+begin
+  if not FileExists(Project.FileName) then
+    AFileSaveAs.Execute
+    else Project.SaveToFile(Project.FileName);
 end;
 
@@ -255 +271 @@
 
 procedure TFormMain.UpdateInterface;
+var
+  Title: string;
 begin
   if Assigned(DriveScan) then begin
@@ -260 +278 @@
     AScanStop.Enabled := DriveScan.Terminated = False;
   end;
+  AFileSave.Enabled := Assigned(Project) and Project.Modified;
+  AFileSaveAs.Enabled := Assigned(Project);
+
+  Title := '';
+  if Assigned(Project) then
+    Title := Title + Project.FileName + ' - ';
+  Title := Title + Application.Title;
+  if Assigned(Project) and Project.Modified then
+    Title := Title + ' ' + SProjectModified;
+  Caption := Title;
 end;
 
@@ -283 +311 @@
   Project.LoadFromFile(FileName);
   LastProjectFileName := FileName;
+  UpdateInterface;
+  Redraw;
 end;
 

trunk/UProject.pas

@@ -71 +71 @@
     Doc.Free;
   end;
+  Modified := False;
 end;
 
@@ -79 +80 @@
   NewNode: TDOMNode;
 begin
+  Modified := False;
   Self.FileName := FileName;
   ReadXMLFile(Doc, FileName);