Thema: Delphi ListBox für Bilder

Einzelnen Beitrag anzeigen

tobi1701

Registriert seit: 16. Okt 2005
30 Beiträge
 
#6

Re: ListBox für Bilder

  Alt 29. Okt 2005, 14:04
aber es gibt da noch eine sache, die ich bisher nicht so ganz verstanden habe.

meine prozedur ist erstmal:

Delphi-Quellcode:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);

var
        i:integer;
        bmp:TBitmap;
begin
  bmp:=TBitmap.Create;
  for i:=0 to 2 do begin
    bmp.LoadFromFile(ListBox1.Items.Strings[i]);
    TListBox(Control).Canvas.StretchDraw(Rect,bmp);
  end;
  bmp.Free;
end;
(ich habe 3 einträge in die listbox gemacht. und zwar 3 dateinamen von bitmps)

die bilder liegen ja auf der festplatte und sollen nur geladen werden, wenn sie auch in der ListBox angezeigt werden sollen.
wenn ich sie aber so lade, wie oben, dann vesrchwinden sie ja, sobalb ich bmp.Free mache, bzw, ich sehe ja nur das zuletzt geladene bmp, da die bilder ja nicht "wirklich" in der liste sind, sondern nur auf bmp zeigen.

wenn ich jetzt zB ein verzeichnis mit 50 bildern so anzeigen möchte, wo soll ich die bilder denn dann hinladen?
  Mit Zitat antworten Zitat