VirtualStringTree und OnLoadNode

[dahead]

wie wärs mit:

Code:

procedure TKOM.VTISTGetText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
  var CellText: WideString);
var
  myData: PIstData;
begin
  myData := VTIST.GetNodeData(Node);
  Node.Align := 3;
  if (TextType = ttNormal) and (myData.FGTyp <> 6) then
  begin
   if Column = 0 then
    Celltext := myData.FGBez 
   else
    Celltext := format('%.0n', [myData.FMonat[Column-1]]);
  end;