Hallo Michael,
bei mir würde es so oder ähnlich aussehen:
Delphi-Quellcode:
procedure TDemoForm.ButtonClick(Sender: TObject);
const
HORZ_DIST = 50;
VERT_DIST = 25;
HORZ_OFFS = 0;
VERT_OFFS = 0;
var
i, iLayer: Integer;
fn: TFileName;
begin
fn := ExtractFilePath(ParamStr(0)) + 'empty.jpg';
with ieVect do
for i := 0 to 5 do
begin
iLayer := LayersAdd;
CurrentLayer.VisibleBox := True;
CurrentLayer.Width := Trunc(DEFAULTWIDTH * 0.80);
CurrentLayer.Height := Trunc(DEFAULTHEIGHT * 0.80);
CurrentLayer.PosX := (DEFAULTWIDTH + HORZ_DIST) * (i div 3) + HORZ_OFFS;
CurrentLayer.PosY := (DEFAULTHEIGHT + VERT_DIST) * (i mod 3) + VERT_OFFS;
IO.LoadFromFileJpeg(fn);
Update;
end;
end;
Konstanten müsstest du anpassen.
Freundliche Grüße