如何更改主题DrawThemeTextEx字体颜色？

Question

我正在使用 DrawThemeTextEx 绘制文本。我正在尝试使用 DTTOPS 结构的 crText COLORREF 成员以特定颜色绘制它：

procedure DrawThemeText(dc: HDC; text: WideString; font: TFont; pt: TPoint; foreColor: COLORREF);
var
   R: TRect;
   dttOpts: TDttOpts;
   hOldFont: HFONT;
   oldColor: COLORREF;
begin
   foreColor := $FF00FF00; //bright lime green
   font.

   R := Rect(pt.x, pt.y, $7fffffff, $7fffffff);

   ZeroMemory(@dttOpts, SizeOf(TDTTOpts));
   dttOpts.dwSize := SizeOf(TDTTOpts);
   dttOpts.iGlowSize := 1;
   dttOpts.crText := foreColor;
   dttOpts.dwFlags := DTT_GLOWSIZE or DTT_TEXTCOLOR;

   hOldFont := SelectObject(dc, font.Handle);
   oldColor := SetTextColor(dc, foreColor);
   try
      hr := DrawThemeTextEx(ThemeServices.Theme[teWindow], DC, WP_CAPTION, CS_ACTIVE, 
            PWideChar(Text), Length(Text),
            DT_LEFT or DT_TOP or DT_SINGLELINE or DT_NOPREFIX, R, dttOpts);
   finally
      SetTextColor(dc, oldColor);
      SelectObject(dc, hOldFont);
   end;

不幸的是，文本颜色总是黑色，而不是明亮的石灰绿色。代码指定：

我可以更改字体 由 在设备上下文中选择新字体，即：

   SelectObject(dc, font.Handle);

但都不是 SetTextColor，也不设置 DTTOPS 结构，更改使用的文本颜色。

令人困惑的是 DTTOPS 结构允许我指定一种颜色：

typedef 结构 _DTTOPTS
{
    DWORD dwSize； // 结构体的大小
    DWORD dwFlags； // 指定了哪些选项
    COLORREF crText； // 用于文本填充的颜色
    COLORREF crBorder； // 用于文本轮廓的颜色
    COLORREF crShadow； // 用于文本阴影的颜色
    ...

与 DTT_TEXTCOLOR 标志一起指示我正在使用该成员：

 #define DTT_TEXTCOLOR (1UL << 0) // crText 已指定

我想要完成的事情已记录在案，但它无法正常工作。显然我做错了什么。

使用 DrawThemeTextEx？

Answer 1

crText 成员是一个ColorRef。 MSDN 说高位字节“必须为零”。