Changeset 5 for trunk/UCore.pas

Timestamp:

Sep 1, 2014, 7:26:35 PM (10 years ago)

Author:

chronos

Message:

• Added: Form for console window. Working copy actions will call command line tool to perform operation.

File:

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

trunk/UCore.pas

@@ -15 +15 @@
   TCore = class(TDataModule)
     AAbout: TAction;
+    ACommandUpdate: TAction;
+    ACommandCleanup: TAction;
+    ACommandCheckout: TAction;
+    ACommandCommit: TAction;
+    ACommandStatus: TAction;
     AProjectClose: TAction;
     ActionList1: TActionList;
@@ -24 +29 @@
     ImageList1: TImageList;
     OpenDialog1: TOpenDialog;
+    procedure ACommandCheckoutExecute(Sender: TObject);
+    procedure ACommandCleanupExecute(Sender: TObject);
+    procedure ACommandCommitExecute(Sender: TObject);
+    procedure ACommandUpdateExecute(Sender: TObject);
     procedure AProjectCloseExecute(Sender: TObject);
     procedure AProjectOpenExecute(Sender: TObject);
@@ -89 +98 @@
 end;
 
+procedure TCore.ACommandUpdateExecute(Sender: TObject);
+begin
+  Project.WorkingCopy.Update;
+end;
+
+procedure TCore.ACommandCleanupExecute(Sender: TObject);
+begin
+  Project.WorkingCopy.CleanUp;
+end;
+
+procedure TCore.ACommandCheckoutExecute(Sender: TObject);
+begin
+  Project.WorkingCopy.Checkout;
+end;
+
+procedure TCore.ACommandCommitExecute(Sender: TObject);
+begin
+  Project.WorkingCopy.Commit;
+end;
+
 end.