我正在自定义 OnDrawItem 事件以在项目名称旁边绘制图标。 这是迄今为止我的 OnDrawItem 事件代码:
void __fastcall Form1::ComboBox1DrawItem(TWinControl *Control, int Index,
TRect &Rect, TOwnerDrawState State)
{
TComboBox* CB = static_cast<TComboBox*>(Control);
CB->Canvas->FillRect(Rect);
boost::scoped_ptr<Graphics::TBitmap> bitmap(new Graphics::TBitmap());
bitmap->PixelFormat = pf32bit;
bitmap->AlphaFormat = afPremultiplied;
ImageList1->GetBitmap(Index, bitmap.get());
bitmap->AlphaFormat = afPremultiplied;
if (bitmap->Canvas->Handle)
{
// structure for alpha blending
BLENDFUNCTION bf;
bf.BlendOp = AC_SRC_OVER;
bf.BlendFlags = 0;
bf.SourceConstantAlpha = 0xFF; // 0x00 (transparent) through 0xFF (opaque)
bf.AlphaFormat = AC_SRC_ALPHA; // Use bitmap alpha
::AlphaBlend(CB->Canvas->Handle, // handle to destination DC
Rect.Left + 2, // x-coord of upper-left corner
Rect.Top, // y-coord of upper-left corner
bitmap->Width, // destination width
bitmap->Height, // destination height
bitmap->Canvas->Handle, // handle to source DC
0, // x-coord of upper-left corner
0, // y-coord of upper-left corner
bitmap->Width, // source width
bitmap->Height, // source height
bf // alpha-blending function
);
}
Rect = Bounds(Rect.Left + 20 + 2, Rect.Top, Rect.Right - Rect.Left, Rect.Bottom - Rect.Top);
DrawTextW(CB->Canvas->Handle, CB->Items->Strings[Index].c_str(), -1, &Rect, DT_VCENTER | DT_SINGLELINE | DT_END_ELLIPSIS);
}
问题当然是获取一个透明的 TImageList1
来复制到透明的 TBitmap
并保留 32 位 alpha 透明度/半透明度。目前,我在生成的 TBitmap
中将其显示为白色背景。
需要明确的是,在将图像加载到之前,使用 DrawingStyle = dsTransparent
将 TImageList
ColorDepth
设置为 cd32bit
它和上面的图像是透明的,没有问题。
有什么技巧可以解决这个问题吗?
更新和我的最终解决方案
根据此处的回复,这是我为将来可能需要它的其他人提供的最终工作代码。当然,这只是一个模板代码,您可能希望根据自己的需要进一步自定义。
void __fastcall TForm1::ComboBox1DrawItem(TWinControl *Control, int Index, TRect &Rect, TOwnerDrawState State)
{
if (Index >= 0)
{
TComboBox* CB = static_cast<TComboBox*>(Control);
CB->Canvas->FillRect(Rect);
// Note - ImageList1 already has DrawingStyle set to dsTransparent
ImageList1->Draw(CB->Canvas, Rect.Left + 2, Rect.Top, 0);
Rect = Bounds(Rect.Left + ImageList1->Width + 2 + 2, Rect.Top, Rect.Right - Rect.Left - ImageList1->Width - 2, Rect.Bottom - Rect.Top);
DrawTextW(CB->Canvas->Handle, CB->Items->Strings[Index].c_str(), -1, &Rect, DT_VCENTER | DT_SINGLELINE | DT_END_ELLIPSIS);
}
}
最佳答案
您不需要尝试从图像列表中获取原始位图,因为图像列表本身知道如何绘制尊重透明度信息。您可以使用它的 Draw
方法来实现。
否则,答案here建议在调用 GetBitmap
之前将 AlphaFormat
设置为“afIgnored”应保留透明度。
关于delphi - 从 ComboBox DrawItem 事件中的 TImageList 复制透明(32 位 alpha)位图,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/28388655/