bin ich zu blöd dafür?? hab mir die demo angeschaut, und das nun so gemacht:
Beim hinzufügen eines Nodes:
Delphi-Quellcode:
t_child := VST1.AddChild(t_node);
VST1.MultiLine[t_child] := True;
t_data := VST1.GetNodeData(t_child);
t_data^.ExceptionObj := g_Exceptions.Exception[i];
t_data^.Kind := tkMessage;
Dann bei GetText:
Delphi-Quellcode:
procedure TFormExceptionLog.VST1GetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
var
t_data: PTreeNodeData;
begin
t_data := Sender.GetNodeData(Node);
case t_data^.Kind of
tkMessage: CellText := 'Zeile 1' + #13#10 + 'Zeile 2';
end;
Und dann noch um automatisch die richtige Höhe anzeigen zu lassen:
Delphi-Quellcode:
procedure TFormExceptionLog.VST1MeasureItem(Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode; var NodeHeight: Integer);
begin
if Sender.MultiLine[Node] then
NodeHeight := VST1.ComputeNodeHeight(TargetCanvas, Node, -1);
end;
Nun SOLLTE es ja eigentlich gehen. also die spalte schaut mehrzeilig aus, nur leider wird der Text als "Zeile 1[dann die zwei kastel]Zeile 2" dargstellt. Wo is der Fehler??
mfg phXql