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

trunk/Units/UProject.pas

@@ -18 +18 @@
     FVCSType: TVCSType;
     function GetDirectory: string;
+    function GetRepositoryURL: string;
     procedure SetDirectory(AValue: string);
+    procedure SetRepositoryURL(AValue: string);
     procedure SetVCSType(AValue: TVCSType);
   public
@@ -27 +29 @@
     property VCSType: TVCSType read FVCSType write SetVCSType;
     property Directory: string read GetDirectory write SetDirectory;
+    property RepositoryURL: string read GetRepositoryURL write SetRepositoryURL;
   end;
 
@@ -41 +44 @@
   if FVCSType = AValue then Exit;
   FVCSType := AValue;
-  WorkingCopy.Free;
+  FreeAndNil(WorkingCopy);
   case AValue of
     vtSubversion: WorkingCopy := TSubversion.Create;
@@ -53 +56 @@
 end;
 
+function TProject.GetRepositoryURL: string;
+begin
+  Result := WorkingCopy.RepositoryURL;
+end;
+
 procedure TProject.SetDirectory(AValue: string);
 begin
   WorkingCopy.Path := AValue;
+end;
+
+procedure TProject.SetRepositoryURL(AValue: string);
+begin
+  WorkingCopy.RepositoryURL := AValue;
 end;