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

trunk/Units/UVCS.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils;
+  Classes, SysUtils, FileUtil;
 
 type
@@ -15 +15 @@
   private
     FPath: string;
+    FRepositoryURL: string;
     procedure SetPath(AValue: string);
+    procedure SetRepositoryURL(AValue: string);
   protected
     procedure ExecuteProcess(Command: string; Parameters: TStrings); virtual;
@@ -26 +28 @@
     procedure Merge; virtual;
     procedure Refresh; virtual;
+    property RepositoryURL: string read FRepositoryURL write SetRepositoryURL;
     property Path: string read FPath write SetPath;
   end;
@@ -48 +51 @@
 end;
 
+procedure TWorkingCopy.SetRepositoryURL(AValue: string);
+begin
+  if FRepositoryURL=AValue then Exit;
+  FRepositoryURL:=AValue;
+end;
+
 procedure TWorkingCopy.ExecuteProcess(Command: string; Parameters: TStrings);
 begin
   FormConsole.Executable := Command;
   FormConsole.Parameters.Assign(Parameters);
-  FormConsole.WorkingDir := Path;
+  if DirectoryExistsUTF8(Path) then FormConsole.WorkingDir := Path
+    else FormConsole.WorkingDir := '';
   FormConsole.ShowModal;
 end;