我正在尝试制作“空白”背景以在其上放置图像。通过将 TImage 放置在表单上并执行以下操作来创建剖面线并不难：
image1.Canvas.brush.Style := bsDiagCross;
image1.canvas.brush.color := clWhatever;
image1.canvas.FillRect(image1.clientrect);
这行得通，我在黑色背景上的 clWhatever 中得到了一个交叉影线图案。但这就是问题所在。它总是黑色的，如果我想要黑色以外的东西，我找不到任何方法来指定背景颜色。
有人知道怎么做吗？
【问题讨论】：
标签： delphi colors canvas drawing
阴影画笔的颜色是前景颜色 - 阴影本身的颜色。
使用阴影画笔时，背景颜色是单独设置的，据我所知，它没有作为 TCanvas 的属性公开，因此需要使用 Windows GDI API SetBkColor () 函数。
例如要在白色背景上绘制红色阴影线，请在使用画布画笔绘制之前添加一个设置背景颜色的调用：
image1.Canvas.brush.Style := bsDiagCross;
image1.canvas.brush.color := clRed;
SetBkColor(image1.Canvas.Handle, ColorToRGB(clWhite));
image1.canvas.FillRect(image1.clientrect);
[更新：] 注意：似乎在 Delphi 2010（可能还有一些早期版本）中，您应该在设置画笔后调用 SetBKColor()特性。在内部，当画布创建它的画笔时，它会调用 SetBKColor() 来践踏在引用 Canvas.Brush之前对 SetBKColor() 的任何显式调用>。在 Delphi 2006（测试原始帖子时使用）和 Delphi 2010 之间，创建内部画布画笔或内部使用 SetBkColor() 的时间似乎发生了变化。不管是什么原因在使用之前立即调用 SetBKColor 显然更可靠。
【讨论】：
SetBkColor(not Brush.Color)和SetBkMode(Transparent)。更改画笔的属性会使它和 DC 手柄无效。在画笔无效的情况下，FillRect 调用会重新创建画笔并调用 SetBkColor。您可以通过阅读Canvas.Handle 属性在FillRect 之前触发它。完成此操作后，您可以对 DC 进行任何手动更改，例如自己致电 SetBkColor。 Deltics，除非 Delphi 2006 引入了稍后修复的回归，否则我怀疑您的原始测试只是偶然的。