Virtual Treeview - manueller Zeilenumbruch in Zelle

[micha888]

Hallo,

ich möchte mehrere Strings in einer Zelle darstellen. Jeder String sollte in einer eigenen Zeile stehen.
Versucht habe ich folgende Kombinationen:

Delphi-Quellcode:

procedure TForm1.VirtualStringTree1GetText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
  var CellText: WideString);
begin
  Celltext := tx1 + WideChar(#11) + tx2
end;

procedure TForm1.VirtualStringTree1GetText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
  var CellText: WideString);
begin
  Celltext := tx1 + WideChar(#13) + tx2
end;

procedure TForm1.VirtualStringTree1GetText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
  var CellText: WideString);
begin
  Celltext := tx1 + WideChar(#13) + WideChar(#10) + tx2
end;

Es werden bei allen Varianten immer nur "Quadrätchen dargestellt", ein Zeilenumbruch wird nicht ausgeführt.

Hat jemand eine Idee, wie ich das hinbekomme?

Michael

[toms]

Hallo

Hier eine Antwort auf die Frage "Breaking text with #13#10 in Text?" von Mike Lischke aus seinem Forum:

Zitat:

Well, the problem is with the used APIs. In VirtualTrees.pas there is a DrawTextW implementation that deals with embedded new line chars. However this does not handle automatic word break. So on Windows NT/2k/XP I use the built-in API (Unicode is needed), which obviously does not handle hard line breaks then (although I expected it to work).

You can file a bug report if you think this is a serious limitation. Interestingly enough, so far nobody else missed hard line breaks.

[mkinzler]

Dann bleibt ja nur eine eigene Implementation dieser Funktion

[micha888]

Hallo und Danke für eure Antworten.
Sieht so aus, als müsste ich mich da tiefer mit beschäftigen.

Michael