dexed/src/u_miniexplorer.pas

unit u_miniexplorer;

{$I u_defines.inc}

interface

uses
  Classes, SysUtils, FileUtil, ListViewFilterEdit, Forms, strutils ,
  Controls, Graphics, ExtCtrls, Menus, ComCtrls, Buttons, lcltype, dialogs,
  u_widget, u_sharedres, u_common, u_interfaces, u_observer, LCLVersion,
  u_writableComponent, u_dubproject, u_ceproject, EditBtn, ShellCtrls,
  u_dialogs, u_synmemo, u_projutils, u_dsgncontrols, u_stringrange, Types;

type

  TExplorerDoubleClick = (openInside, openOutside);

  TMiniExplorerWidget = class;

  TMiniExplorerEditableOptions = class(TPersistent, IEditableOptions)
  private
    fDblClick: TExplorerDoubleClick;
    fContextExpand: boolean;
    fShowHidden: boolean;
    fExplorer: TMiniExplorerWidget;
    function optionedWantCategory(): string;
    function optionedWantEditorKind: TOptionEditorKind;
    function optionedWantContainer: TPersistent;
    procedure optionedEvent(event: TOptionEditorEvent);
    function optionedOptionsModified: boolean;
    procedure apply;
  published
    property doubleClick: TExplorerDoubleClick read fDblClick write fDblClick;
    property contextExpand: boolean read fContextExpand write fContextExpand;
    property showHidden: boolean read fShowHidden write fShowHidden default true;
  public
    constructor create(miniexpl: TMiniExplorerWidget);
    destructor destroy; override;
  end;

  TMiniExplorerOptions = class(TWritableLfmTextComponent)
  private
    fFavoriteFolders: TStringList;
    fSplitter1Position: integer;
    fSplitter2Position: integer;
    fLastFolder: string;
    fRootFolder: string;
    fDblClick: TExplorerDoubleClick;
    fContextExpand: boolean;
    fShowHidden: boolean;
    procedure setFavoriteFolders(value: TStringList);
  published
    property splitter1Position: integer read fSplitter1Position write fSplitter1Position;
    property splitter2Position: integer read fSplitter2Position write fSplitter2Position;
    property lastFolder: string read fLastFolder;
    property rootFolder: string read fRootFolder write fRootFolder;
    property favoriteFolders: TStringList read fFavoriteFolders write setFavoriteFolders;
    property doubleClick: TExplorerDoubleClick read fDblClick write fDblClick;
    property contextExpand: boolean read fContextExpand write fContextExpand;
    property showHidden: boolean read fShowHidden write fShowHidden default true;
  public
    constructor create(aOwner: TComponent); override;
    destructor destroy; override;
    procedure assign(source: TPersistent); override;
    procedure assignTo(target: TPersistent); override;
  end;

  { TMiniExplorerWidget }

  TMiniExplorerWidget = class(TDexedWidget, IProjectObserver, IDocumentObserver, IExplorer)
    btnAddFav: TDexedToolButton;
    btnDrive: TDexedToolButton;
    btnEdit: TDexedToolButton;
    btnParentFolder: TDexedToolButton;
    btnRemFav: TDexedToolButton;
    btnShellOpen: TDexedToolButton;
    lstFilter: TListViewFilterEdit;
    lstFav: TListView;
    Panel2: TPanel;
    lstFiles: TShellListView;
    mnuDrives: TPopupMenu;
    treeFolders: TShellTreeView;
    Splitter1: TSplitter;
    Splitter2: TSplitter;
    procedure btnDriveClick(Sender: TObject);
    procedure btnEditClick(Sender: TObject);
    procedure btnParentFolderClick(Sender: TObject);
    procedure btnShellOpenClick(Sender: TObject);
    procedure btnAddFavClick(Sender: TObject);
    procedure btnRemFavClick(Sender: TObject);
    procedure lstFavClick(Sender: TObject);
    procedure lstFavDeletion(Sender: TObject; Item: TListItem);
    procedure lstFavEnter(Sender: TObject);
    procedure lstFilesColumnClick(Sender: TObject; Column: TListColumn);
    procedure lstFilesDblClick(Sender: TObject);
    procedure lstFilesEnter(Sender: TObject);
    procedure lstFilesFileAdded(Sender: TObject; Item: TListItem);
    procedure lstFilterButtonClick(Sender: TObject);
    procedure lstFilterKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure Splitter2MouseWheel(Sender: TObject; Shift: TShiftState;
      WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
    procedure toolbarResize(Sender: TObject);
    procedure TreeEnter(Sender: TObject);
    procedure treeFoldersChange(Sender: TObject; Node: TTreeNode);
    procedure treeFoldersDblClick(Sender: TObject);
    procedure treeFoldersGetImageIndex(Sender: TObject; Node: TTreeNode);
    procedure treeFoldersGetSelectedIndex(Sender: TObject; Node: TTreeNode);
  private
    fMnxSubj: TMiniExplorerSubject;
    fProj: ICommonProject;
    fFreeProj: ICommonProject;
    fFavorites: TStringList;
    fLastFold: string;
    fLastListOrTree: TControl;
    fDblClick: TExplorerDoubleClick;
    fContextExpand: boolean;
    fEditableOptions: TMiniExplorerEditableOptions;
    fImages: TImageList;
    fFileListSortedColumnIndex: integer;
    fFileListSortDirection: TSortDirection;
    procedure filterFiles;
    procedure lstFavDblClick(Sender: TObject);
    procedure updateFavorites;
    procedure treeSetRoots;
    procedure favStringsChange(sender: TObject);
    procedure lstFavSelect(Sender: TObject; Item: TListItem; Selected: Boolean);
    procedure shellOpenSelected;
    procedure mnuDriveItemClick(sender: TObject);
    procedure mnuDriveSelect(sender: TObject);
    procedure compareFileList(Sender: TObject; Item1, Item2: TListItem; Data: Integer;
      var Compare: Integer);

    procedure projNew(project: ICommonProject);
    procedure projChanged(project: ICommonProject);
    procedure projClosing(project: ICommonProject);
    procedure projFocused(project: ICommonProject);
    procedure projCompiling(project: ICommonProject);
    procedure projCompiled(project: ICommonProject; success: boolean);

    procedure docNew(document: TDexedMemo);
    procedure docFocused(document: TDexedMemo);
    procedure docChanged(document: TDexedMemo);
    procedure docClosing(document: TDexedMemo);

    function singleServiceName: string;
    procedure browse(const location: string);
    function currentLocation: string;
  protected
    procedure setToolBarFlat(value: boolean); override;
  public
    constructor create(aOwner: TComponent); override;
    destructor destroy; override;
  end;

implementation
{$R *.lfm}

const
  OptsFname = 'miniexplorer.txt';


{$REGION TMiniExplorerEditableOptions}
constructor TMiniExplorerEditableOptions.create(miniexpl: TMiniExplorerWidget);
begin
  fExplorer := miniexpl;
  fShowHidden:=true;
  EntitiesConnector.addObserver(self);
end;

destructor TMiniExplorerEditableOptions.destroy;
begin
  EntitiesConnector.removeObserver(self);
  inherited;
end;

procedure TMiniExplorerEditableOptions.apply;
begin
  fExplorer.fContextExpand:= fContextExpand;
  fExplorer.fDblClick:= fDblClick;
  if fShowHidden then
  begin
    fExplorer.treeFolders.ObjectTypes := fExplorer.treeFolders.ObjectTypes + [otHidden];
    fExplorer.lstFiles.ObjectTypes := fExplorer.lstFiles.ObjectTypes + [otHidden];
  end
  else
  begin
    fExplorer.treeFolders.ObjectTypes := fExplorer.treeFolders.ObjectTypes - [otHidden];
    fExplorer.lstFiles.ObjectTypes := fExplorer.lstFiles.ObjectTypes - [otHidden];
  end;
  fExplorer.treeFolders.Refresh;
end;

function TMiniExplorerEditableOptions.optionedWantCategory(): string;
begin
  exit('Mini explorer');
end;

function TMiniExplorerEditableOptions.optionedWantEditorKind: TOptionEditorKind;
begin
  exit(oekGeneric);
end;

function TMiniExplorerEditableOptions.optionedWantContainer: TPersistent;
begin
  exit(self);
end;

procedure TMiniExplorerEditableOptions.optionedEvent(event: TOptionEditorEvent);
begin
  apply;
end;

function TMiniExplorerEditableOptions.optionedOptionsModified: boolean;
begin
  exit(false);
end;
{$ENDREGION}

{$REGION TMiniExplorerOptions ------------------------------------------------}
constructor TMiniExplorerOptions.create(aOwner: TComponent);
begin
  inherited;
  fFavoriteFolders := TStringList.Create;
  fShowHidden:=true;
end;

destructor TMiniExplorerOptions.destroy;
begin
  fFavoriteFolders.Free;
  inherited;
end;

procedure TMiniExplorerOptions.assign(source: TPersistent);
var
  widg: TMiniExplorerWidget;
begin
  if source is TMiniExplorerWidget then
  begin
    widg := TMiniExplorerWidget(source);
    fFavoriteFolders.Assign(widg.fFavorites);
    fLastFolder := widg.fLastFold;
    fRootFolder := widg.treeFolders.Root;
    fSplitter1Position := widg.Splitter1.GetSplitterPosition;
    fSplitter2Position := widg.Splitter2.GetSplitterPosition;
    fDblClick:= widg.fDblClick;
    fContextExpand:=widg.fContextExpand;
    fShowHidden:= otHidden in widg.lstFiles.ObjectTypes;
  end
  else inherited;
end;

procedure TMiniExplorerOptions.assignTo(target: TPersistent);
var
  widg: TMiniExplorerWidget;
begin
  if target is TMiniExplorerWidget then
  begin
    widg := TMiniExplorerWidget(target);
    widg.fFavorites.Assign(fFavoriteFolders);
    widg.fLastFold:=fLastFolder;
    widg.Splitter1.SetSplitterPosition(fSplitter1Position);
    widg.Splitter2.SetSplitterPosition(fSplitter2Position);
    widg.fDblClick := fDblClick;
    widg.fEditableOptions.fDblClick := fDblClick;
    widg.fContextExpand := fContextExpand;
    widg.fEditableOptions.fContextExpand := fContextExpand;
    widg.updateFavorites;
    if fShowHidden then
    begin
      widg.treeFolders.ObjectTypes := widg.treeFolders.ObjectTypes + [otHidden];
      widg.lstFiles.ObjectTypes := widg.lstFiles.ObjectTypes + [otHidden];
    end
    else
    begin
      widg.treeFolders.ObjectTypes := widg.treeFolders.ObjectTypes - [otHidden];
      widg.lstFiles.ObjectTypes := widg.lstFiles.ObjectTypes -[otHidden];
    end;
   if fRootFolder.isNotEmpty and fRootFolder.dirExists then
      widg.browse(fRootFolder)
   else if fLastFolder.isNotEmpty and fLastFolder.dirExists then
      widg.browse(fLastFolder);
  end
  else inherited;
end;

procedure TMiniExplorerOptions.setFavoriteFolders(value: TStringList);
begin
  fFavoriteFolders.Assign(value);
end;
{$ENDREGION}

{$REGION Standard Comp/Obj------------------------------------------------------}
constructor TMiniExplorerWidget.create(aOwner: TComponent);
var
  fname: string;
begin
  inherited;

  lstFiles.OnCompare := @compareFileList;
  fFileListSortDirection := sdAscending;
  fFileListSortedColumnIndex:=0;

  fImages := TImageList.Create(self);
  case GetIconScaledSize of
    iss16:
    begin
      fImages.Width := 16;
      fImages.Height := 16;
      treeFolders.Indent := 16;
      fImages.AddResourceName(HINSTANCE, 'DOCUMENT');
      fImages.AddResourceName(HINSTANCE, 'FOLDER');
      fImages.AddResourceName(HINSTANCE, 'FOLDER_STAR');
      fImages.AddResourceName(HINSTANCE, 'FOLDER_ADD');
      fImages.AddResourceName(HINSTANCE, 'FOLDER_DELETE');
      AssignPng(lstFilter.Glyph, 'FILTER_CLEAR');
    end;
    iss24:
    begin
      fImages.Width := 24;
      fImages.Height := 24;
      treeFolders.Indent := 24;
      fImages.AddResourceName(HINSTANCE, 'DOCUMENT24');
      fImages.AddResourceName(HINSTANCE, 'FOLDER24');
      fImages.AddResourceName(HINSTANCE, 'FOLDER_STAR24');
      fImages.AddResourceName(HINSTANCE, 'FOLDER_ADD24');
      fImages.AddResourceName(HINSTANCE, 'FOLDER_DELETE24');
      AssignPng(lstFilter.Glyph, 'FILTER_CLEAR24');
    end;
    iss32:
    begin
      fImages.Width := 32;
      fImages.Height := 32;
      treeFolders.Indent := 32;
      fImages.AddResourceName(HINSTANCE, 'DOCUMENT32');
      fImages.AddResourceName(HINSTANCE, 'FOLDER32');
      fImages.AddResourceName(HINSTANCE, 'FOLDER_STAR32');
      fImages.AddResourceName(HINSTANCE, 'FOLDER_ADD32');
      fImages.AddResourceName(HINSTANCE, 'FOLDER_DELETE32');
      AssignPng(lstFilter.Glyph, 'FILTER_CLEAR32');
    end;
  end;
  lstFav.SmallImages := fImages;

  treeFolders.Images := fImages;
  treeFolders.StateImages := fImages;

  lstFiles.SmallImages := fImages;
  {$IFNDEF WINDOWS}
  lstFiles.StateImages := fImages;
  {$ENDIF}
  lstFiles.OnEnter:=@lstFilesEnter;

  fEditableOptions:= TMiniExplorerEditableOptions.create(self);

  fFavorites := TStringList.Create;
  fFavorites.onChange := @favStringsChange;
  lstFav.OnSelectItem := @lstFavSelect;
  lstFav.OnDblClick := @lstFavDblClick;

  lstFilter.BorderSpacing.Left := ScaleX(182, 96);

  treeSetRoots;

  fname := getDocPath + OptsFname;
  if fname.fileExists then
    with TMiniExplorerOptions.create(nil) do
  try
    loadFromFile(fname);
    assignTo(self);
  finally
    free;
  end;

  fMnxSubj:= TMiniExplorerSubject.Create;
  EntitiesConnector.addObserver(self);
  EntitiesConnector.addSingleService(self);
end;

destructor TMiniExplorerWidget.destroy;
begin

  fMnxSubj.free;
  EntitiesConnector.removeObserver(self);
  with TMiniExplorerOptions.create(nil) do
  try
    assign(self);
    saveToFile(getDocPath + OptsFname);
  finally
    free;
  end;

  fEditableOptions.Free;
  fFavorites.Free;
  inherited;
end;

procedure TMiniExplorerWidget.setToolBarFlat(value: boolean);
begin
  inherited setToolBarFlat(value);
  lstFilter.Flat:=value;
end;
{$ENDREGION}

{$REGION IProjectObserver ----------------------------------------------------}
procedure TMiniExplorerWidget.projNew(project: ICommonProject);
begin
  fProj := project;
  if not project.inGroup then
    fFreeProj := project;
end;

procedure TMiniExplorerWidget.projChanged(project: ICommonProject);
begin
end;

procedure TMiniExplorerWidget.projClosing(project: ICommonProject);
begin
  fProj := nil;
  if project = fFreeProj then
    fFreeProj := nil;
end;

procedure TMiniExplorerWidget.projFocused(project: ICommonProject);
begin
  fProj := project;
  if not project.inGroup then
    fFreeProj := project
  else if fFreeProj = project then
    fFreeProj := nil;
  if visible and project.fileName.fileExists and fContextExpand then
    browse(project.fileName);
end;

procedure TMiniExplorerWidget.projCompiling(project: ICommonProject);
begin
end;

procedure TMiniExplorerWidget.projCompiled(project: ICommonProject; success: boolean);
begin
end;
{$ENDREGION}

{$REGION IDocumentObserver ---------------------------------------------------}
procedure TMiniExplorerWidget.docNew(document: TDexedMemo);
begin
end;

procedure TMiniExplorerWidget.docFocused(document: TDexedMemo);
begin
  if visible and document.fileName.fileExists and fContextExpand then
    browse(document.fileName);
end;

procedure TMiniExplorerWidget.docChanged(document: TDexedMemo);
begin
end;

procedure TMiniExplorerWidget.docClosing(document: TDexedMemo);
begin
end;
{$ENDREGION}

{$REGION Favorites -------------------------------------------------------------}
procedure TMiniExplorerWidget.favStringsChange(sender: TObject);
begin
  updateFavorites;
end;

procedure TMiniExplorerWidget.updateFavorites;
var
  itm: TListItem;
  fold: string;
begin
  lstFav.Clear;
  for fold in fFavorites do
  begin
    itm := lstFav.Items.Add;
    itm.Caption := shortenPath(fold);
    itm.Data := NewStr(fold);
    itm.ImageIndex := 2;
  end;
end;

procedure TMiniExplorerWidget.lstFavSelect(Sender: TObject; Item: TListItem; Selected: Boolean);
var
  d: string;
begin
  if not Selected or Item.Data.isNotAssigned then
     exit;
  d := PString(Item.Data)^;
  if d.dirExists then
    browse(d)
end;

procedure TMiniExplorerWidget.btnRemFavClick(Sender: TObject);
var
  i: Integer;
begin
  if lstFav.Selected.isNotAssigned then
     exit;
  i := fFavorites.IndexOf(PString(lstFav.Selected.Data)^);
  if i <> -1 then
     fFavorites.Delete(i);
  lstFiles.Clear;
end;

procedure TMiniExplorerWidget.lstFavClick(Sender: TObject);
var
  d: string;
begin
  if lstFav.Selected.isNotAssigned or lstFav.Selected.Data.isNotAssigned then
     exit;
  d := PString(lstFav.Selected.Data)^;
  if not d.dirExists and (dlgYesNo('The favorite folder `' + d +
    '` does not exist. ' + 'Remove from the list ?') = mrYes) then
  begin
    fFavorites.Delete(lstFav.Selected.Index);
    lstFiles.Clear;
  end;
end;

procedure TMiniExplorerWidget.lstFavDeletion(Sender: TObject; Item: TListItem);
begin
  if Item.isAssigned and item.Data.isAssigned then
    dispose(PString(item.Data));
end;

procedure TMiniExplorerWidget.lstFavEnter(Sender: TObject);
begin
  fLastListOrTree := lstFav;
end;

procedure TMiniExplorerWidget.lstFilesColumnClick(Sender: TObject;Column: TListColumn);
begin
  if Column.isAssigned then
  begin
    if Column.Index = fFileListSortedColumnIndex then
    begin
      if fFileListSortDirection = sdAscending then
        fFileListSortDirection := sdDescending
      else
        fFileListSortDirection := sdAscending;
    end;
    fFileListSortedColumnIndex := Column.Index;
  end;
end;

procedure TMiniExplorerWidget.btnAddFavClick(Sender: TObject);
begin
  if treeFolders.Selected.isNotAssigned then
    exit;
  fFavorites.Add(treeFolders.GetPathFromNode(treeFolders.Selected).extractFileDir);
end;

procedure TMiniExplorerWidget.lstFavDblClick(Sender: TObject);
begin
  if lstFav.Selected.isNotAssigned then
     exit;
  treeFolders.Root := lstFav.Selected.Caption;
end;

procedure TMiniExplorerWidget.filterFiles;
var
  s: string;
  p: string;
  i: integer;
begin

  // getting the full list is not possible once no item anymore
  // e.g after filtering failed
  treeFolders.BeginUpdate;
  s := treeFolders.Root;
  p := treeFolders.Path;
  treeFolders.Root:= '';
  treeFolders.Root:= s;
  treeFolders.Path:= p;

  treeFolders.EndUpdate;

  if lstFilter.filter.isEmpty then
    exit;

  lstFiles.BeginUpdate;
  for i:= lstFiles.Items.Count-1 downto 0 do
    if not AnsicontainsText(lstfiles.Items[i].Caption,lstFilter.Filter) then
      lstfiles.Items.Delete(i);
  lstFiles.EndUpdate;
end;

procedure TMiniExplorerWidget.compareFileList(Sender: TObject; Item1, Item2: TListItem;
  Data: Integer; var Compare: Integer);
var
  s1, s2: integer;
  u1, u2: string;
  r1: TStringRange = (ptr:nil; pos:0; len: 0);
  r2: TStringRange = (ptr:nil; pos:0; len: 0);
begin
  case fFileListSortedColumnIndex of
    0:
    begin
      if fFileListSortDirection = sdAscending then
        Compare := CompareStr(Item1.Caption, Item2.Caption)
      else
        Compare := CompareStr(Item2.Caption, Item1.Caption);
    end;
    2:
    begin
      if fFileListSortDirection = sdAscending then
        Compare := CompareStr(Item1.SubItems[1], Item2.SubItems[1])
      else
        Compare := CompareStr(Item2.SubItems[1], Item1.SubItems[1])
    end;
    1:
    begin
      if fFileListSortDirection = sdAscending then
      begin
        r1.init(Item1.SubItems[0]);
        r2.init(Item2.SubItems[0]);
      end
      else
      begin
        r1.init(Item2.SubItems[0]);
        r2.init(Item1.SubItems[0]);
      end;

      s1 := r1.takeUntil(' ').yield.toIntNoExcept();
      u1 := r1.popFront^.takeUntil(#0).yield;

      s2 := r2.takeUntil(' ').yield.toIntNoExcept();
      u2 := r2.popFront^.takeUntil(#0).yield;

      if u1 = u2 then
        Compare := s1 - s2
      else if u1 = 'bytes' then
        Compare := -1
      else if u1 = 'kB' then
      begin
        if u2 = 'bytes' then
          Compare := 1
        else
          Compare := -1;
      end
      else if u1 = 'MB' then
      begin
        if (u2 = 'bytes') or (u2 = 'kB') then
          Compare := 1
        else
          Compare := -1;
      end
      else if u1 = 'GB' then
      begin
        if (u2 = 'bytes') or (u2 = 'kB') or (u2 = 'MB') then
          Compare := 1
        else
          Compare := -1;
      end
      else if u1 = 'TB' then
      begin
        if u2 <> 'PB' then
          Compare := 1
        else
          Compare := -1;
      end;
    end;
  end;
end;
{$ENDREGION}

{$REGION Files -----------------------------------------------------------------}
procedure TMiniExplorerWidget.btnShellOpenClick(Sender: TObject);
begin
  shellOpenSelected;
end;

procedure TMiniExplorerWidget.btnEditClick(Sender: TObject);
var
  fname: string;
  fmt: TProjectFileFormat;
begin
  if lstFiles.Selected.isNotAssigned then
    exit;
  fname := lstFiles.GetPathFromItem(lstFiles.Selected);
  if not fname.fileExists then
    exit;
  fmt := projectFormat(fname);
  if fmt in [pffDexed, pffDub] then
  begin
    if fFreeProj.isAssigned then
    begin
      if fFreeProj.modified and (dlgFileChangeClose(fFreeProj.filename, UnsavedProj) = mrCancel) then
        exit;
      fFreeProj.getProject.Free;
    end;
    if fmt = pffDexed then
      TNativeProject.create(nil)
    else
      TDubProject.create(nil);
    fProj.loadFromFile(fname);
    fProj.activate;
  end
  else getMultiDocHandler.openDocument(fname);
end;

procedure TMiniExplorerWidget.btnDriveClick(Sender: TObject);
begin
  mnuDriveSelect(nil);
end;

procedure TMiniExplorerWidget.btnParentFolderClick(Sender: TObject);
var
  p: string;
begin
  p := treeFolders.Root.extractFileDir;
  if p.dirExists then
  begin
    treeFolders.Root := p;
    subjMnexDirectoryChanged(fMnxSubj, p);
  end;
end;

procedure TMiniExplorerWidget.lstFilesDblClick(Sender: TObject);
begin
  case fDblClick of
    openInside: btnEditClick(nil);
    openOutside: shellOpenSelected;
  end;
end;

procedure TMiniExplorerWidget.lstFilesEnter(Sender: TObject);
begin
  fLastListOrTree := lstFiles;
end;

procedure TMiniExplorerWidget.lstFilesFileAdded(Sender: TObject;
  Item: TListItem);
begin
  Item.ImageIndex:=0;
  if lstFiles.SortColumn.equals(-1) then
    lstFIles.SortColumn := 0;
  lstFiles.Sort;
end;

procedure TMiniExplorerWidget.lstFilterButtonClick(Sender: TObject);
var
  r: string;
  n: TTreeNode;
begin
  r := treeFolders.Root;
  n := treeFolders.Selected;
  treeFolders.Root:= '';
  treeFolders.Root:= r;
  treeFolders.Selected := n;
end;

procedure TMiniExplorerWidget.lstFilterKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  filterFiles;
end;

procedure TMiniExplorerWidget.Splitter2MouseWheel(Sender: TObject;
  Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;
  var Handled: Boolean);
var
  offs: integer;
  splt: TSplitter;
begin
  offs := -240 * 8 div WheelDelta;
  splt := TSplitter(sender);
  splt.MoveSplitter(offs);
  if splt.ResizeAnchor in [akLeft, akRight] then
    Mouse.CursorPos:= classes.Point(Mouse.CursorPos.X + offs, Mouse.CursorPos.Y)
  else
    Mouse.CursorPos:= classes.Point(Mouse.CursorPos.X, Mouse.CursorPos.Y + offs);
  Handled := true;
end;

procedure TMiniExplorerWidget.toolbarResize(Sender: TObject);
begin
  lstFilter.Width := toolbar.Width - lstFilter.Left - lstFilter.BorderSpacing.Around;
end;

procedure TMiniExplorerWidget.shellOpenSelected;
var
  fname: string = '';
begin
  if fLastListOrTree = lstFiles then
  begin
    if lstFiles.Selected.isNotAssigned then
       exit;
    fname := lstFiles.GetPathFromItem(lstFiles.Selected);
  end else if fLastListOrTree = treeFolders then
  begin
    if treeFolders.Selected.isNotAssigned then
       exit;
    fname := treeFolders.GetPathFromNode(treeFolders.Selected).extractFileDir;
  end
  else if fLastListOrTree = lstFav then
  begin
    if lstFav.Selected.isNotAssigned or lstFav.Selected.Data.isNotAssigned then
       exit;
    fname := PString(lstFav.Selected.Data)^;
  end;
  if (fname.fileExists or fname.dirExists) and not shellOpen(fname) then
    getMessageDisplay.message((format('the shell failed to open "%s"',
    [shortenPath(fname, 25)])), nil, amcMisc, amkErr);
end;
{$ENDREGION}

{$REGION Tree ------------------------------------------------------------------}
procedure TMiniExplorerWidget.TreeEnter(Sender: TObject);
begin
  fLastListOrTree := treeFolders;
end;

procedure TMiniExplorerWidget.treeFoldersChange(Sender: TObject;
  Node: TTreeNode);
begin
  if treeFolders.Selected.isNotAssigned then
     exit;
  fLastFold := treeFolders.Path.extractFileDir; // trailing path sep
  subjMnexDirectoryChanged(fMnxSubj, fLastFold);
  lstFiles.Sort();
end;

procedure TMiniExplorerWidget.treeFoldersDblClick(Sender: TObject);
begin
  if treeFolders.Selected.isNotAssigned then
     exit;
  treeFolders.Root := treeFolders.GetPathFromNode(treeFolders.Selected)
    .extractFileDir; // trailing path sep
end;

procedure TMiniExplorerWidget.treeFoldersGetImageIndex(Sender: TObject;
  Node: TTreeNode);
begin
  Node.ImageIndex:=1;
  Node.SelectedIndex:=1;
end;

procedure TMiniExplorerWidget.treeFoldersGetSelectedIndex(Sender: TObject;
  Node: TTreeNode);
begin
  Node.ImageIndex:=1;
  Node.SelectedIndex:=1;
end;

procedure TMiniExplorerWidget.treeSetRoots;
var
  m: TMenuItem;
  d: TStringList;
  i: integer;
begin
  d := TStringList.Create;
  try
    listDrives(d);
    for i := 0 to d.Count-1 do
    begin
      m := TMenuItem.Create(self);
      m.Caption := d[i];
      m.OnClick := @mnuDriveItemClick;
      mnuDrives.Items.Add(m);
      if i.equals(0) then
        treeFolders.Root:= m.Caption;
    end;
    m := Tmenuitem.Create(self);
    m.Caption:= 'Select a custom location...';
    m.OnClick:=@mnuDriveSelect;
    mnuDrives.Items.Add(m);
  finally
    d.Free;
  end;
end;

procedure TMiniExplorerWidget.mnuDriveItemClick(sender: TObject);
begin
  treeFolders.Root := TMenuItem(sender).Caption;
end;

procedure TMiniExplorerWidget.mnuDriveSelect(sender: TObject);
var
  d: string;
begin
  if SelectDirectory('Select the new tree root', '', d) then
    treeFolders.Root:=d;
end;
{$ENDREGION}

{$REGION IExplorer -----------------------------------------------------------}
function TMiniExplorerWidget.singleServiceName: string;
begin
  exit('IExplorer');
end;

procedure TMiniExplorerWidget.browse(const location: string);
begin
  if location.EndsWith('\') or location.EndsWith('/') then
    treeFolders.Root := location[1..location.length - 1]
  else if location.dirExists then
    treeFolders.Root := location
  else if location.fileExists then
    treeFolders.Root := location.extractFileDir;
  fLastFold:=treeFolders.Root;
  fLastListOrTree := treeFolders;
  if treeFolders.Items.Count > 0 then
    treeFolders.Items.Item[0].Selected:=true;
end;

function TMiniExplorerWidget.currentLocation: string;
begin
  result := treeFolders.Root;
end;
{$ENDREGION}

end.