Einzelnen Beitrag anzeigen

Benutzerbild von DGL-luke
DGL-luke

Registriert seit: 1. Apr 2005
Ort: Bad Tölz
4.149 Beiträge
 
Delphi 2006 Professional
 
#6

Re: Bilder nebeneinander auf TScrollbox

  Alt 11. Aug 2006, 13:25
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
  Mit Zitat antworten Zitat