lazarus tvirtualstringtree drop files

[xinyiman]

Hello guys, who tells me how to do a drag and drop files to a tvirtualstringtree

So to take the names and file paths drawn on the component?

Thank you

[balazsszekely]

What did you try so far?

[howardpc]

Thanks for your example. On Linux under gtk2, it has a memory leak in the painting. Lines 29972 and 23592 of VirtualTrees.pas are listed along with lots of other consequent LCL pp and inc files.
Is this a known gtk2 bug of VirtualStringTree?

[LuizAmérico]

No, Please create a bug report with a sample project

[balazsszekely]

@howardpc, @LuizAmérico

I don't think it's a bug, I forget to free the data. The following code should solve the problem:

Code: Pascal  [Select][+][-]

1. procedure TForm1.VSTFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
2. var
3.   FileData: PFileData;
4. begin
5.   FileData := VST.GetNodeData(Node);
6.   Finalize(FileData^);
7. end;
8.  

[xinyiman]

Thanks, your example is perfect. But unfortunately I think it's mandatory properties toAcceptOLEDrop

But not on my program makes me select. I do not know if it's a Mac problem or conflict with anything else. You tell me what are the options to set mandatory virtualstringtree?

Thank you