Changeset 8 for trunk/UCore.pas

Timestamp:

May 18, 2015, 12:15:30 AM (10 years ago)

Author:

chronos

Message:

• Added: Checkout form and ability to checkout new working copy.

File:

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

trunk/UCore.pas

@@ -17 +17 @@
     ACommandUpdate: TAction;
     ACommandCleanup: TAction;
-    ACommandCheckout: TAction;
     ACommandCommit: TAction;
     ACommandStatus: TAction;
-    Action1: TAction;
+    AProjectCheckout: TAction;
     AProjectClose: TAction;
     ActionList1: TActionList;
@@ -30 +29 @@
     ImageList1: TImageList;
     LastOpenedList1: TLastOpenedList;
+    LastOpenedListNewDir: TLastOpenedList;
+    LastOpenedListRepoURL: TLastOpenedList;
     OpenDialog1: TOpenDialog;
     XMLConfig1: TXMLConfig;
@@ -36 +37 @@
     procedure ACommandCommitExecute(Sender: TObject);
     procedure ACommandUpdateExecute(Sender: TObject);
+    procedure AProjectCheckoutExecute(Sender: TObject);
     procedure AProjectCloseExecute(Sender: TObject);
     procedure AProjectOpenExecute(Sender: TObject);
@@ -62 +64 @@
 
 uses
-  UFormMain, UFormBrowse, UFormSettings, UFormCommit;
+  UFormMain, UFormBrowse, UFormSettings, UFormCommit, UFormCheckout;
 
 { TCore }
@@ -100 +102 @@
 begin
   LastOpenedList1.LoadFromXMLConfig(XMLConfig1, 'LastOpenedProjects');
+  LastOpenedListRepoURL.LoadFromXMLConfig(XMLConfig1, 'LastOpenedRepoURL');
+  LastOpenedListNewDir.LoadFromXMLConfig(XMLConfig1, 'LastOpenedNewDir');
 end;
 
@@ -105 +109 @@
 begin
   LastOpenedList1.SaveToXMLConfig(XMLConfig1, 'LastOpenedProjects');
+  LastOpenedListRepoURL.SaveToXMLConfig(XMLConfig1, 'LastOpenedRepoURL');
+  LastOpenedListNewDir.SaveToXMLConfig(XMLConfig1, 'LastOpenedNewDir');
 end;
 
@@ -146 +152 @@
 begin
   FreeAndNil(Project);
+  FormBrowse.Directory := '';
+  FormBrowse.ReloadList;
   UpdateInterface;
 end;
@@ -154 +162 @@
 end;
 
+procedure TCore.AProjectCheckoutExecute(Sender: TObject);
+var
+  TempProject: TProject;
+begin
+  if LastOpenedListRepoURL.Items.Count > 0 then
+    FormCheckout.EditURL.Text := LastOpenedListRepoURL.Items[0];
+  if LastOpenedListNewDir.Items.Count > 0 then
+    FormCheckout.EditDir.Text := LastOpenedListNewDir.Items[0];
+  if FormCheckout.ShowModal = mrOk then begin
+    LastOpenedListRepoURL.AddItem(FormCheckout.EditURL.Text);
+    LastOpenedListNewDir.AddItem(FormCheckout.EditDir.Text);
+    TempProject := TProject.Create;
+    try
+      TempProject.VCSType := vtSubversion;
+      TempProject.Directory := FormCheckout.EditDir.Text;
+      TempProject.RepositoryURL := FormCheckout.EditURL.Text;
+      TempProject.WorkingCopy.Checkout;
+    finally
+      TempProject.Free;
+    end;
+    ProjectOpen(FormCheckout.EditDir.Text);
+  end;
+end;
+
 procedure TCore.ACommandCleanupExecute(Sender: TObject);
 begin
-  Project.WorkingCopy.CleanUp;
+  Project.WorkingCopy.Cleanup;
 end;
 
 procedure TCore.ACommandCheckoutExecute(Sender: TObject);
 begin
-  Project.WorkingCopy.Checkout;
+
 end;