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

Question

使用 Borland C++ Builder 2009

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

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

PS:图像->透明= True

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

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

XP:。 。 。 Windows 7:

我还尝试了设置 TImageList 控件的 BlendColor 和 DrawingStyle，并结合 Image->Transparent = true 或 假。

但我无法让它工作。

我在 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 中绘制展开按钮的示例。

#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);
           }
      }
    }
  }
}