firemonkeyのHUDウィンドウの作成方法

Question

DelphiのHUD機能をfiremonkeyでhttps://github.com/jdg/MBProgressHUDに複製したいと考えています。

これがiPhoneでどのように見えるかです：

主な問題は、半透明の&フォームが完全に境界線を削除します方法です。

Answer 1

Firemonkey HDフォームを作成し、Fill.KindをbkNoneに設定し、Fill.Color〜Nullに設定します。さらに、TransparencyプロパティをTrueに設定すると、BorderStyle〜bsNoneになります。

TRectangle（または任意の図形）を作成し、Stroke.KindプロパティをbkNoneに設定します。 Fill.Color〜Grayに設定すると、Opacity〜0.5となります。

両親の親をフォームとして持つTAniIndicatorとTLabelを作成します。 Opacityは1.0のままです。オプションで、TImageも作成し、TAniIndicatorとまったく同じサイズと位置にします。

TAniIndicatorでTFloatAnimationを使用してイメージを（ティックなどに）変更し、ラベルテキストを表示したいメッセージに変更するだけの場合です。理想的には、文字列または整数を変数として受け入れ、それに合わせてテキストとインジケータ/イメージを変更するプロシージャを作成するだけです。例えば;

Procedure TForm1.Process(Mode : Integer); 
Begin 
if Mode = 1 then 
begin 
    AniIndicator1.Enabled := True; 
    AniIndicator1.Visible := True; 
    Image1.Visible := False; 
    Label1.TextAlign := TTextAlign.taCenter; // Must be called to reset alignment 
    Label1.Text := 'Loading'; 
End 
else if Mode = 2 then 
Begin 
    AniIndicator1.Enabled := False; 
    AniIndicator1.Visible := False; 
    Label1.TextAlign := TTextAlign.taCenter; // Must be called to reset alignment 
    Image1.Bitmap.LoadFromFile('Tick.png'); 
    Image1.Visible := True; 
    Label1.Text := 'Complete!'; 
end; 
end; 

次に、あなたのメインフォームでtpanelを作成し、子コンポーネントとして、上記のフォーム（つまりTAniIndicator, label, and rectangleが含まれている）を追加することができます。次に、有効なモード変数を使用して作成したプロシージャを呼び出します。コードに示されているとおりに実行されます。さらに多くのモードを追加するのは簡単ですし、自分で作成したアプリケーションと似たようなことをしました（ただし、インジケータを作成するのではなくTRectangleに関連していました）。