Hintergrund in Listview einfärben

[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

[Sir Rufo]

Zitat von 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

Warum hängt der TE an die auszugebenden Texte Leerstellen an?

Zitat von Puke:

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.

Weil ansonsten der nicht der gesamte Hintergrund (der Zelle) eingefärbt wird.

Dieses kann man aber auch dadurch erreichen, dass man sich das entsprechende Rect besorgt, mit der gewünschten Hintergrundfarbe malt Canvas.Rectangle(Rect); und dann den Text (ohne angefügte Leerstellen) dort zeichnen läßt.

[p80286]

Wald,bäume und der dickste vor der eigenen Stirne..
Ich hatt Beitrag #1 vollkommen aus den Augen verloren

Gruß
K-H

[Blup]

Der einfachste Weg ist statt "Canvas.TextOut" die Methode "Canvas.TextRect" zu verwenden.

[Puke]

Danke an alle.

Beide Funktionen, "Canvas.Rectangle" und "Canvas.TextRect", funktioieren wunderbar! Ich benutze weiterhin meine Lösung, da ich sie glücklicherweise sowieso hätte schreiben müssen. Allerdings für meine nächsten Projekte wird diese "neue" Funktion beutzt.

Ein Hoch auf Delphi,
Gruß Puke.