Delphi：绘制 ListView 的行

Question

我有一个 ListView (vsReport)：最后一个子项有一个文本“等待”。然后我将其更改为“ok”或“error”。如何绘制整行（如果在 CustomDrawItem 中使用 Sender.Canvas.Brush.Color，它将是 Windows 7 中列之间的间隙），并将此 SubItem 设为绿色（正常）和红色（错误）？

谢谢！

Answer 1

你可以这样做

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if Item.Index = Sender.Items.Count - 1 then
  begin
    Sender.Canvas.Brush.Color := clSkyBlue;
    Sender.Canvas.FillRect(Item.DisplayRect(drBounds));
  end;
end;

，但我建议不要这样做，因为它有问题（而且我不知道如何修复它）。