Hallo,
gleich zu Beginn: Ich weiß, dass diese frage im Forum schon häufig gestellt wurden ist, jedoch konnten mir diese Beiträge nicht weiterhelfen (vermutlich stelle ich mich zu blöd an).
Also ich habe ne ListBox (lbBilder), in die der folgende Code die ausgewählten Bilder von OpenPictureDialog1 mit deren Pfad als Items in die ListBox geladen werden sollen.
Delphi-Quellcode:
Bilder: array[1..99] of TBitmap;
...
procedure TfImport.bHinzufuegenClick(Sender: TObject);
begin
if not OpenPictureDialog1.Execute then
exit;
with OpenPictureDialog1 do
for i := 0 to Files.Count - 1 do
begin
Bilder[i]:= TBitmap.Create;
Bilder[i].PixelFormat:= pf24Bit;
Bilder[i].Width:= 50;
Bilder[i].Height:= 35;
Bilder[i].Canvas.CopyRect(Bilder[i].Canvas.ClipRect, lbBilder.Canvas, Rect(5, 0, 5 + 50, 0 + 35));
Bilder[i].Canvas.Draw(0,0,Bilder[i]);
Bilder[i].Free;
//lbBilder.Items.add(Files.Strings[i]);
lbBilder.Items.AddObject(Files.Strings[i], TBitmap(Bilder[i]));
end;
end;
Das Laden des jeweiligen Pfades klappt. Ich möchte jedoch auch vor dem jeweiligen Pfad das Bild eingefügt haben. Dies funktioniert aber nicht.
Ich habe die ListBox auf OwnerDrawVariable eingestellt.
so soll es einmal aussehen:
Danke im Vorraus