Listbox: Bilder dem Text voranstellen

[hansklok]

... der markiert mir die fehlerhafte Zeile beim Absturz in Delphi 2005 nicht im Quellcode, da kam halt nur ne Fehlermeldungs MessageBox und es wurde nichts in die ListBox eingefügt!

[Manne]

Sorry,
Klar statt

Delphi-Quellcode:

if Bilder[i] <> nil then
        Bilder[i]:= TBitmap.Create;

muss es

Delphi-Quellcode:

if Bilder[i] = nil then
        Bilder[i]:= TBitmap.Create;

[hansklok]

... probier doch bitte mal den Source aus, nun kommt zwar keine Fehlermeldung mehr, aber es wird wieder nur der Pfad, aber nicht die Bitmap eingefügt!

[Khabarakh]

Wie sieht denn deine DrawItem-Routine aus? Im Anhang ist jedenfalls keine :wink: .

Und zu dem "<>":
Mit höchstens 1 Minute Debugging hättest du den Fehler selbst gefunden, anstatt erstmal 16 Minuten warten zu müssen.

[hansklok]

... ich habe keine OnDrawItem Routine!

[Manne]

Hast du auch ein OnDrawItem- Ereignis für deine Listbox. Wenn ich den Code von Keldorn nehme,
zeigt es bei mir die Bilder einwandfrei in der Listbox an.
Habe zusätzlich noch IntegralHeight auf true und die Itemheight erhöht, und den Style "nur" auf lbOwnerDrawVariable gestellt.

[hansklok]

... ok, funktioniert nun auch bei mir, ich werde den Code noch ein bisschen anpassen und melde mich bestimmt nochmal!

Danke an alle

MfG

hansklok

[FriFra]

Als ich das hier gelesen hab, dachte ich so bei mir: "warum einfach, wenns auch kompliziert geht"...

Warum nimmst Du nicht eine ListView?

Delphi-Quellcode:

var
  Item: TListItem;
  bmp: TBitmap;
begin

...

  Item := ListView1.Items.Add;
  Item.Caption := 'c:\iregendeinbild.bmp';
  bmp := TBitmap.Create;
  try
    Bmp.LoadFromFile('c:\iregendeinbild.bmp');
    Item.ImageIndex := ImageList1.Add(bmp);
  finally
    bmp.Free;
  end;

...

end;

Dabei darfst Du natürlich nicht vergessen, dass die ImageList entspr. Skaliert ist, dass Deine Bilder dort hinein passen ;)