delphi - 扩展节点时如何更改TVirtualStringTree节点图标

Question

这听起来像一个愚蠢的问题，但我尝试了所有我能想到的事情，但没有成功。扩展节点后，如何更改VirtualStringTree节点的图标图像。即当Node折叠时，我想显示一个关闭的文件夹图标，当它展开时，我想显示一个打开的文件夹图标。

在GetImageIndex中，我看不到如何判断节点是否扩展。 Kind只会告诉我何时选择它。

Answer 1

TBaseVirtualTree具有Expanded属性，用于检查给定节点是否扩展：

procedure TForm1.VTGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode;
          Kind: TVTImageKind; Column: TColumnIndex; var Ghosted: Boolean; var ImageIndex: Integer);
begin
  if Sender.Expanded[Node] then begin
     ...
  end;
end;