der obige code hat sich geändert.
ich habe meinen code überarbeitet und mal das probiert:
Delphi-Quellcode:
//Thumbnails erstellen
for i:=0 to dateien.count -1 do
begin
application.processmessages;
// Bild erzeugen und laden
temp := TImage.Create(scroller); //Erzeugt ein TImage
temp.Parent := scroller; //Macht es auf Form1 sichtbar
abstand:=2;
nebeneinander:=20;
//nebeneinander := (thumbbox.clientwidth - abstand) div (groesse + abstand);
if dateien.count > thumbbox.ClientWidth then thumbbox.ClientWidth := dateien.count;
//untereinander := (dateien.count div nebeneinander) + ord(dateien.count mod nebeneinander > 0);
for x := dateien.count to nebeneinander - 1 do begin
temp.width := groesse;
temp.left := dateien.count+abstand + x; //* (groesse + abstand);
temp.top := 0; //abstand + y * (groesse + abstand);