ListView中怎么控制指定行的字体和背景颜色？

Question

procedure TFormMainMenu.LVSendCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if Item.SubItems.Strings[8] = '未发送' then
  begin
    DefaultDraw := True;
    LVSend.Canvas.Font.Color := clRed;
    LVSend.Canvas.Brush.Color := clYellow;
    LVSend.Canvas.FillRect(Item.DisplayRect(drLabel));
    LVSend.Canvas.TextOut(Item.DisplayRect(drLabel).Left+2,Item.DisplayRect(drLabel).Top+2,Item.SubItems.Strings[1]);
  end;
end;

Answer 1

同意楼上的说法，以下程序调试通过：
procedure TMainForm.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  with Listview1.canvas do
  if item.caption='aaa' then
  begin
    font.color:=clwhite;
    font.style:=[fsBold];
  end;
end;