in Listbox ein Icon vor jeder Zeile

[bluescreen25]

Hallo,

Ich lade je nach Vorauswahl des Users mp3-Dateien und wav-dateien in eine Listbox.

Kann man eigendlich jedem Dateityp entsprechend ein Icon der jeweiligen Listboxzeile hinzufügen?

[Luckie]

Items selber zeichnen und entsprechen ein Bitmap oder Icon in jedes Item zeichnen. Code dazu gibt es hier in der DP.

[jbg]

Zitat:

Zitat von bluescreen25

Kann man eigendlich jedem Dateityp entsprechend ein Icon der jeweiligen Listboxzeile hinzufügen?

Ja. :mrgreen:


Na ich will mal nicht so sein: CustomDraw heißt das Stichwort für TListBox und für das Icon ShGetFileInfo und ShGetImageList.

[bluescreen25]

Ja danke, habe dazu etwas gefunden.

Fürs erste habe ich mal eine Nummerierung vor die items gesetzt (zur Probe).

Wie kann man den FontFarbe für die Nummerung anders setzen als die FontFarbe für die Items ?

Delphi-Quellcode:

with Control as TListBox do
    begin
      canvas.FillRect(rect);
      //canvas.Font.Color := clYellow;
      canvas.textout(rect.Left+2,
                     rect.top+2,
                     inttostr(index+1)+'.  '+items[index]);
    end;

[jim_raynor]

Canvas.Font.Color:=clRed;

[bluescreen25]

Zitat:

Zitat von jim_raynor

Canvas.Font.Color:=clRed;

Hmm, ja das habe ich mit yellow (siehe code) schon probiert. Ich weiss nicht ,an welcher Stelle man dies einsetzen muss, wenn z.Z. die Items weiss gezeichnet sind und ich nun die vorangestellte Nummerierung gelb haben möchte.

[jim_raynor]

Oh. Sorry hab ich erst jetzt gesehen. Du musst dann natürlich zweimal Textout machen.

Delphi-Quellcode:

canvas.Font.Color := clYellow;
canvas.textout(rect.Left+2,rect.top+2,inttostr(index+1)+'.'); 
canvas.Font.Color:=clWindowText;
Canvas.TextOut(Rect.Left+100,rect.Top+2,items[index]);

[bluescreen25]

Oh, danke, jetzt habe ich das Prinzip verstanden... :wink:

[FriFra]

Zwischenfrage: Warum verwendest Du eigentlich keine ListView? Damit wäre das alles kein Problem...

[bluescreen25]

Zitat:

Zitat von FriFra

Zwischenfrage: Warum verwendest Du eigentlich keine ListView? Damit wäre das alles kein Problem...

Nun ja, ich mache das mit Delphi erst seit 6 Wochen.
Mein kleines Projekt ist ein Mediaplayer fürs Auto.

Die Listbox ist meine Playliste für meinen MP3-Player...habe das am Anfang mal so ausgewählt und seitdem so übernommen.