anchor.diff:      FListView.DoChange(Self);
   end;
   { -------------------------------------------------------------------------- }
  -procedure TAbTreeView.DoLoad(Sender: TObject);
  -begin
  -
  -end;
  -{ -------------------------------------------------------------------------- }
  -procedure TAbTreeView.GetSelectedIndex(aNode: TTreeNode);
  +procedure TAbCustomTreeView.GetSelectedIndex(aNode: TTreeNode);
   begin
     if aNode.Expanded then
       aNode.SelectedIndex := aNode.ExpandedImageIndex
  
positive.code:           Item.ImageIndex := sfi.iIcon;
            Item.SubItems.Clear;
            for Col := Succ(Low(Col)) to High(Col) do
              if Col in FColumns then begin
                ColText := '';
                ColImage := -1;
                case Col of
  
negative.code:     FListView.TreeView := Self;
    end;
  end;
  { -------------------------------------------------------------------------- }
  procedure TAbCustomTreeView.SetPath(const aValue: string);
  var
    Filename, Remaining: string;
    i: Integer;
    Node: TTreeNode;
  begin
    if FPath <> aValue then begin
      FPath := aValue;
      // Find selected node, expanding parents along the way
      Node := Items.GetFirstNode;
      Remaining := FPath;
      if StartsText(PathDelim, Remaining) then
        System.Delete(Remaining, 1, 1);
      while Remaining <> '' do begin
        Node.Expand(False);
        i := Pos(PathDelim, Remaining);
        if i = 0 then
          i := Length(Remaining) + 1;
        Filename := Copy(Remaining, 1, i - 1);
        Remaining := Copy(Remaining, i + 1, MaxInt);
        if Filename = '' then
          Continue;
        Node := Node.getFirstChild;
        while (Node <> nil) and not SameText(Filename, Node.Text) do
          Node := Node.getNextSibling;
        if Node = nil then begin
          Node := Items.GetFirstNode;
          Break;
        end;
      end;
      Selected := Node;
      // Update listview
      if Assigned(FListView) then
        FListView.Path := aValue;
    end;
  end;
  
  end.
  