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.
Lukas Erlacher
Suche Grafiktablett. Spenden/Gebrauchtangebote willkommen.
Gotteskrieger gesucht!
For it is the chief characteristic of the religion of science that it works. - Isaac Asimov, Foundation I, Buch 1