Anbei Testprojekt.
Dazu noch:
Wenn ich Multiline auskommentiere, funktioniert es trotzdem nicht.
Wenn ich dazu den Zeilenumbruch - #13#10 auskommentiere geht alles wie gewünscht.
Multiline ohne Zeilenumbruch haut trotzdem nicht hin.
Einstellungen habe ich nur die Nötigsten angepasst.
Delphi-Quellcode:
procedure TForm1.VirtualStringTree1GetText(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
var CellText: string);
var
p: PPosition;
begin
p := VirtualStringTree1.GetNodeData(Node);
if p <> nil then
case Column of
0: CellText := p.Test;
1:
begin
VirtualStringTree1.MultiLine[Node] := True;
CellText := p.Test2 + #13#10 + 'Zweite Zeile';
end;
2: CellText := p.Test3;
end;
end;
Multiline scheint ok