Скрипт 3D Animation 13.04

"Перевел" на FMXBridge.dll

Случайное направление анимации страниц.

Спойлер: [code]

code_language.pascal:

procedure FlipTo(Sender: TObject; i: Integer);
begin
  PageControl[3].TabIndex(i);
  case Random(2) of
    0:
    begin
      PageLayer3D[1].RotationAngleX(0);
      PageLayer3D[2].RotationAngleX(-180);
      PageLayer3D[1].RotationAngleY(0);
      PageLayer3D[2].RotationAngleY(0);

      PageAnimation[1].StopAtCurrent;
      PageAnimation[1].SetValues(0, 180);
      PageAnimation[1].Start;
      PageAnimation[3].StopAtCurrent;
      PageAnimation[3].SetValues(-180, 0);
      PageAnimation[3].Start;
    end;
    1:
    begin
      PageLayer3D[1].RotationAngleY(0);
      PageLayer3D[2].RotationAngleY(-180);
      PageLayer3D[1].RotationAngleX(0);
      PageLayer3D[2].RotationAngleX(0);

      PageAnimation[2].StopAtCurrent;
      PageAnimation[2].SetValues(0, 180);
      PageAnimation[2].Start;
      PageAnimation[4].StopAtCurrent;
      PageAnimation[4].SetValues(-180, 0);
      PageAnimation[4].Start;
    end;
  end;
  PageLayer3D[1].BringToFront;
end;

IsArcEx.dll 0.5.0.0

Небольшое обновление,
Теперь есть расчет размера выбранных компонентов.
Теперь количество компонентов и количество архивов задаются в ini-файле.