VCL TImage + TImageList，透明功能不起作用或我做错了什么？

Question

使用 Borland C++ Builder 2009

我从 W7 Windows 对话框中截取了三个按钮并将它们放在 TImageList 中。在适当的时候，我会在 TImage 中加载 3 个变体。

Image->Picture->Bitmap = NULL ; // Clear previous state
ImageList->GetBitmap(2, Image->Picture->Bitmap) ;

PS：Image->Transparent = True

在 Windows 7 和 Windows 10 上，这似乎可以正常工作。 但我刚刚意识到，只是因为放置 TImage 的 TForm 具有完全相同的背景color。 （确认我将背景更改为石灰后不起作用）

在 Windows XP 上，该按钮看起来不太好。由于 XP 的背景颜色似乎略有不同。请注意，它也是clBtnFace

XP： . . . Windows 7：

我也尝试过设置TImageList控件的BlendColor和DrawingStyle，结合Image->Transparent = true或false。

但我无法让它工作。

我在 W7 上捕获了 Image->Picture->Bitmap->Canvas->Pixels[0][0] 值并将其放入 ImageList->BlendColor（ImageList->DrawingStyle = dsFocus 或 dsSelected）等等，但没有成功。

我也尝试过在ImageList->GetBitmap(2, Image->Picture->Bitmap) 之后再次显式设置Image->Transparent = True，甚至尝试过

Image->Picture->Bitmap->TransparentColor =
Image->Picture->Bitmap->Canvas->Pixels[0][0]

没有明显的效果。

你的想法？

Answer 1

我在评论中所说的而不是从屏幕上捕获图像，您可以尝试使用 DrawThemeBackground 方法绘制展开按钮，该方法传递 TDLG_EXPANDOBUTTON 部分和有效状态之一（TDLGEBS_NORMAL、TDLGEBS_HOVER 、TDLGEBS_PRESSED 等）。对于 Windows XP，您可以使用 EBP_NORMALGROUPEXPAND 部分和这些状态之一（EBHC_NORMAL、EBHC_HOT、EBHC_PRESSED）

检查这个在 TImage 中绘制 expando 按钮 的示例。

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Vsstyle.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------


__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Image1->Canvas->Brush->Color = clBtnFace;
  Image1->Canvas->FillRect(Image1->ClientRect);

  OSVERSIONINFO verwin;
  verwin.dwOSVersionInfoSize=sizeof(verwin);
  if (GetVersionEx(&verwin))
  {
    //Check  the Windows version
    if (verwin.dwMajorVersion >= 6) // is Vista at least?
    {
      HTHEME hTheme = OpenThemeData(Handle, VSCLASS_TASKDIALOG);
      if (hTheme)
      {
          SIZE s;
          //get the size of the  TDLG_EXPANDOBUTTON
          if (GetThemePartSize(hTheme, Image1->Canvas->Handle, TDLG_EXPANDOBUTTON, TDLGEBS_NORMAL, NULL, TS_TRUE, &s) == S_OK)
          {
              TRect pRect = Rect(0, 0, s.cx, s.cy);
              DrawThemeBackground(hTheme, Image1->Canvas->Handle, TDLG_EXPANDOBUTTON, TDLGEBS_NORMAL, &pRect, NULL);
           }
      }
    }
    else
    {
      HTHEME hTheme = OpenThemeData(Handle, VSCLASS_EXPLORERBAR);
      if (hTheme)
      {
          SIZE s;
          //get the size of the  EBP_NORMALGROUPEXPAND
          if (GetThemePartSize(hTheme, Image1->Canvas->Handle, EBP_NORMALGROUPEXPAND, EBHC_NORMAL, NULL, TS_TRUE, &s) == S_OK)
          {
              TRect pRect = Rect(0, 0, s.cx, s.cy);
              DrawThemeBackground(hTheme, Image1->Canvas->Handle, EBP_NORMALGROUPEXPAND, EBHC_NORMAL, &pRect, NULL);
           }
      }
    }
  }
}