anchor.diff:      constructor create(aIwner: TComponent); override;
       destructor destroy; override;
       //
  -    procedure sesoptDeclareProperties(aFiler: TFiler); override;
  -    //
       procedure expandPath(const aPath: string);
     end;
   
   implementation
   {$R *.lfm}
   
  +const
  +  OptsFname = 'miniexplorer.txt';
  +
  +{$REGION TCEMiniExplorerOptions ------------------------------------------------}
  +constructor TCEMiniExplorerOptions.create(aOwner: TComponent);
  +begin
  +  inherited;
  +  fFavoriteFolders := TStringList.Create;
  +end;
  +
  +destructor TCEMiniExplorerOptions.destroy;
  +begin
  +  fFavoriteFolders.Free;
  +  inherited;
  +end;
  +
  +procedure TCEMiniExplorerOptions.assign(aValue: TPersistent);
  +var
  +  widg: TCEMiniExplorerWidget;
  +begin
  +  if aValue is TCEMiniExplorerWidget then
  +  begin
  +    widg := TCEMiniExplorerWidget(aValue);
  +    fFavoriteFolders.Assign(widg.fFavorites);
  +    fLastFolder := widg.fLastFold;
  +    fSplitter1Position := widg.Splitter1.GetSplitterPosition;
  +    fSplitter2Position := widg.Splitter2.GetSplitterPosition;
  +  end
  +  else inherited;
  +end;
  +
  +procedure TCEMiniExplorerOptions.assignTo(aValue: TPersistent);
  +var
  +  widg: TCEMiniExplorerWidget;
  +begin
  +  if aValue is TCEMiniExplorerWidget then
  +  begin
  +    widg := TCEMiniExplorerWidget(aValue);
  +    widg.fFavorites.Assign(fFavoriteFolders);
  +    widg.fLastFold:=fLastFolder;
  +    widg.Splitter1.SetSplitterPosition(fSplitter1Position);
  +    widg.Splitter2.SetSplitterPosition(fSplitter2Position);
  +    widg.updateFavorites;
  +    if DirectoryExists(widg.fLastFold) then
  +      widg.expandPath(fLastFolder);
  +  end
  +  else inherited;
  +end;
  +
  +procedure TCEMiniExplorerOptions.setFavoriteFolders(aValue: TStringList);
  +begin
  +  fFavoriteFolders.Assign(aValue);
  +end;
  +{$ENDREGION}
  +
   {$REGION Standard Comp/Obj------------------------------------------------------}
   constructor TCEMiniExplorerWidget.create(aIwner: TComponent);
   var
     png: TPortableNetworkGraphic;
  +  fname: string;
   begin
     inherited;
     //
  
positive.code: uses
    Classes, SysUtils, FileUtil, ListFilterEdit, Forms, Controls, Graphics,
    ExtCtrls, Menus, ComCtrls, Buttons, lcltype, strutils, ce_widget,
    ce_common, ce_interfaces, ce_observer;
  
  type
    TCEMiniExplorerWidget = class(TCEWidget)
      btnAddFav: TBitBtn;
      btnEdit: TBitBtn;
  
negative.code:     fFavorites: TStringList;
      fLastFold: string;
      procedure lstFavDblClick(Sender: TObject);
      procedure updateFavorites;
      procedure treeSetRoots;
      procedure lstFilesFromTree;
  