AFsoft WebSite (AFsoft.JP)

DelphiXE3　[FMX] 透視変換効果(PerspectiveTransformEffect)2013/12/14

　
前回は [Effects]内の「アフィン変換効果」（AffineTransformEffect）
について見てみました。次は同じく [Effects]内の
「透視変換効果」（PerspectiveTransformEffect）を見てみます。
　
　
[Effects]内

FMX

　
ヘルプより。

TPerspectiveTransformEffect は、表示オブジェクトのテクスチャに透視変換を適用する効果を作成するためのクラスです。詳細は、「TImageFXEffect」および「FireMonkey の画像効果」を参照してください。
　
透視変換は、BottomLeft プロパティ、BottomRight プロパティ、TopLeft プロパティ、TopRight プロパティを使って設定およびカスタマイズすることができます。各プロパティは、最終的な変換の端点を指定します。

　
透視変換は、通常、３次元図を２次元図として見せる場合、現実に見えるように奥行を表現して実際の距離と表示する長さは異なり、焦点１つの１点透視図、焦点２つの２点透視図がよく利用されます。
　
４点指定の変形変換のようですが、どちらかといえば、こちらのほうが「アフィン変換」っぽいかもしれません。ですが、変換された内容を見ると、小さく縮められる部分が遠い部分＝奥行を示す、という感じで、通常のアフィン変換による図形の４点指定変形の結果内容とは異なり、透視変換を行なった結果内容、つまり、手前のほうが長く、遠い方がどんどん短くなっているような図になるようです。
　

TopLeft

結果のパースペクティブ変換の左上の点を示します。

TopRight

結果のパースペクティブ変換の右上の点を示します。

BottomLeft

結果のパースペクティブ変換の左下の点を示します。

BottomRight

結果のパースペクティブ変換の右下の点を示します。

Trigger

トリガ条件を保有するプロパティ。
それぞれのトリガ条件は、プロパティ名、等号記号、トリガ値で構成されます。すべての組み込みトリガはブール値です。したがって、それらの値は True または False でなければなりません。例：
IsMouseOver=true;IsPressed=false
トリガの値を設定は、オブジェクトインスペクタで最も簡単に行えます。

トリガ	説明
IsDragOver	コントロールがドラッグされている（マウスボタンがクリックされ、かつ押されたままになっている）際に、効果を発生させます。
IsFocused	コントロール上にフォーカスがある際に、効果を発生させます。
IsMouseOver	マウスがコントロールの上を通過した際に、効果を発生させます（HitTest が True に設定されている必要があります）。
IsVisible	コントロールが画面上に表示されている際に、効果を発生させます。

その他の組み込みトリガには、以下のものがあります。
・IsActive（TCustomForm）
・IsChecked (TMenuItem)
・IsOpen (TEffect)
・IsPressed (TCustomButton)
・IsSelected（MenuItem、TTabItem、TListBoxItem、TTreeViewItem）
効果トリガに関するさらなる情報については、「FireMonkey の画像効果」の「効果のトリガ」を参照してください。

　
それでは少し試してみます。
　
フォーム上にイメージコンポーネント１つを配置します。回転系の効果の中心点が[150,150]との事ですから、イメージコンポーネントのサイズを 300×300 にしておきます。それに Windows7 標準のサンプルピクチャの「アジサイ.jpg」を指定しています。

　
イメージ Image1 の WrapMode値はデフォルトの「iwFit」のままとします。元々の画像ファイル「アジサイ.jpg」は 1024×768ドット（ピクセル）となっていますが、このモードにすると、イメージオブジェクトのサイズ 300×300ドットの大きさに縮小して表示されるようになり、なおかつ、画像の縦横比（アスペクト比）が維持される、という事になります。
　
このイメージに対して効果を掛けるようにします。
本コンポーネントを配置し、構造ビューでドラッグして、上記で配置したイメージの子になるようにします。

　
各デフォルト値は記載がないので分かりませんが、プログラムコードで全て指定するようにすれば別段問題はないと思われます。ここではフォーム表示時のイベントハンドラで指定するようにしています。以下は通常状態。

procedure TForm1.FormShow(Sender: TObject);
begin
　PerspectiveTransformEffect1.TopLeft　　:= PointF(　0,　0);
　PerspectiveTransformEffect1.TopRight　 := PointF(300,　0);
　PerspectiveTransformEffect1.BottomLeft := PointF(　0,300);
　PerspectiveTransformEffect1.BottomRight:= PointF(300,300);
end;