Changeset 16 for trunk/Units

Timestamp:

Jul 15, 2015, 8:32:42 AM (9 years ago)

Author:

chronos

Message:

• Modified: Execute get log and get status silently without dialog.

File:

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

trunk/Units/UVCS.pas

@@ -62 +62 @@
     Password: string;
     Email: string;
+    SilentExecution: Boolean;
     ExecutionOutput: TStringList;
     procedure Checkout; virtual;
@@ -204 +205 @@
   if DirectoryExistsUTF8(Path) then FormConsole.WorkingDir := Path
     else FormConsole.WorkingDir := '';
-  FormConsole.ShowModal;
+  if SilentExecution then FormConsole.Perform
+    else FormConsole.ShowModal;
   ExecutionOutput.Assign(FormConsole.Log);
 end;