Changeset 13 for trunk/UCore.pas

Timestamp:

May 30, 2015, 1:02:36 PM (9 years ago)

Author:

chronos

Message:

• Added: New test form where general functionality of selected backend can be tested.
• Added: Basic git backend implementation.
• Added: Project group form and ability to open/save group of projects as configuration to XML file.

File:

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

trunk/UCore.pas

@@ -19 +19 @@
     ACommandCommit: TAction;
     ACommandStatus: TAction;
+    AProjectGroupSaveAs: TAction;
+    AProjectGroupSave: TAction;
+    AProjectGroupClose: TAction;
+    AProjectGroupOpen: TAction;
+    AProjectGroupNew: TAction;
+    AViewTest: TAction;
     AProjectCheckout: TAction;
     AProjectClose: TAction;
@@ -28 +34 @@
     AViewFavorites: TAction;
     ImageList1: TImageList;
-    LastOpenedList1: TLastOpenedList;
+    LastOpenedListProject: TLastOpenedList;
     LastOpenedListNewDir: TLastOpenedList;
+    LastOpenedListProjectGroup: TLastOpenedList;
     LastOpenedListRepoURL: TLastOpenedList;
     OpenDialog1: TOpenDialog;
+    SaveDialog1: TSaveDialog;
     XMLConfig1: TXMLConfig;
     procedure ACommandCheckoutExecute(Sender: TObject);
@@ -39 +47 @@
     procedure AProjectCheckoutExecute(Sender: TObject);
     procedure AProjectCloseExecute(Sender: TObject);
+    procedure AProjectGroupCloseExecute(Sender: TObject);
+    procedure AProjectGroupNewExecute(Sender: TObject);
+    procedure AProjectGroupOpenExecute(Sender: TObject);
+    procedure AProjectGroupSaveAsExecute(Sender: TObject);
+    procedure AProjectGroupSaveExecute(Sender: TObject);
     procedure AProjectOpenExecute(Sender: TObject);
     procedure AQuitExecute(Sender: TObject);
     procedure ASettingsExecute(Sender: TObject);
+    procedure AViewTestExecute(Sender: TObject);
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
-    procedure LastOpenedList1Change(Sender: TObject);
+    procedure LastOpenedListProjectChange(Sender: TObject);
+    procedure LastOpenedListProjectGroupChange(Sender: TObject);
   private
     procedure UpdateInterface;
@@ -53 +68 @@
     Backends: TObjectList; // TList<TBackend>
     Project: TProject;
+    ProjectGroup: TProjectGroup;
+    UserName: string;
+    Email: string;
     procedure LoadConfig;
     procedure SaveConfig;
@@ -58 +76 @@
     procedure Done;
     procedure ProjectOpen(Directory: string);
+    procedure ProjectGroupOpen(FileName: string);
   end;
 
@@ -69 +88 @@
 uses
   UFormMain, UFormBrowse, UFormSettings, UFormCommit, UFormCheckout,
-  USubversion, UBazaar, UCVS;
+  USubversion, UBazaar, UCVS, UGit, UFormTest, UFormProjectGroup;
 
 { TCore }
@@ -80 +99 @@
 procedure TCore.ASettingsExecute(Sender: TObject);
 begin
-  FormSettings.ShowModal;
+  FormSettings.Load(XMLConfig1);
+  if FormSettings.ShowModal = mrOk then begin
+    FormSettings.Save(XMLConfig1);
+  end;
+end;
+
+procedure TCore.AViewTestExecute(Sender: TObject);
+begin
+  FormTest.Show;
 end;
 
@@ -95 +122 @@
 end;
 
-procedure TCore.LastOpenedList1Change(Sender: TObject);
-begin
-  LastOpenedList1.LoadToMenuItem(FormMain.MenuItemOpenRecent, FormMain.OpenRecentExecute);
+procedure TCore.LastOpenedListProjectChange(Sender: TObject);
+begin
+  LastOpenedListProject.LoadToMenuItem(FormMain.MenuItemOpenRecent, FormMain.OpenRecentExecute);
+end;
+
+procedure TCore.LastOpenedListProjectGroupChange(Sender: TObject);
+begin
+  LastOpenedListProjectGroup.LoadToMenuItem(FormMain.MenuItemRecentProjectGroup, FormMain.ProjectGroupOpenRecentExecute);
 end;
 
@@ -103 +135 @@
 begin
   AProjectClose.Enabled := Assigned(Project);
+  AProjectGroupClose.Enabled := Assigned(ProjectGroup);
+  AProjectGroupSave.Enabled := Assigned(ProjectGroup);
+  AProjectGroupSaveAs.Enabled := Assigned(ProjectGroup);
   FormMain.UpdateInterface;
 end;
@@ -111 +146 @@
   RegisterBackend(TBackendBazaar.Create);
   RegisterBackend(TBackendCVS.Create);
+  RegisterBackend(TBackendGit.Create);
 end;
 
@@ -130 +166 @@
 procedure TCore.LoadConfig;
 begin
-  LastOpenedList1.LoadFromXMLConfig(XMLConfig1, 'LastOpenedProjects');
+  LastOpenedListProject.LoadFromXMLConfig(XMLConfig1, 'LastOpenedProjects');
   LastOpenedListRepoURL.LoadFromXMLConfig(XMLConfig1, 'LastOpenedRepoURL');
   LastOpenedListNewDir.LoadFromXMLConfig(XMLConfig1, 'LastOpenedNewDir');
+  LastOpenedListProjectGroup.LoadFromXMLConfig(XMLConfig1, 'LastOpenedListProjectGroup');
+  UserName := XMLConfig1.GetValue('UserName', '');
+  Email := XMLConfig1.GetValue('Email', '');
 end;
 
 procedure TCore.SaveConfig;
 begin
-  LastOpenedList1.SaveToXMLConfig(XMLConfig1, 'LastOpenedProjects');
+  LastOpenedListProject.SaveToXMLConfig(XMLConfig1, 'LastOpenedProjects');
   LastOpenedListRepoURL.SaveToXMLConfig(XMLConfig1, 'LastOpenedRepoURL');
   LastOpenedListNewDir.SaveToXMLConfig(XMLConfig1, 'LastOpenedNewDir');
+  LastOpenedListProjectGroup.SaveToXMLConfig(XMLConfig1, 'LastOpenedListProjectGroup');
+  XMLConfig1.SetValue('UserName', UserName);
+  XMLConfig1.SetValue('Email', Email);
 end;
 
@@ -146 +188 @@
   RegisterBackends;
   LoadConfig;
-  if (LastOpenedList1.Items.Count > 0) and DirectoryExistsUTF8(LastOpenedList1.Items[0]) then
-    ProjectOpen(LastOpenedList1.Items[0]);
+  if (LastOpenedListProject.Items.Count > 0) and DirectoryExistsUTF8(LastOpenedListProject.Items[0]) then
+    ProjectOpen(LastOpenedListProject.Items[0]);
 end;
 
@@ -160 +202 @@
   Project := TProject.Create;
   Project.Backend := DetectBackend(Directory);
+  Project.WorkingCopy.UserName := Core.UserName;
+  Project.WorkingCopy.Email := Core.Email;
   if Assigned(Project.Backend) then begin
     Project.Directory := Directory;
@@ -165 +209 @@
     FormBrowse.Directory := Project.Directory;
     FormBrowse.ReloadList;
-    LastOpenedList1.AddItem(Project.Directory);
+    LastOpenedListProject.AddItem(Project.Directory);
   end else ShowMessage('Directory not recognized as working copy of any of supported VCS systems');
+end;
+
+procedure TCore.ProjectGroupOpen(FileName: string);
+begin
+  AProjectGroupClose.Execute;
+  ProjectGroup := TProjectGroup.Create;
+  ProjectGroup.FileName := FileName;
+  UpdateInterface;
+  FormProjectGroup.ReloadTree;
+  LastOpenedListProjectGroup.AddItem(FileName);
 end;
 
@@ -187 +241 @@
   FormBrowse.ReloadList;
   UpdateInterface;
+end;
+
+procedure TCore.AProjectGroupCloseExecute(Sender: TObject);
+begin
+  FreeAndNil(ProjectGroup);
+  UpdateInterface;
+  FormProjectGroup.ReloadTree;
+end;
+
+procedure TCore.AProjectGroupNewExecute(Sender: TObject);
+begin
+  AProjectClose.Execute;
+  ProjectGroup := TProjectGroup.Create;
+  ProjectGroup.FileName := 'New project group.vcgrp';
+  UpdateInterface;
+  FormProjectGroup.ReloadTree;
+end;
+
+procedure TCore.AProjectGroupOpenExecute(Sender: TObject);
+begin
+  if LastOpenedListProjectGroup.Items.Count > 0 then
+    OpenDialog1.FileName := LastOpenedListProjectGroup.Items[0];
+  if OpenDialog1.Execute then begin
+    AProjectClose.Execute;
+    ProjectGroupOpen(OpenDialog1.FileName);
+  end;
+end;
+
+procedure TCore.AProjectGroupSaveAsExecute(Sender: TObject);
+begin
+  SaveDialog1.FileName := ProjectGroup.FileName;
+  if SaveDialog1.Execute then begin
+    ProjectGroup.SaveToFile(SaveDialog1.FileName);
+    UpdateInterface;
+  end;
+end;
+
+procedure TCore.AProjectGroupSaveExecute(Sender: TObject);
+begin
+  if FileExistsUTF8(ProjectGroup.FileName) then ProjectGroup.SaveToFile(ProjectGroup.FileName)
+    else AProjectGroupSaveAs.Execute;
 end;