Delphi Programming / Object Pascal
  
[掲載 2022年09月17日] [更新 2022年09月17日] Delphi 一般・その他 |
| FireMonkey の Effects によるコントロールの背景 |
| 動作確認等 |
Windows 10 ビルド 19043 Pro 64 bit + Delphi XE5(UP2) Pro FMX-32
Windows 10 ビルド 19043 Pro 64 bit + Delphi 10.4 Community FMX-32 |
| FireMonkey の Effects によるコントロールの背景 |
コンポーネントのカテゴリ (パレット) の [Effects] に，各種の画像効果用のコンポーネントがあります．これらの中には，コントロールの背景に利用できるコンポーネントがあります．その例です．
[Effects] のコンポーネント類はフォームには配置できません．コンポーネントをダブル句クリックすると，[フォームデザイナ] の [構造] ペインに配置されます．配置されたコンポーネントを Drag & Drop で，対象のコントロールの階層下に移動して使用します．
[フォームデザイナ] の [構造] ペインは，IDE 環境で，フォームが表示されている状態の時の [構造] ペインのことです． |
| 01_TInnerGrowEffects コンポーネントを使用した背景効果 |
TInnerGrowEffects コンポーネントを使用する例です．ここでは TButton と TMemo だけですが，下図のようになります． |
|
図1
TInnerGrowEffects を使用した例
- 領域周辺がグラデーションになる
- Button1 は TInnerGrowEffects 未使用
|
| TInnerGrowEffects コンポーネントを追加した状態の [構造] ペインです． |
|
図2
設計時の [構造] ペイン |
| 下図は，TInnerGrowEffects コンポーネントのオブジェクトインスペクタです．今回は GlowColor プロパティの値だけを設定してテストしています． |
|
図3
TInnerGrowEffects のオブジェクトインスペクタ |
| 02_TShadowEffects コンポーネントを使用して影付きボタン |
| TShadowEffects コンポーネントを使用する例です．ここでは TButton だけを影付きにしています． |
|
図4
TShadowEffects を使用した例
- 影付きになる
- プロパティ Opacity の値を変えている
- Button1 は TShadowEffects を未使用
|
| TShadowEffects コンポーネントを追加した状態の [構造] ペインです． |
|
図5
設計時の [構造] ペイン |
最初のサンフルで，実行時に Effects 関係のプロパティを変更する例です． |
|
図6
EXE 実行開始時 |
|
図7
[Button1] をクリック |
//=============================================================================
// 実行時に色を変更
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
begin
if InnerGlowEffect1.GlowColor = TAlphaColorRec.Lime then begin
InnerGlowEffect1.GlowColor := TAlphaColorRec.blue;
InnerGlowEffect2.GlowColor := TAlphaColorRec.blue;
end else begin
InnerGlowEffect1.GlowColor := TAlphaColorRec.Green;
InnerGlowEffect2.GlowColor := TAlphaColorRec.Green;
end;
end;
|