喫茶XRAY [Mr.XRAY掲示板]

最近 UP した画像，図形の移動リサイズも簡単にできます．
下の図では，TImage とTSelection を使用しています．
左は，TSelection に TImage を子コントロールにしたものです．
このままだとラバーバンドが見えなくなってしまうので，
右では，親子関係にはしないで，実行時に移動リサイズしたものです．
したがって，こちらは少しコーディングが必要ですが，簡単なコードで
済みます．

参考のため，EXEファイルだけUPしておきます．
http://mrxray.on.coocan.jp/Delphi/zipothers/FireMonkeyTest.zip

//==================================================================
//  ラバーバンドとグラブハンドルをTImageの上に表示するために親子関係
//  にはしていない
//  そこで，実行時に位置とサイズを合わせる
//==================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  Selection2Resize(nil);
end;

//==================================================================
//  移動時には，位置たけ合わせる
//==================================================================
procedure TForm1.Selection2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Single);
begin
  Image2.Position.X := Selection2.Position.X;
  Image2.Position.Y := Selection2.Position.Y;
end;

//==================================================================
//  リサイズ時には，サイズを合わせる
//==================================================================
procedure TForm1.Selection2Resize(Sender: TObject);
begin
  Image2.SetBounds(Selection2.Position.X,
                   Selection2.Position.Y,
                   Selection2.Width,
                   Selection2.Height);
end;

参考
Creating a FireMonkey Primitive Control
http://docwiki.embarcadero.com/RADStudio/en/Creating_a_FireMonkey_Primitive_Control

EXEの作成は，Windows 7 U64(SP1) + Delphi XE2(UP4)