Delphi-PRAXiS - Delphi Hintergrund in Listview einfärben

Seite 1 von 2

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)

- - Delphi Hintergrund in Listview einfärben (https://www.delphipraxis.net/171568-hintergrund-listview-einfaerben.html)

Hintergrund in Listview einfärben

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.:-D
Und denkt dran scheißt mich zusammen wenn ich was falsch mache.:thumb: Bin theoretisch noch Anfänger!:pale: