In der letzten Arbeitsstunde vor Weihnachten habe ich irgendwie einen Blackout.
Ich will sechs Objekte in drei Reihen mit zwei Objekten in einer Spalte anordnen:
Delphi-Quellcode:
procedure TForm2.tbbTemplateClick(Sender: TObject);
var
i: Integer;
begin
for i := 0 to 5 do
begin
ImageEnVect1.LayersAdd;
ImageEnVect1.Layers[i].VisibleBox := True;
ImageEnVect1.Layers[ImageEnVect1.LayersCurrent].Width := Trunc(DEFAULTWIDTH * 0.80);
ImageEnVect1.Layers[ImageEnVect1.LayersCurrent].Height := Trunc(DEFAULTHEIGHT * 0.80);
ImageEnVect1.Layers[ImageEnVect1.LayersCurrent].PosX := DEFAULTWIDTH * i + 50;
if i mod 2 = 0 then
ImageEnVect1.Layers[ImageEnVect1.LayersCurrent].PosY := DEFAULTHEIGHT * i + 25
else
ImageEnVect1.Layers[ImageEnVect1.LayersCurrent].PosY := 80;
ImageEnVect1.IO.LoadFromFileJpeg(ExtractFilePath(ParamStr(0)) + 'empty.jpg');
ImageEnVect1.Update;
end;
end;
Das bringt allerdings nicht das gewünschte Ergebnis.
Wie gesagt, ich habe einen absoluten Blackout.
