delphi – 如何获取使用Windows 7在树视图控件中绘制父节点的图

我正在一个自定义控件中混合使用两个窗口控件(listview和treeview).在某些方面,我需要绘制使用 Windows 7(启用主题)的图像来标识父节点,我正在使用 DrawThemeBackground功能与TVP_GLYPH部分和GLPS_CLOSED状态(我尝试所有的部件和状态相关TREEVIEW类没有运气),但结果图像始终是old()或( – ).

此图片显示问题

我想绘制箭头图像(黑色圆圈内部)而不是()符号(橙色圆圈内).

这是我用来绘制图像的示例代码.

uses
  UxTheme;

procedure TForm40.Button1Click(Sender: TObject);
var
  iPartId : integer;
  iStateId: integer;
  hTheme  : THandle;
begin
  hTheme  := OpenThemeData(Handle,VSCLASS_TREEVIEW);

  iPartId := TVP_GLYPH;
  iStateId:= GLPS_CLOSED;          
  //iPartId := TVP_TREEITEM;
  //iStateId:= TREIS_NORMAL;
  if hTheme <> 0 then
    try

      //if (IsThemeBackgroundPartiallyTransparent(hTheme,iPartId,iStateId)) then
      //    DrawThemeParentBackground(Handle,PaintBox1.Canvas.Handle,nil);

      DrawThemeBackground(hTheme,iStateId,Rect(0,31,31),nil);
    finally
      CloseThemeData(hTheme);
    end;
end;

我检查了一些像Andreas Rejbrand和this这样的application这样的工具,但是我找不到我想要的图像.

我的问题是：如何获得箭头图像？

UPDATE

感谢Stigma发布的答案,我发现了Explorer :: Treeview类的部件和状态值的额外资源.

> VisualStyleRenderer and themes
> CodeProject

SetWindowTheme(hwndList,L"Explorer",NULL);

hTheme  := OpenThemeData(Handle,'Explorer::Treeview');