VirtualStringTree Drag & Drop

[Towmuz]

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