Also der Fehler war in dieser Procedure:
Delphi-Quellcode:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
aRect: TRect; State: TOwnerDrawState);
var
Bit : TBitmap;
begin
Bit:=TBitmap.Create;
with TListBox(Control) do
begin
Bit.LoadFromFile(Form1.ListBox1.items.strings[Index]);
Canvas.StretchDraw(Rect(aRect.Left+2, aRect.Top+2, aRect.Left+ItemHeight-4, aRect.Bottom-2), Bit);
Canvas.TextOut(aRect.Left+ItemHeight, aRect.Top+2, Items[Index])
end;
end;
Das Bitmap war nicht created worden und geladen wurde auch nicht aus der Listbox.
Mit Bitmap funzt es nun einwandfrei!
Wie aber kann ich es mit gif,jpg,jpeg und png-Dateien realisieren???