Changeset 6 for trunk/Units/UVCS.pas

Timestamp:

May 6, 2015, 11:19:49 AM (10 years ago)

Author:

chronos

Message:

• Added: Now opened projects are remembered between application restarts.
• Added: Show basic list of files in selected project.
• Added: Packages Common and TemplateGenerics.

File:

• trunk/Units/UVCS.pas (modified) (2 diffs)

trunk/Units/UVCS.pas

@@ -17 +17 @@
     procedure SetPath(AValue: string);
   protected
-    procedure Execute(Command: string); virtual;
+    procedure ExecuteProcess(Command: string; Parameters: TStrings); virtual;
   public
     procedure Checkout; virtual;
@@ -48 +48 @@
 end;
 
-procedure TWorkingCopy.Execute(Command: string);
+procedure TWorkingCopy.ExecuteProcess(Command: string; Parameters: TStrings);
 begin
-  FormConsole.Executable := 'svn';
-  FormConsole.Parameters.Add(Command);
+  FormConsole.Executable := Command;
+  FormConsole.Parameters.Assign(Parameters);
   FormConsole.WorkingDir := Path;
-  FormConsole.Perform;
+  FormConsole.ShowModal;
 end;