anchor.diff:  {*   only show items in the selected folder.             *}
   {*********************************************************}
   //TODO: Add to AbbreviaVCL packages
  -//TODO: Listview support for implicit folders
   //TODO: Tighten up component cooperation
   unit AbComCtrls;
   
  
positive.code: procedure TAbCustomListView.SetPath(aValue: string);
  begin
    if aValue <> FPath then begin
      FPath := aValue;
      if Assigned(TreeView) then
        TreeView.Path := aValue;
      if not FlatList then
  
negative.code:   Node: TTreeNode;
  begin
    if FPath <> aValue then begin
      FPath := ExcludeTrailingPathDelimiter(aValue);
      // Find selected node, expanding parents along the way
      Node := Items.GetFirstNode;
      Remaining := FPath;
  