Changeset 14

Timestamp:

Apr 2, 2016, 1:15:20 PM (8 years ago)

Author:

chronos

Message:

• Added: Open recent project menu.

Location:

trunk/Form

Files:

• UFormMain.lfm (modified) (2 diffs)
• UFormMain.pas (modified) (12 diffs)

trunk/Form/UFormMain.lfm

@@ -354 +354 @@
         Action = AFileOpen
       end
+      object MenuItemOpenRecent: TMenuItem
+        Caption = 'Open recent'
+      end
       object MenuItem9: TMenuItem
         Action = AFileSave
@@ -403 +406 @@
     top = 573
   end
+  object LastOpenedList1: TLastOpenedList
+    MaxCount = 10
+    left = 906
+    top = 167
+  end
 end

trunk/Form/UFormMain.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
   Menus, ComCtrls, ExtCtrls, ActnList, dateutils, syncobjs, UProject,
-  UDriveScan, UPrefixMultiplier, XMLConf, UPhysDrive;
+  UDriveScan, UPrefixMultiplier, ULastOpenedList, XMLConf, UPhysDrive;
 
 type
@@ -54 +54 @@
     LabelSize: TLabel;
     LabelSectorPerBlock: TLabel;
+    LastOpenedList1: TLastOpenedList;
     ListView1: TListView;
     MainMenu1: TMainMenu;
@@ -63 +64 @@
     MenuItem14: TMenuItem;
     MenuItem15: TMenuItem;
+    MenuItemOpenRecent: TMenuItem;
     MenuItem2: TMenuItem;
     MenuItem3: TMenuItem;
@@ -103 +105 @@
     LastBlockPos: Integer;
     RedrawPending: Boolean;
-    LastProjectFileName: string;
     LastDriveName: string;
+    procedure OpenRecentClick(Sender: TObject);
     procedure ReloadOperationList;
     procedure ProjectOpen(FileName: string);
@@ -147 +149 @@
   Detect;
   LoadConfig;
-  if FileExists(LastProjectFileName) then
-    ProjectOpen(LastProjectFileName)
+  if (LastOpenedList1.Items.Count > 0) then
+    ProjectOpen(LastOpenedList1.Items[0])
   else begin
     AFileNew.Execute;
@@ -279 +281 @@
   if SaveDialog1.Execute then begin
     Project.SaveToFile(SaveDialog1.FileName);
+    LastOpenedList1.AddItem(SaveDialog1.FileName);
+    LastOpenedList1.LoadToMenuItem(MenuItemOpenRecent, OpenRecentClick);
     UpdateInterface;
   end;
@@ -289 +293 @@
     else begin
       Project.SaveToFile(Project.FileName);
+      LastOpenedList1.AddItem(SaveDialog1.FileName);
+      LastOpenedList1.LoadToMenuItem(MenuItemOpenRecent, OpenRecentClick);
       UpdateInterface;
     end;
@@ -437 +443 @@
 begin
   XMLConfig1.SetValue('DriveName', LastDriveName);
-  XMLConfig1.SetValue('LastProjectFileName', LastProjectFileName);
+  LastOpenedList1.SaveToXMLConfig(XMLConfig1, 'RecentProjects');
 end;
 
@@ -443 +449 @@
 begin
   LastDriveName := XMLConfig1.GetValue('DriveName', '');
-  LastProjectFileName := XMLConfig1.GetValue('LastProjectFileName', '');
+  LastOpenedList1.LoadFromXMLConfig(XMLConfig1, 'RecentProjects');
 end;
 
@@ -449 +455 @@
 begin
   Redraw;
+end;
+
+procedure TFormMain.OpenRecentClick(Sender: TObject);
+begin
+  ProjectOpen(TMenuItem(Sender).Caption);
 end;
 
@@ -467 +478 @@
   ComboBoxDrive.ItemIndex := DriveList.IndexOf(DriveList.FindByModel(Project.DriveInfo.Model));
   if (ComboBoxDrive.ItemIndex = -1) and (ComboBoxDrive.Items.Count > 0) then ComboBoxDrive.ItemIndex := 0;
-  LastProjectFileName := FileName;
+  LastOpenedList1.AddItem(FileName);
+  LastOpenedList1.LoadToMenuItem(MenuItemOpenRecent, OpenRecentClick);
   UpdateInterface;
   Redraw;
@@ -483 +495 @@
 
 procedure TFormMain.Detect;
-var
-  I: Integer;
 begin
   DriveList.Detect;