Hintergrund in Listview einfärben

[Puke]

Hi,
ich habe eine Listview mit bestimmten Attributen:

• Zeilen Schriftfarben werden eingefärbt
• Der ausgewählte Eintrag wird Orange dargestellt
• Der abspielende Eintrag wird mit dicker Schrift dargestellt
• Jeder zweite Eintrag wird mit grauem Hintergrund dargestellt

Ich habe in Google nach einer Lösung gesucht um das eigenstängige Selektieren von Windows zu unterbinden, da es dann in Systemfarben wäre, was dann wiederrum nicht zu meinem Layout passen würde. Daher zeichne ich die ganze Zeile immer nochmal neu. Da ich daraufhin keine Lösung für mein neues Problem gefunden habe frage ich euch.

Delphi-Quellcode:

procedure TForm1.PlaylistViewCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);

var
  hallo:TLIstItem;
begin
if Fertig=true
then begin

  defaultDraw:=false;

  hallo:= PlaylistView.Items[Item.Index];
  if (Item=nil) then Exit;

  //Abspielender Eintrag
  with Sender.Canvas.Brush do
    if Odd(Item.Index)                                                                      then Color:=cl3dlight
                                                                                            else Color:=clWhite;
  //Abspielender Eintrag
  with Sender.Canvas.Font do
    if  (titelanzeige.Caption=hallo.Caption) and
        (interpretlabel.caption= Hallo.SubItems[0]) and
        (albumlabel.Caption=hallo.SubItems[1]) and
        (genrelabel.Caption= Hallo.SubItems[2])                                             then Style:=[fsbold]
                                                                                            else Style:=[];
  //Markierte Zeile
  with Sender.Canvas.Brush do
    if  hallo.Caption+Hallo.SubItems[0]+hallo.SubItems[1]+Hallo.SubItems[2]=Playlistindex   then Color:= clwebdarkorange;

  //Text widerherstellen
  [B]TextOutOnListview(Playlistview, Item.Index);[/B]

end;


end;

und: TextOutOnListview(Playlistview, Item.Index);

Delphi-Quellcode:

procedure TextOutOnListview(Listview: tListview; Index: integer);

  { GetTextOutPosX

    Diese Funktion gibt die x Position zurück, an der der Text gezeichnet
    werden muss }

  function GetTextOutPosX(Column: integer; Text: string): integer;
  var
    i: integer;
  begin
    //Linksbündig?
    if Listview.Column[Column].Alignment = taleftJustify then
      begin
        //Standard Rand von links: 4 pixel
        result := 4;
        //Breiten aller Spalten zusammenrechnen
        for i := 0 to Column - 1 do
          result := result + Listview.Column[i].Width + 2;
      end
    else
      //Rechtsbündig?
      if Listview.Column[Column].Alignment = taRightJustify then
        begin
          result := 0;
          //Breiten aller Spalten zusammenrechnen
          for i := 0 to Column - 1 do
            result := result + Listview.Column[i].Width;
          //Von der Position die Textbreite abziehen und den Wert von 6 Pixeln für den Rand rechts
          result := result + Listview.Column[Column].Width - Listview.Canvas.TextWidth(Text) - 6;
        end
      else
        //Mittig?
        if Listview.Column[Column].Alignment = taCenter then
          begin
            result := 0;
          //Breiten aller Spalten zusammenrechnen
            for i := 0 to Column - 1 do
              result := result + Listview.Column[i].Width;
          //Von der Position die halbe Spaltenbreite dazu addieren und die halbe Textbreite wieder abziehen
            result := result + trunc((Listview.Column[Column].Width) / 2 - Listview.Canvas.TextWidth(Text) / 2);
          end;
  end;

var
  cols: integer;
begin

  //Text der ersten Spalte kopieren
  listview.Canvas.TextOut(GetTextOutPosX(0, listview.Items[index].caption), Listview.Items[index].Top, listview.Items[index].caption);

  for cols := 1 to listview.Columns.Count - 1 do
    //Weitere Columns zeichnen
    listview.Canvas.TextOut(GetTextOutPosX(cols, listview.Items[index].SubItems[cols - 1]), Listview.Items[index].Top, listview.Items[index].SubItems[cols - 1]);

  //Hintergrundfarbe wieder herstellen
  listview.canvas.Brush.Style := bsSolid;


end;

Frage: Warum wird dann nicht die Ganze Zeile der TListview in den angegeben Hintergrundfarben dargestellt, sondern nur der Teil mit Text, und wie löse ich dieses Problem?

Ich bedanke mich schonmal für alle antworten.
Und denkt dran scheißt mich zusammen wenn ich was falsch mache. Bin theoretisch noch Anfänger!