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 von bluescreen25:

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

Ja.

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 ?

markieren

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 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.

markieren

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...

**FriFra**

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

**bluescreen25**

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.

in Listbox ein Icon vor jeder Zeile

in Listbox ein Icon vor jeder Zeile

Re: in Listbox ein Icon vor jeder Zeile

Re: in Listbox ein Icon vor jeder Zeile

Re: in Listbox ein Icon vor jeder Zeile

Re: in Listbox ein Icon vor jeder Zeile

Re: in Listbox ein Icon vor jeder Zeile

Re: in Listbox ein Icon vor jeder Zeile

Re: in Listbox ein Icon vor jeder Zeile

Re: in Listbox ein Icon vor jeder Zeile

Re: in Listbox ein Icon vor jeder Zeile

Forumregeln

bluescreen25 Registriert seit: 27. Nov 2005 Ort: Geldern 229 Beiträge Delphi 7 Enterprise	#1 in Listbox ein Icon vor jeder Zeile 27. Dez 2005, 18:33 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?
	Zitat

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#2 Re: in Listbox ein Icon vor jeder Zeile 27. Dez 2005, 18:34 Items selber zeichnen und entsprechen ein Bitmap oder Icon in jedes Item zeichnen. Code dazu gibt es hier in der DP. Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat

jim_raynor Registriert seit: 17. Okt 2004 Ort: Berlin 1.251 Beiträge Delphi 5 Standard	#5 Re: in Listbox ein Icon vor jeder Zeile 27. Dez 2005, 19:32 Canvas.Font.Color:=clRed; Christian Reich Schaut euch mein X-COM Remake X-Force: Fight For Destiny ( http://www.xforce-online.de ) an.
	Zitat

bluescreen25 Registriert seit: 27. Nov 2005 Ort: Geldern 229 Beiträge Delphi 7 Enterprise	#6 Re: in Listbox ein Icon vor jeder Zeile 27. Dez 2005, 19:35 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.
	Zitat

bluescreen25 Registriert seit: 27. Nov 2005 Ort: Geldern 229 Beiträge Delphi 7 Enterprise	#8 Re: in Listbox ein Icon vor jeder Zeile 27. Dez 2005, 19:49 Oh, danke, jetzt habe ich das Prinzip verstanden...
	Zitat

FriFra Registriert seit: 19. Apr 2003 1.291 Beiträge Delphi 2005 Professional	#9 Re: in Listbox ein Icon vor jeder Zeile 27. Dez 2005, 20:10 Zwischenfrage: Warum verwendest Du eigentlich keine ListView? Damit wäre das alles kein Problem... Elektronische Bauelemente funktionieren mit Rauch. Kommt der Rauch raus, geht das Bauteil nicht mehr.
	Zitat