「Paweł Głowacki : Fun with FireMonkey Gradients」で背景色をグラデーションにする方法が紹介されていました。
プロパティを設定するだけでグラデーションにできます。
コーディング不要なところがさすがDelphi。
FireMokey モバイルアプリケーションを作成します。
TRectangleコンポーネントを配置します。
配置したTRectangleコンポーネントのAlignプロパティを「alClient」にします。
FillプロパティのKindプロパティを「bkGradient」にします。
背景がグラデーションになりました。
FillプロパティのGradientプロパティから「編集」を選択します。
「ブラシ デザイナ」が表示されるので、「グラデーション表示」タブを選択します。
プレビューバーの下にある丸印をクリックしてして、グラデーションでの色を選択します。
※配色は「iOS 7 colors」を参考にしました。
「OK」ボタンを押すと、デザイン画面の表示が更新されます。
次にアニメーション効果を追加します。
Rectangle1コンポーネントのFillプロパティのGradientプロパティから「TGradientAnimationの新規作成」を選択します。
Rectangle1コンポーネントの下にTGradientAnimationコンポーネントが追加されます。
次にアニメーション効果を追加します。
GradientAnimation1コンポーネントのStartValueプロパティに、Rectangle1コンポーネントのFillプロパティのGradientプロパティと同じ値を設定します。
GradientAnimation1コンポーネントのStopValueプロパティに、変化したときのグラデーションの色を設定します。
GradientAnimation1コンポーネントのStartメソッドでアニメーションが実行されます。
procedure TForm1.Rectangle1Click(Sender: TObject);
begin
GradientAnimation1.Start;
end;