Komponente gesucht

[devnull]

Ich hab mal ein bisschen rumgespielt, bekomme aber absolut kein Bild (welches Format, Typ?) rein.

Source aus Delphi-Hilfe:

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var Bitmap: TBitmap;      { Temporäre Variable für Bitmap }
    Offset: Integer;      { Offset für Text }
begin
   with (Control as TListBox).Canvas do  { Ausgabe in Zeichenfläche der Liste, nicht im Formular }
   begin
   FillRect(Rect);       { Rechteck löschen }
   Offset := 2;          { Standard-Offset }
   // Was macht denn die nachfolgende Zeile???
        Bitmap := TBitmap((Control as TListBox).Items.Objects[Index]);  { Bitmap abrufen }
   if Bitmap <> nil then begin
       BrushCopy(Bounds(Rect.Left + Offset, Rect.Top, Bitmap.Width, Bitmap.Height),
                 Bitmap, Bounds(0, 0, Bitmap.Width, Bitmap.Height), clRed);  { Bitmap anzeigen}
     Offset := Bitmap.width + 6;    { Vier Pixel zwischen Bitmap und Text einfügen}
   end;
   TextOut(Rect.Left + Offset, Rect.Top, (Control as TListBox).Items[Index])  { Text anzeigen }
   end;
  
end;

mfg
devnull