Farbe einer Spalte in ListView ändern

[ManuMF]

Hallo,

danke erst mal für den Ansatz. Es funktioniert auch bei der 3. Spalte, bei der 1. aber nicht.

Mein Code:

Delphi-Quellcode:

  if (LatNSortMenue.Checked) then
  begin
    if (SubItem = 0) then
      Sender.Canvas.Brush.Color := RGB(221, 236, 255)
    else
      Sender.Canvas.Brush.Color := ClWhite;
  end
  else
  begin
    if (SubItem = 2) then
      Sender.Canvas.Brush.Color := RGB(221, 236, 255)
    else
      Sender.Canvas.Brush.Color := clWhite;
  end;

Was ist da falsch?

Gruß,
ManuMF