Virtualtreeview and WordWrap

[Tommi]

I am trying to enable wordwrap in TVirtualStringTree but I cannot find the option.
How can I do it ?

Thank you!

[Tommi]

I solved this. May be someone needs it so I post the solution because it is not easy to find on the net.

Code: [Select]

rocedure TForm1.VirtualStringTree1MeasureItem(Sender: TBaseVirtualTree;
  TargetCanvas: TCanvas; Node: PVirtualNode; var NodeHeight: Integer);
begin
VirtualStringTree1.Header.Columns.Items[0].Width:=VirtualStringTree1.Width-5;
if Sender.MultiLine[Node] then  //WordWrap
begin
  TargetCanvas.Font := Sender.Font;
  NodeHeight := VirtualStringTree1.ComputeNodeHeight(TargetCanvas, Node, 0);
end;
end; 

procedure TForm1.VirtualStringTree1Resize(Sender: TObject);
begin
    VirtualStringTree1.ReinitNode(nil, True);
  VirtualStringTree1.Invalidate;
end;


MultiLine property of nodes must be TRUE.