ListView - HideSelection - markierung Überschreiben

[Sven Janssen]

Ich habe zwei ListView. Selektiere ich in dem einen etwas (erhält Fokus) soll in dem anderen einzelne Einträge markiert werden. Allerdings werden diese (Standard XP GUI) nur in einem schwer erkennbaren grau unterlegt.

Nun habe ich versucht die Markierung bei onCustomDrawItem zu übermalen. Leider ohne Erfolg. Ich bekomme zwar raus welches selektiert ist, aber die neue Hintergrundfarbe wird nicht angenommen.

Jemand ne Ahnung wie dennoch die markierungen bei nicht fokusierten Elementen verändern kann? Insbesondere hier bei der ListView.

Mein Code:

Delphi-Quellcode:

if (item.selected) and ((sender as TListview).name = 'lv1') then begin
    item.listview.canvas.font.color:=clHighlightText;
    item.listview.canvas.brush.color:=clHighlight;
end;

Sven