Registriert seit: 21. Dez 2002
Ort: Lenzburg
861 Beiträge
Delphi 6 Professional
|
Re: Alle Bilder eines Ordners in Listbox auflisten und anzei
22. Jul 2004, 13:45
Die Items enthalten ja den DateiNamen
So in der Art (für bmps)
Delphi-Quellcode:
procedure TMainForm.ListBoxDrawItem(Control: TWinControl; Index: Integer;
aRect: TRect; State: TOwnerDrawState);
var
Bit : TBitmap;
...
begin
...
with TListBox(Control) do
begin
...
Bit.LoadFromFile(Items[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;
mfg Tobias
Tobias Die Physik ist für die Physiker eigentlich viel zu schwer.
|
|
Zitat
|