我可以强制 Delphi 6 TImageList 位图将其透明像素绘制为某种颜色吗？

Question

我有一个 Delphi 6 应用程序，所有者可以在 TListBox 行中绘制图标以及一些文本。 TListBox 的样式设置为 lbOwnerDrawVariable。我遇到的问题是选择一个项目时。列表框用于更改所选行的背景颜色的突出显示颜色使图标看起来很糟糕，因为图标具有透明像素（我的假设基于可见证据），并且这些像素被更改为背景颜色，从而破坏图像。有没有一种简单的方法可以强制透明像素绘制某种颜色，这样我就可以消除这个问题？我正在使用 TImageList.Draw() 方法在 TListBox 画布上绘制图标。

Answer 1

您可以使用 Draw 方法，将 DrawingStyle 设置为“dsNormal”，并将您希望用作背景的任何颜色设置为 BkColor：

ImageList1.BkColor := clHighlight;
ImageList1.Draw(Canvas, 0, 0, 0, dsNormal, itImage);

如果 Delphi 6 没有 'DrawingStyle' 的 Draw 重载，那么：

ImageList1.BkColor := clHighlight;
ImageList1.DrawingStyle := dsNormal;
ImageList1.Draw(Canvas, 0, 0, 0);