TVirtualStringTree Error ?

[Epo 1]

Hi,

Using the VirtualTreeView, an error is raised but why ?. I have recreated a minimal sample to reproduce it. Either my coding does an error (more likely), either the component do it.

The problem comes when a node is deleted (only when the deleted node has one sibbling with subnodes) from the OnGetImageIndex event. The event is called with an index greater than avalaible nodes.

If someone has an idea ?

 

Delphi 11 + VirtualTree for VCL 2021.09.

 

Thanks a lot,

Eddy

TestVclVT.zip