delphi - 为什么当 Brush.Style 为 bsFDiagonal 时 TDrawGrid.OnDrawCell 会绘制黑色背景？

Question

我有以下代码(分配给 DrawGrid1.OnDrawCell 事件):

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  DrawGrid1.Canvas.Brush.Style:= bsFDiagonal;
  DrawGrid1.Canvas.Brush.Color:= clSkyBlue;
  DrawGrid1.Canvas.FillRect(Rect);
end;

即使 DrawGrid1.Color 属性已设置为 clRed，它也始终绘制黑色背景。我还尝试更改笔和字体属性，但没有成功。我在这里错过了什么？

ps:我检查过这个代码:Diagonal brush style gives me black area 。我无法看出问题和答案之间有什么区别(除了注释行)，并且该代码对我不起作用，正如我所提到的，我已经尝试更改 Pen 属性，但没有任何结果。我想要的只是红色背景和天蓝色对角线。

Answer 1

解决了，必须在FillRect之前添加SetBKColor():

DrawGrid1.Canvas.Brush.Style:= bsFDiagonal;
DrawGrid1.Canvas.Brush.Color:= clSkyBlue;
SetBkColor(DrawGrid1.Canvas.Handle, ColorToRGB(clRed));
DrawGrid1.Canvas.FillRect(Rect);    

我仍然不知道为什么，但它正在工作。