anchor.diff:    lstFiles.Clear;
   end;
   
  -procedure TCEMiniExplorerWidget.lstFilesDblClick(Sender: TObject);
  -begin
  -  shellOpenSelected;
  -end;
  -
   procedure TCEMiniExplorerWidget.btnAddFavClick(Sender: TObject);
   begin
     if Tree.Selected = nil then exit;
  
positive.code:   if not Selected then exit;
    //
    fLastFold := PString(Item.Data)^;
    lstFiles.Clear;
    lst := TStringList.Create;
    try
      listFiles(lst, fLastFold);
      fillLstFiles(lst);
    finally
    end;
  end;
  
  
negative.code:   fname := PString(lstFiles.Selected.Data)^;
    if not fileExists(fname) then exit;
    CEMainForm.openFile(fname);
  end;
  
  procedure TCEMiniExplorerWidget.lstFilesDblClick(Sender: TObject);
  begin
    shellOpenSelected;
  end;
  
  procedure TCEMiniExplorerWidget.shellOpenSelected;
  