Changeset 16


Ignore:
Timestamp:
Jul 15, 2015, 8:32:42 AM (9 years ago)
Author:
chronos
Message:
  • Modified: Execute get log and get status silently without dialog.
Location:
trunk
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/Backends/Subversion/USubversion.pas

    r15 r16  
    142142  NewItem := nil;
    143143  Log.Clear;
     144  SilentExecution := True;
    144145  Execute(['log', FileName, '-v']);
     146  SilentExecution := False;
    145147  for I := 0 to ExecutionOutput.Count - 1 do begin
    146148    Line := Trim(ExecutionOutput[I]);
    … …  
    187189begin
    188190  Status.Clear;
     191  SilentExecution := True;
    189192  Execute(['status', '--xml', '-v']);
     193  SilentExecution := False;
    190194  S := TStringStream.Create(ExecutionOutput.Text);
    191195  try

  • trunk/Forms/UFormConsole.pas

    r13 r16  
    6262procedure TFormConsole.FormShow(Sender: TObject);
    6363begin
    64   Memo1.Clear;
    6564  ButtonAbort.Enabled := False;
    6665  Timer1.Enabled := True;
    … …  
    101100    Aborted := False;
    102101    ButtonAbort.Enabled := True;
     102    Log.Clear;
     103    Memo1.Clear;
    103104    if WorkingDir <> '' then
    104105      Process.CurrentDirectory := WorkingDir;
    … …  
    124125          Line := Copy(Text, 1, Pos(LineEnding, Text) - 1);
    125126          Delete(Text, 1, Length(Line) + Length(LineEnding));
    126           Memo1.Lines.Add(Line);
     127          if Visible then Memo1.Lines.Add(Line);
     128          Log.Add(Line);
    127129        end;
    128130      end;
    … …  
    136138          Line := Copy(Text, 1, Pos(LineEnding, Text) - 1);
    137139          Delete(Text, 1, Length(Line) + Length(LineEnding));
    138           Memo1.Lines.Add(Line);
     140          if Visible then Memo1.Lines.Add(Line);
     141          Log.Add(Line);
    139142        end;
    140143      end;
    … …  
    143146    end;
    144147  finally
    145     Memo1.Lines.Add(Text);
     148    if Visible then Memo1.Lines.Add(Text);
     149    Log.Add(Text);
    146150    FreeAndNil(Process);
    147151  end;
    148   Log.Assign(Memo1.Lines);
    149152  ButtonAbort.Enabled := False;
    150153  //ModalResult := mrOK;

  • trunk/Units/UVCS.pas

    r15 r16  
    6262    Password: string;
    6363    Email: string;
     64    SilentExecution: Boolean;
    6465    ExecutionOutput: TStringList;
    6566    procedure Checkout; virtual;
    … …  
    204205  if DirectoryExistsUTF8(Path) then FormConsole.WorkingDir := Path
    205206    else FormConsole.WorkingDir := '';
    206   FormConsole.ShowModal;
     207  if SilentExecution then FormConsole.Perform
     208    else FormConsole.ShowModal;
    207209  ExecutionOutput.Assign(FormConsole.Log);
    208210end;

  • trunk/VCSCommander.lpi

    r15 r16  
    9595        <HasResources Value="True"/>
    9696        <ResourceBaseClass Value="Form"/>
    97         <UnitName Value="UFormMain"/>
    9897      </Unit1>
    9998      <Unit2>
    … …  
    103102        <HasResources Value="True"/>
    104103        <ResourceBaseClass Value="DataModule"/>
    105         <UnitName Value="UCore"/>
    106104      </Unit2>
    107105      <Unit3>
    … …  
    111109        <HasResources Value="True"/>
    112110        <ResourceBaseClass Value="Form"/>
    113         <UnitName Value="UFormBrowse"/>
    114111      </Unit3>
    115112      <Unit4>
    116113        <Filename Value="Units/UVCS.pas"/>
    117114        <IsPartOfProject Value="True"/>
    118         <UnitName Value="UVCS"/>
    119115      </Unit4>
    120116      <Unit5>
    … …  
    124120        <HasResources Value="True"/>
    125121        <ResourceBaseClass Value="Form"/>
    126         <UnitName Value="UFormFavorites"/>
    127122      </Unit5>
    128123      <Unit6>
    … …  
    132127        <HasResources Value="True"/>
    133128        <ResourceBaseClass Value="Form"/>
    134         <UnitName Value="UFormSettings"/>
    135129      </Unit6>
    136130      <Unit7>
    137131        <Filename Value="Backends/Subversion/USubversion.pas"/>
    138132        <IsPartOfProject Value="True"/>
    139         <UnitName Value="USubversion"/>
    140133      </Unit7>
    141134      <Unit8>
    142135        <Filename Value="Units/UProject.pas"/>
    143136        <IsPartOfProject Value="True"/>
    144         <UnitName Value="UProject"/>
    145137      </Unit8>
    146138      <Unit9>
    … …  
    150142        <HasResources Value="True"/>
    151143        <ResourceBaseClass Value="Form"/>
    152         <UnitName Value="UFormConsole"/>
    153144      </Unit9>
    154145      <Unit10>
    … …  
    165156        <HasResources Value="True"/>
    166157        <ResourceBaseClass Value="Form"/>
    167         <UnitName Value="UFormCheckout"/>
    168158      </Unit11>
    169159      <Unit12>
    … …  
    178168        <Filename Value="Backends/CVS/UCVS.pas"/>
    179169        <IsPartOfProject Value="True"/>
    180         <UnitName Value="UCVS"/>
    181170      </Unit14>
    182171      <Unit15>
    … …  
    195184        <IsPartOfProject Value="True"/>
    196185        <ComponentName Value="FormTest"/>
     186        <HasResources Value="True"/>
    197187        <ResourceBaseClass Value="Form"/>
    198188      </Unit17>
    … …  
    201191        <IsPartOfProject Value="True"/>
    202192        <ComponentName Value="FormProjectGroup"/>
     193        <HasResources Value="True"/>
    203194        <ResourceBaseClass Value="Form"/>
    204195      </Unit18>
Note: See TracChangeset for help on using the changeset viewer.