Changeset 9 for trunk/Units/UProject.pas

Timestamp:

May 18, 2015, 11:49:39 PM (10 years ago)

Author:

chronos

Message:

• Added: Simple Bazaar backend.\n* Added: Support for backends dynamic registration.\n* Added: Backend selection in checkout form.

File:

• trunk/Units/UProject.pas (modified) (4 diffs)

trunk/Units/UProject.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UVCS;
+  Classes, SysUtils, UVCS, UBackend;
 
 type
-
-  TVCSType = (vtNone, vtSubversion, vtCVS, vtMercurial, vtBazaar, vzGit);
 
 { TProject }
@@ -16 +14 @@
   TProject = class
   private
-    FVCSType: TVCSType;
+    FBackend: TBackend;
     function GetDirectory: string;
     function GetRepositoryURL: string;
     procedure SetDirectory(AValue: string);
     procedure SetRepositoryURL(AValue: string);
-    procedure SetVCSType(AValue: TVCSType);
+    procedure SetBackend(AValue: TBackend);
   public
     WorkingCopy: TWorkingCopy;
@@ -27 +25 @@
     constructor Create;
     destructor Destroy; override;
-    property VCSType: TVCSType read FVCSType write SetVCSType;
+    property Backend: TBackend read FBackend write SetBackend;
     property Directory: string read GetDirectory write SetDirectory;
     property RepositoryURL: string read GetRepositoryURL write SetRepositoryURL;
@@ -40 +38 @@
 { TProject }
 
-procedure TProject.SetVCSType(AValue: TVCSType);
+procedure TProject.SetBackend(AValue: TBackend);
 begin
-  if FVCSType = AValue then Exit;
-  FVCSType := AValue;
+  if FBackend = AValue then Exit;
+  FBackend := AValue;
   FreeAndNil(WorkingCopy);
-  case AValue of
-    vtSubversion: WorkingCopy := TSubversion.Create;
-    else WorkingCopy := TWorkingCopy.Create;
-  end;
+  WorkingCopy := AValue.WorkingCopyClass.Create;
 end;