VirtualStrignTree Child node Level 1 zeigt falschen Text an

[DieDolly]

Zitat:

Zeigen alle ChildNodes, also NodeIndex 0, 1, 2, ... den Text 0.79 an oder zeigt die erste 0,79, die zweite 1,99 an?

Letzters.

Meinst du so? Das ist zwar nicht im InitNode (weiß nicht wie) aber es funktioniert

Delphi-Quellcode:

procedure TVSTEvents.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
var
 VSTData: TVSTData;
begin
 if Sender.GetNodeLevel(Node) = 0 then
  VSTData:= Node.GetData<TVSTData>
 else if Sender.GetNodeLevel(Node) = 1 then
  begin
   if Node.Parent <> nil then
    VSTData:= Node.Parent.GetData<TVSTData>;
  end;

 if not Assigned(VSTData) then
  Exit;

 if Sender.GetNodeLevel(Node) = 0 then
  CellText := VSTData.Produkt
 else if Sender.GetNodeLevel(Node) = 1 then
  begin
   case Node.Index of
    0:
     CellText := VSTData.Preis;
    1:
     CellText := VSTData.Preis2;
   end;
  end;
end;