Zeilen färben: TListView <-> TJvLisView

[Kratos]

Hi Leute,

in einer TListView färbe ich Zeilen wie folgt:

Delphi-Quellcode:

procedure TForm1.lv1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
   if Item.SubItems[4] = 'Ja' then
   begin
     Sender.Canvas.Brush.Color := $009DFC96; // Grün
   end
   else
   begin
     Sender.Canvas.Brush.Color := $009B9BFF; // Rot
   end;
end;

Nun hab ich mich dazu entschieden diese TListView durch eine TJvListView zu ersetzen, da diese zusätzliche Ereignisse beinhaltet, die ich unbedingt benötige.
Ich habe diese TJvListView genauso genannt, wie meine alte TListView .
Alle genutzten Ereignisse hab ich im Objektinspektor der neuen ListView hinzugefügt.

In der TListView werden die Zeilen ordnungsgemäß gefärbt.
In der TJvListView bleibt alles weiß, obwohl laut Debugger, die Farben richtig in der CustomDrawItem-Prozedur bestimmt werden.

Ich hab jetzt schon viele Foreneinträge gewälzt.
Ich komme einfach nicht auf die Lösung.
Hat jemand einen Rat für mich, bitte?

VG Kratos