hej, Delphi XE raportuje mi o wycieku pamięci (pełno UnicodeStringow). Wiec kody prezentują sie nastepująco:
Przechowywać chce wyłącznie tekst w węzłach. W OnCreate
vtPanel.NodeDataSize := SizeOf(PString);
procedure TfPanel.vtPanelGetText(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
var CellText: string);
begin
CellText := PString(Sender.GetNodeData(Node))^;
end;
procedure TfPanel.vtPanelFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
begin
Finalize(Sender.GetNodeData(Node)^);
end;
Przy okazji kompilator informuje że Finalize jest zbędne i go pomija...