Changeset 20 for trunk/UCore.pas

Timestamp:

Apr 3, 2025, 10:37:14 PM (9 days ago)

Author:

chronos

Message:

• Added: Create repository action.

File:

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

trunk/UCore.pas

@@ -19 +19 @@
     ACommandCommit: TAction;
     ACommandStatus: TAction;
+    ARepositoryCreate: TAction;
     AProjectGroupSaveAs: TAction;
     AProjectGroupSave: TAction;
@@ -41 +42 @@
     SaveDialog1: TSaveDialog;
     XMLConfig1: TXMLConfig;
-    procedure ACommandCheckoutExecute(Sender: TObject);
     procedure ACommandCleanupExecute(Sender: TObject);
     procedure ACommandCommitExecute(Sender: TObject);
@@ -54 +54 @@
     procedure AProjectOpenExecute(Sender: TObject);
     procedure AQuitExecute(Sender: TObject);
+    procedure ARepositoryCreateExecute(Sender: TObject);
     procedure ASettingsExecute(Sender: TObject);
     procedure AViewTestExecute(Sender: TObject);
@@ -97 +98 @@
 end;
 
+procedure TCore.ARepositoryCreateExecute(Sender: TObject);
+var
+  TempProject: TProject;
+begin
+  {
+  if LastOpenedListRepoURL.Items.Count > 0 then
+    FormRepoCreate.EditURL.Text := LastOpenedListRepoURL.Items[0];
+  if LastOpenedListNewDir.Items.Count > 0 then
+    FormRepoCreate.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.Backend := TBackend(FormRepoCreate.ComboBox1.Items.Objects[FormRepoCreate.ComboBox1.ItemIndex]);
+      TempProject.Directory := FormRepoCreate.EditDir.Text;
+      TempProject.RepositoryURL := FormRepoCreate.EditURL.Text;
+      TempProject.Repository.Init;
+    finally
+      TempProject.Free;
+    end;
+  end;
+  }
+end;
+
 procedure TCore.ASettingsExecute(Sender: TObject);
 begin
@@ -321 +347 @@
 end;
 
-procedure TCore.ACommandCheckoutExecute(Sender: TObject);
-begin
-
-end;
-
 procedure TCore.ACommandCommitExecute(Sender: TObject);
 begin