Bilder nebeneinander auf TScrollbox

[danku]

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?

[danku]

ist die problemstellung zu kompliziert formuliert?

[danku]

sonst hilft doch immer einer ... :cry:

[DGL-luke]

wo wird denn z bearbeitet?

[danku]

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);

[DGL-luke]

komische einrückung... ich steig da nicht durch und hab deshalb einfach mal hingeschrieben, wies ich machen würde.

Delphi-Quellcode:

var fnames: array of SysUtils.TFileName;
x,y: Integer; //temp vars
stepx,stepy: Integer; //abstand zwischen bildern
countx: Integer; //anzahl bilder nebeneinander
Padding: Integer; //abstand vom rand der scrollbox
wx,wy: Integer // Breite/Höhe

countx := 0;

for i := low(fnames) to high(fnames) do
  begin
    x := Padding + (i div countx) * stepx;
    y := Padding + (i mod countx) * stepy;

    Image := TImage.Create(ScrollBox);
    Image.Parent := ScrollBox;
    Image.LoadFromFile(fnames[i]);
    image.Width := wx;
    image.height := wy;
    image.left := x;
    image.right := y;
  end;

was du fürs scaling einstellen musst (stretchmode etc.), hab ich grad nicht im kopf. evtl. muss man auch das mod und das div da oben vertauschen... is ja noch früh ;)

Ich würd dir übrigens empfehlen, dafür TImage32 zu benutzen. Das hat viel bessere Skalierungsfilter.