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