anchor.diff:  procedure TCEMiniExplorerWidget.lstFavDblClick(Sender: TObject);
   begin
     if lstFav.Selected = nil then exit;
  +  lstFiles.Items.Clear;
     expandPath(lstFav.Selected.Caption);
   end;
  -
   {$ENDREGION}
   
   {$REGION Files -----------------------------------------------------------------}
  
positive.code:   lstFiles.Clear;
  end;
  
  procedure TCEMiniExplorerWidget.lstFilesDblClick(Sender: TObject);
  begin
    shellOpenSelected;
  end;
  
  procedure TCEMiniExplorerWidget.btnAddFavClick(Sender: TObject);
  begin
    if Tree.Selected = nil then exit;
  
negative.code:   if not Selected then exit;
    //
    fLastFold := PString(Item.Data)^;
    lst := TStringList.Create;
    try
      lstFiles.Items.Clear;
      listFiles(lst, fLastFold);
      fillLstFiles(lst);
    finally
      lst.Free;
    end;
  end;
  
  