Changeset 6 for trunk/UCore.pas

Timestamp:

May 6, 2015, 11:19:49 AM (10 years ago)

Author:

chronos

Message:

• Added: Now opened projects are remembered between application restarts.
• Added: Show basic list of files in selected project.
• Added: Packages Common and TemplateGenerics.

File:

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

trunk/UCore.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, ActnList, Controls, UVCS, UProject, Forms,
-  Dialogs;
+  Classes, SysUtils, XMLConf, FileUtil, ActnList, Controls, UVCS, UProject,
+  ULastOpenedList, Forms, Dialogs;
 
 type
@@ -28 +28 @@
     AViewFavorites: TAction;
     ImageList1: TImageList;
+    LastOpenedList1: TLastOpenedList;
     OpenDialog1: TOpenDialog;
+    XMLConfig1: TXMLConfig;
     procedure ACommandCheckoutExecute(Sender: TObject);
     procedure ACommandCleanupExecute(Sender: TObject);
@@ -38 +40 @@
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
+    procedure LastOpenedList1Change(Sender: TObject);
   private
     procedure UpdateInterface;
   public
     Project: TProject;
+    procedure LoadConfig;
+    procedure SaveConfig;
+    procedure Init;
+    procedure Done;
+    procedure ProjectOpen(Directory: string);
   end;
 
@@ -52 +60 @@
 
 uses
-  UFormMain;
+  UFormMain, UFormBrowse;
 
 { TCore }
@@ -71 +79 @@
 end;
 
+procedure TCore.LastOpenedList1Change(Sender: TObject);
+begin
+  LastOpenedList1.LoadToMenuItem(FormMain.MenuItemOpenRecent, FormMain.OpenRecentExecute);
+end;
+
 procedure TCore.UpdateInterface;
 begin
   AProjectClose.Enabled := Assigned(Project);
   FormMain.UpdateInterface;
+end;
+
+procedure TCore.LoadConfig;
+begin
+  LastOpenedList1.LoadFromXMLConfig(XMLConfig1, 'LastOpenedProjects');
+end;
+
+procedure TCore.SaveConfig;
+begin
+  LastOpenedList1.SaveToXMLConfig(XMLConfig1, 'LastOpenedProjects');
+end;
+
+procedure TCore.Init;
+begin
+  LoadConfig;
+  if (LastOpenedList1.Items.Count > 0) and DirectoryExistsUTF8(LastOpenedList1.Items[0]) then
+    ProjectOpen(LastOpenedList1.Items[0]);
+end;
+
+procedure TCore.Done;
+begin
+  SaveConfig;
+end;
+
+procedure TCore.ProjectOpen(Directory: string);
+begin
+  AProjectClose.Execute;
+  Project := TProject.Create;
+  Project.VCSType := vtSubversion;
+  Project.Directory := Directory;
+  UpdateInterface;
+  FormBrowse.Directory := Project.Directory;
+  FormBrowse.ReloadList;
+  LastOpenedList1.AddItem(Project.Directory);
 end;
 
@@ -85 +132 @@
     else OldDir := '';
   if SelectDirectory('Open project', OldDir, Dir) then begin
-    AProjectClose.Execute;
-    Project := TProject.Create;
-    Project.Directory := Dir;
-    UpdateInterface;
+    ProjectOpen(Dir);
   end;
 end;