Ich glaube ich gehe wieder ins Bett. Ich schreibe ja nur müll!!! Kann ja nicht gehen.
Du musst ja für jedes Bild einen Eintrag in der Stringlist deiner Kompo machen.
Neuer Versuch:
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var
i : integer;
begin
mThumbs1.InFiles.Clear;
for i := 0 to CheckListBox1.Items.Count - 1 do
if CheckListBox1.Checked[i] then
begin
mThumbs1.InFiles.Add (CheckListBox1.Items.[i]);
end;
mThumbs1.CreateThumbnails;
end;
Stephan B.
"Lasst den Gänsen ihre Füßchen"