VirtualStringTree Spalten und Gruppierung

[itashadow]

Zitat von berndn:

Es geht natürlich in dem ich in der Klasse TOAutos einfach einen Eintrag subMarkenName verwende. Aber eigentlich liegt der 'Fehler' ja hier:

Delphi-Quellcode:

procedure TForm1.vstGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
  Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
var
  daten: TOAutos;
begin
  daten := TOAutos(vst.GetNodeData(node)^);
  case Column of
    0: celltext:=daten.MarkenName;
    1: celltext:=daten.Modell;
    2: celltext:=daten.Farbe;
  end;

end;

Schmeisse ich hier die 0 raus habe ich in der 1. Spalte ( column[0] ) nur noch node als Eintrag was irgendwie auch Sinn macht

Delphi-Quellcode:

procedure TForm1.vstGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
  Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
var
  daten: TOAutos;
begin 

  daten := TOAutos(vst.GetNodeData(node)^);

  case Column of
    0: if vst.GetNodeLevel(node) = 0 then celltext:=daten.MarkenName;
    1: celltext:=daten.Modell;
    2: celltext:=daten.Farbe;
  end;

end;

dürfte funktionieren