anchor.diff:    for i := 0 to aRoot.Count-1 do
     begin
       str := PString(aRoot.Items[i].Data)^;
  -    if LeftStr(aPath, length(str)) = str then
  +    if SameText(LeftStr(aPath, length(str)), str) then
       begin
         result := true;
         Tree.Selected := aRoot.Items[i];
  
positive.code:   treeScanSubFolders(Tree.Selected);
  end;
  
  // TODO-cbugfix: fails with "View in mini explorer", src files of the project resource.d
  procedure TCEMiniExplorerWidget.expandPath(const aPath: string);
  var
    i: NativeInt;
  
negative.code:   Tree.OnSelectionChanged := @treeSelectionChanged;
    Tree.OnExpanding := @treeExpanding;
  
    // http://bugs.freepascal.org/view.php?id=27137
    // TODO-cCleanup: remove comment after next Laz release
    lstFilter.FilteredListbox := nil;
    lstFilter.onChange := @lstFilterChange;
    //
  