Changeset 5 for trunk/Units/UVCS.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/Units/UVCS.pas (modified) (3 diffs)

trunk/Units/UVCS.pas

@@ -16 +16 @@
     FPath: string;
     procedure SetPath(AValue: string);
+  protected
+    procedure Execute(Command: string); virtual;
   public
     procedure Checkout; virtual;
@@ -34 +36 @@
 implementation
 
+uses
+  UFormConsole;
 
 { TWorkingCopy }
@@ -39 +43 @@
 procedure TWorkingCopy.SetPath(AValue: string);
 begin
-  if FPath=AValue then Exit;
+  if FPath = AValue then Exit;
   FPath := AValue;
   Refresh;
+end;
+
+procedure TWorkingCopy.Execute(Command: string);
+begin
+  FormConsole.Executable := 'svn';
+  FormConsole.Parameters.Add(Command);
+  FormConsole.WorkingDir := Path;
+  FormConsole.Perform;
 end;