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!

[Sir Rufo]

Ich denke die Ereignisse TListView.OnCustomDrawItem und TListView.OnCustomDrawSubItem sind für dich besser geeignet

Und wenn du das DefaultDraw nicht willst, dann musst du das auch ausschalten

[Puke]

Zitat:

Und wenn du das DefaultDraw nicht willst, dann musst du das auch ausschalten

Das hatte ich unter OnCustomDrawItem im oberen Quellcode schon abgeschaltet.
Danach ist dann nichts mehr zu sehen!

Nach dem neu zeichnen der Zeilen ist dann wieder alles so wie es sein soll, nur dass der Hintergrund schon nach Textende aufhört und nicht nach dem die Column aufhört. Das sieht dann so komisch zerhackt aus.

[Sir Rufo]

Wenn du das CustomDraw ausschaltest, dann musst du alles selber zeichnen.

Auch den Hintergrund

[Sharky]

Hai Puke,

ewentuell kannst Du das hier anpassen?

[Puke]

Danke an beide! Leider konnte ich das Problem nicht lösen:

@Sharky: HAb es angepasst, doch das Ergebnis ist das Selbe.

@Sir Rufo: Ich bin leider Anfänger und mach dies zum ersten Mal. Das geliebte Google gibt mir auch keine Antwort.
Könntest du mir es vielleicht näher erklären wie so etwas geht?

An Alle, da wahrscheinlich an mir liegt, dass ihr mir nicht helfen könnt, will euch es weiter erklären:
Ich habe diese Listview zuerst ohne DefaultDraw=False gemacht. Dort war dann jede Zeile ganz markiert mit dieser Farbe. Doch wenn ich geklickt habe, kam erst die normale Windows-Markierung in Blau und dann erst meine in Orange. Daraufhin hab ich gegooglet und bin auf DefaultDraw und Selbstzeichnen gestoßen. Doch nun sind die die Hintergrundfarben nur dort wo Tet ist und danach hört es auf. Vielleicht liegt es daran das ich den Hintergrund selbstzeichnen muss, wie "Sir Rufo" gesagt hat, allerdings wie geht das

Im Anhang ist ein kleines Problembildchen!

[Puke]

Weiß denn niemand hier eine Antwort?
Ich hab keine Ahnung wie ich das Problem lösen soll. Auch das Hirn von Google
ist überfragt und ich möchtes lernen. Bei mir gehts ja gar nicht darum, ein Media Player zu haben,
sondern darum das Programmieren zu erlernen. Und dazu gehört für mich auch das Design!

Schon mal Danke für die Antworten die vielleicht folgen!

[Puke]

Ich schreibe mal für andere mit gleichem Problem, eine weniger elegante Lösung hier auf:

Wenn man das Problem hat, dass die Hintergrundfarbe nachdem Text aufhört, verlängeret man einfach den Text bis zur Ende der Coloumn mit Leerzeichen,
benutzt aber nicht mehr.

Delphi-Quellcode:

procedure TForm1.PlaylistViewCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
  hallo:TLIstItem;
  weite : Integer;
  längederliste: Integer;
begin
if Fertig=true
then begin

  defaultDraw:=false;


  //Titel
  weite:= playlistview.Columns[0].Width;
  testlabel.Caption:= item.Caption;
  while testlabel.Width<weite+5 do
  begin
    Testlabel.Caption:=testlabel.caption+DupeString(' ', 1);
  end;
  item.Caption:=testlabel.Caption;

  if Anpassen=true
  then begin

    längederliste:= playlistview.Items.Count;

    //Interpret
    weite:= playlistview.Columns[1].Width;
    testlabel.Caption:= item.SubItems[0];
    while testlabel.Width<weite+5 do
    begin
      Testlabel.Caption:= testlabel.caption+DupeString(' ', 1);
    end;
    item.SubItems[0]:=testlabel.Caption;

    //Album
    weite:= playlistview.Columns[2].Width;
    testlabel.Caption:= item.SubItems[1];
    while testlabel.Width<weite+5 do
    begin
      Testlabel.Caption:= testlabel.caption+DupeString(' ', 1);
    end;
    item.SubItems[1]:=testlabel.Caption;

    //Genre
    weite:= playlistview.Columns[3].Width;
    testlabel.Caption:= item.SubItems[2];
    while testlabel.Width<weite+5 do
    begin
      Testlabel.Caption:= testlabel.caption+DupeString(' ', 1);
    end;
    item.SubItems[2]:=testlabel.Caption;

    //Dauer
    weite:= playlistview.Columns[4].Width;
    testlabel.Caption:= item.SubItems[3];
    while testlabel.Width<weite+5 do
    begin
      Testlabel.Caption:= testlabel.caption+DupeString(' ', 1);
    end;
    item.SubItems[3]:=testlabel.Caption;

    //Bewertung
    weite:= playlistview.Columns[5].Width;
    testlabel.Caption:= item.SubItems[4];
    while testlabel.Width<weite+5 do
    begin
      Testlabel.Caption:= testlabel.caption+DupeString(' ', 1);
    end;
    item.SubItems[4]:=testlabel.Caption;

    //Pfad
    weite:= playlistview.Columns[6].Width;
    testlabel.Caption:= item.SubItems[5];
    while testlabel.Width<weite+5 do
    begin
      Testlabel.Caption:= testlabel.caption+DupeString(' ', 1);
    end;
    item.SubItems[5]:=testlabel.Caption;
    durchgänge:= durchgänge+1;

    if durchgänge=längederliste
    then begin
      durchgänge:=0;
      anpassen:= false;
    end;


  end;



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

  with Sender.Canvas.Brush do
    if Odd(Item.Index)                                                                      then Color:=cl3dlight
                                                                                            else Color:=clWhite;
  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:=[];

  with Sender.Canvas.Brush do
    if  hallo.Caption+Hallo.SubItems[0]+hallo.SubItems[1]+Hallo.SubItems[2]=Playlistindex   then Color:= clwebdarkorange;

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

end;

Damit ist das Thema glaub ich beendet.

[Sir Rufo]

Ein einfaches TCanvas.Rectangle vor dem Zeichnen des Textes hätte hier ausgereicht.
Sorry, dass ich erst jetzt damit rausrücke, aber ich habe den Thread irgendwie aus den Augen verloren

[p80286]

Zitat von Sir Rufo:

Ein einfaches TCanvas.Rectangle vor dem Zeichnen des Textes hätte hier ausgereicht.
Sorry, dass ich erst jetzt damit rausrücke, aber ich habe den Thread irgendwie aus den Augen verloren

könntest Du das vllt. etwas näher erklären, ich seh da keinen Zusammenhang.

Gruß
K-H