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

[Kratos]

Hi nochmal,

ich hab mir doch tatsächlich mal getraut, den oben geposteten Code bei der TJvListView (JEDI) in das OnCustomDrawSubItem-Ereignis zu kopieren und das verwendete OnCustomDrawItem-Ereignis rauszunehmen.
Siehe da, es funktioniert wie gewünscht.

Zusammenfassung meiner Beobachtung beim Zeilen färben:
TListView + OnCustomDrawItem -> funktioniert
TJvListView + OnCustomDrawItem -> funktioniert NICHT
TJvListView + OnCustomDrawSubItem -> funktioniert

Warum das so ist... keine Ahnung