Beispiel für DSharp TreeViewPresenter mit mehreren Node Ebenen?

[jus]

Hallo,

ich möchte den TreeViewPresenter von DSharp in Verbindung mit VirtualStringTree nutzen, doch mit meinen bescheidenen Kenntnissen komme ich irgendwie nicht vom Fleck. Wie muß man die Daten erzeugen, damit man diese an den TreeViewPresenter übergeben kann, damit der VirtualStringTree Nodes mit mehreren Ebenen anzeigt? Daran scheitere ich schon, da ich bisher kein einziges Beipsiel dazu gefunden habe.
Hätte wer dazu ein Beispiel?

lg,
jus

[Stevie]

Simple hierarchische Datenstruktur - z.B. Ordner und Items. 2 Datatemplates für Ordner und Items, beide an den TVP hängen, ColumnDefinitions erstellen, Liste der Objekte auf der Rootebene an den TVP hängen - fertig.

Minimalcode (vorher VST und TVP auf die Form und dem TVP den VST an seiner TreeView Eigenschaft zuweisen, außerdem eine Column auf dem TVP anlegen)

Delphi-Quellcode:

uses
  Spring,
  Spring.Collections,
  DSharp.Core.DataTemplates;

type
  TNamedItem = class
  private
    fName: string;
  public
    constructor Create(const name: string);
    property Name: string read fName write fName;
  end;

  TFolder = class(TNamedItem)
  private
    fItems: IList<TObject>;
  public
    constructor Create(const name: string);
    property Items: IList<TObject> read fItems;
  end;

  TItemTemplate = class(TDataTemplate<TNamedItem>)
    function GetItems(const Item: TNamedItem): IObjectList; override;
    function GetValue(const Item: TNamedItem;
      const ColumnIndex: Integer): TValue; override;
  end;

procedure TTVPDemoForm.FormCreate(Sender: TObject);
var
  items: IObjectList;
  folder1, folder2: TFolder;
begin
  items := TCollections.CreateObjectList<TObject> as IObjectList;
  folder1 := TFolder.Create('Folder 1');
  folder2 := TFolder.Create('Folder 1.1');
  folder2.Items.AddRange([TNamedItem.Create('File 1'), TNamedItem.Create('File 2')]);
  folder1.Items.Add(folder2);
  items.Add(folder1);

  TreeViewPresenter1.View.ItemTemplate := TItemTemplate.Create;
  TreeViewPresenter1.View.ItemsSource := items;
end;

{ TNamedItem }

constructor TNamedItem.Create(const name: string);
begin
  inherited Create;
  fName := name;
end;

{ TFolder }

constructor TFolder.Create(const name: string);
begin
  inherited Create(name);
  fItems := TCollections.CreateObjectList<TObject>;
end;

{ TItemTemplate }

function TItemTemplate.GetItems(const Item: TNamedItem): IObjectList;
begin
  if Item is TFolder then
    Result := TFolder(Item).Items as IObjectList
  else
    Result := nil;
end;

function TItemTemplate.GetValue(const Item: TNamedItem;
  const ColumnIndex: Integer): TValue;
begin
  Result := Item.Name;
end;

end.

[jus]

Hallo Stefan,

das Beispiel hilft mir schon extrem weiter. Vielen Dank!

lg,
jus

[Wishmaster]

aus der demo, ist da ein weg 'File 1' in kolumne 1 und 'File 2' in kolumne 2 anzeigen zu lassen?

[Stevie]

Zitat von Wishmaster:

aus der demo, ist da ein weg 'File 1' in kolumne 1 und 'File 2' in kolumne 2 anzeigen zu lassen?

Nein, der TVP verbindet rows mit den Items, nicht Columns - wie viele Columns sollte es denn geben, wenn ich nicht 2 sondern 50 Items anhänge?