VirtualStringTree und OnLoadNode

[GuenterS]

Zitat von Igotcha:

Zitat von GuenterS:

So bin gerade nach Hause gekommen und habe versucht Deine Änderungsvorschläge einzubauen, jedoch funktioniert das mit dem kleinen Beispielprojekt überhaupt nicht. Es wird nach wie vor nur 'Node' angezeigt.

Err, "Node" ist der Defaulttext für Nodeeinträge

Mittels "OnGetText" musst Du den Text setzen. In dem Event steuerst Du, welche Information in welcher "Column" angezeigt werden soll.

Beispiel:

Delphi-Quellcode:

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
    case Column of
    0:  Celltext:=myData.FGBez;
    1:  Celltext:=format('%.0n', [myData.FMonat[0]]);
    2:  Celltext:=format('%.0n', [myData.FMonat[1]]);
    3:  Celltext:=format('%.0n', [myData.FMonat[2]]);
    4:  Celltext:=format('%.0n', [myData.FMonat[3]]);
    5:  Celltext:=format('%.0n', [myData.FMonat[4]]);
    6:  Celltext:=format('%.0n', [myData.FMonat[5]]);
    7:  Celltext:=format('%.0n', [myData.FMonat[6]]);
    8:  Celltext:=format('%.0n', [myData.FMonat[7]]);
    9:  Celltext:=format('%.0n', [myData.FMonat[8]]);
    10:  Celltext:=format('%.0n', [myData.FMonat[9]]);
    11:  Celltext:=format('%.0n', [myData.FMonat[10]]);
    12:  Celltext:=format('%.0n', [myData.FMonat[11]]);
    13:  Celltext:=format('%.0n', [myData.FMonat[12]]);
    14:  Celltext:=format('%.0n', [myData.FMonat[13]]);
    15:  Celltext:=format('%.0n', [myData.FMonat[14]]);
    16:  Celltext:=format('%.0n', [myData.FMonat[15]]);
    17:  Celltext:=format('%.0n', [myData.FMonat[16]]);
    18:  Celltext:=format('%.0n', [myData.FMonat[17]]);
    end;
  end;

Gruß Igotcha

Danke für Deinen Beitrag
Wenn Du das angehängte Zip File angeschaut hättest, hättest Du sicher auch bemerkt, dass dies _nicht_ die Lösung für mein Problem ist, bzw. das Problem an anderer Stelle zu suchen ist.