source: trunk/Forms/UFormBrowse.pas

unit UFormBrowse;

{$mode delphi}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
  ExtCtrls, Menus, ActnList, UFindFile, UVCS, Contnrs, LazFileUtils;

type

  { TFormBrowse }

  TFormBrowse = class(TForm)
    AAdd: TAction;
    ALogShow: TAction;
    AOpen: TAction;
    AProperties: TAction;
    AUpdate: TAction;
    ARename: TAction;
    ADelete: TAction;
    ActionList1: TActionList;
    ListView1: TListView;
    MainMenu1: TMainMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    MenuItem7: TMenuItem;
    PopupMenu1: TPopupMenu;
    Splitter1: TSplitter;
    TreeView1: TTreeView;
    procedure AAddExecute(Sender: TObject);
    procedure ADeleteExecute(Sender: TObject);
    procedure ALogShowExecute(Sender: TObject);
    procedure AOpenExecute(Sender: TObject);
    procedure ARenameExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ListView1Data(Sender: TObject; Item: TListItem);
    procedure ListView1DblClick(Sender: TObject);
    procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
      Selected: Boolean);
  private
    FileList: TObjectList;
  public
    Directory: string;
    procedure ReloadList;
    procedure UpdateInterface;
  end;

var
  FormBrowse: TFormBrowse;

implementation

uses
  UCore, UFormLog;

{$R *.lfm}

{ TFormBrowse }

procedure TFormBrowse.ListView1Data(Sender: TObject; Item: TListItem);
begin
  if (Item.Index >= 0) and (Item.Index < FileList.Count) then
  with TFileStatus(FileList[Item.Index]) do begin
    Item.Caption := ExtractFileName(FileName);
    if State <> fssNonVersioned then begin
      Item.SubItems.Add(Version);
      Item.SubItems.Add(DateToStr(Time));
      Item.SubItems.Add(Author);
      Item.SubItems.Add(FileStatusStateText[State]);
    end;
  end;
end;

procedure TFormBrowse.ListView1DblClick(Sender: TObject);
begin

end;

procedure TFormBrowse.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
  UpdateInterface;
end;

procedure TFormBrowse.ADeleteExecute(Sender: TObject);
begin

end;

procedure TFormBrowse.ALogShowExecute(Sender: TObject);
begin
  FormLog.FileName := Directory + DirectorySeparator + ListView1.Selected.Caption;
  FormLog.ShowModal;
end;

procedure TFormBrowse.AAddExecute(Sender: TObject);
begin
  Core.Project.WorkingCopy.Add(Directory + DirectorySeparator + ListView1.Selected.Caption);
end;

procedure TFormBrowse.AOpenExecute(Sender: TObject);
begin
  if Assigned(ListView1.Selected) then
  with ListView1.Selected do begin
    if Caption = '..' then begin
      Directory := ExtractFileDir(Directory);
      ReloadList;
    end else
    if DirectoryExistsUTF8(Directory + DirectorySeparator + Caption) then begin
      Directory := Directory + DirectorySeparator + ListView1.Selected.Caption;
      ReloadList;
    end;
  end;
end;

procedure TFormBrowse.ARenameExecute(Sender: TObject);
var
  NewName: string;
begin
  if InputQuery('Rename', 'Enter new name', NewName) then
    Core.Project.WorkingCopy.Move(Directory + DirectorySeparator + ListView1.Selected.Caption, NewName);
end;

procedure TFormBrowse.FormCreate(Sender: TObject);
begin
  FileList := TObjectList.Create;
end;

procedure TFormBrowse.FormDestroy(Sender: TObject);
begin
  FileList.Free;
end;

procedure TFormBrowse.FormShow(Sender: TObject);
begin
  UpdateInterface;
end;

procedure TFormBrowse.ReloadList;
var
  FindFile: TFindFile;
  FoundFileList: TStrings;
  I: Integer;
  FileStatusList: TFileStatusList;
  NewFileItem: TFileStatus;
  FS: TFileStatus;
  RelativeName: string;
begin
  FileList.Clear;
  if Assigned(Core.Project) then begin
  FileStatusList := TFileStatusList.Create;
  try
  Core.Project.WorkingCopy.GetStatus(Directory, FileStatusList);

  if DirectoryExistsUTF8(Directory) then begin
    FindFile := TFindFile.Create(nil);
    try
      FindFile.Path := Directory;
      FindFile.FileMask := AllFilesMask;
      FindFile.InSubFolders := False;
      FoundFileList := FindFile.SearchForFiles;
      //FoundFileList.Sort;
      for I := 0 to FoundFileList.Count - 1 do begin
        NewFileItem := TFileStatus.Create;
        NewFileItem.FileName := FoundFileList[I];
        RelativeName := NewFileItem.FileName;
        if Copy(RelativeName, 1, Length(Core.Project.WorkingCopy.Path)) = Core.Project.WorkingCopy.Path then
          Delete(RelativeName, 1, Length(Core.Project.WorkingCopy.Path));
        if Copy(RelativeName, 1, 1) = DirectorySeparator then
          Delete(RelativeName, 1, Length(DirectorySeparator));
        FS := FileStatusList.SearchByName(RelativeName);
        if Assigned(FS) then begin
          NewFileItem.Assign(FS);
        end;
        FileList.Add(NewFileItem);
      end;
      for I := FileList.Count - 1 downto 0 do
        if ExtractFileName(TFileStatus(FileList[I]).FileName) = '.' then FileList.Delete(I);
      ListView1.Items.Count := FileList.Count;
    finally
      FindFile.Free;
    end;
  end else ListView1.Items.Count := 0;
  finally
    FileStatusList.Free;
  end;
  end;
  ListView1.Refresh;
end;

procedure TFormBrowse.UpdateInterface;
begin
  AAdd.Enabled := Assigned(ListView1.Selected);
  ADelete.Enabled := Assigned(ListView1.Selected);
  ARename.Enabled := Assigned(ListView1.Selected);
  AProperties.Enabled := Assigned(ListView1.Selected);
  AOpen.Enabled := Assigned(ListView1.Selected);
  ALogShow.Enabled := Assigned(ListView1.Selected);
end;

end.