Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by DieDolly,
10. Jan 2020
Letzters.
Meinst du so? Das ist zwar nicht im InitNode (weiß nicht wie) aber es funktioniert
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>
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by DieDolly,
10. Jan 2020
Ich habe ein VirtualStringTree auf meinem Formular mit dahinterstehender Klasse sowie generische TObjectList für die Datenhaltung. Ganz so wie es sein soll.
Dummerweise wird bei meinem Node der Text des Child-Nodes aber falsch angezeigt. Es ist bei jedem Child-Node der Text des ersten Child-Nodes.
Mache ich was falsch?
procedure TVSTEvents.VSTInitNode(Sender: TBaseVirtualTree; ParentNode,...