ich lade die bilder über tdirectorylistbox auf eine tscrollbox.
das anordnen versuche ich so zu realisieren:
Delphi-Quellcode:
nebeneinander := (scrollbox1.clientwidth - abstand) div (groesse +
abstand);
if dateien.count*(Groesse+Abstand+13) < nebeneinander then nebeneinander := dateien.count;
untereinander := (dateien.count div nebeneinander) +
ord(dateien.count mod nebeneinander > 0);
for y := 0 to untereinander - 1 do
for x := 0 to nebeneinander - 1 do begin
if z < dateien.count then begin
temp := TImage.create(scrollbox1);
temp.tag := z;
temp.width := groesse;
temp.height := groesse;
temp.parent := scrollbox1;
temp.left := abstand + x * (groesse + abstand);
temp.top := abstand + y * (groesse + abstand);
es wird aber immer nur eins angezeigt.
(d.h. immer das aktuelle wechselt automatisch und überdeckt das vorhergehende)
die bilder sollen aber alle auf die tscrollbox nebeneinander geladen werden.
wer kann mir helfen?