Delphi Programming / Object Pascal
サイトのトップページへ リンクのページへ ロゴマーク
[掲載 2005年10月09日] [更新 2012年10月18日]　コントロール移動リサイズコンポーネント
コントロール移動リサイズコンポーネント
概要
クラス名 TplDragResize
バージョン番号 9.02 [2012年10月18日]
開発時動作確認
(VCL-32, VCL-64) 		Delphi6Delphi7Delphi2007Delphi2009Delphi2010DelphiXE
DelphiXE2DelphiXE3DelphiXE4DelphiXE5
テストEXE動作確認 WinXPWinVistaWin7
その他 ソースコード付き．テストプログラムのEXEファイル付き
再配布，改変，転載，商用アプリでの使用も自由
plDragResize.zip　[2,312 KB]　[2012年11月04日 更新]






概要


実行時に，グラフックコントロール (TGraphicContolの派生コントロール) の移動とリサイズを行うためのコンポーネントです．
タックシール印刷で，ラベルの設計を実行時に行うために開発したものです．実際には，目盛線を描画した TPanel の上に配置して，TImage 専用で利用していましたが，公開にあたり，TGraphicControl 専用にしました．TGraphicControl の派生コントロールには以下のものがあります．
  • TImage
  • TLabel
  • TShape
  • TPaintBox
  • TSpeedButton
  • TBevel




実行例と仕様


下図は実行時の画面例です．ターゲットとなるコントロール選択中は，デフォルトではそのコントロールのマウスイベントは発生しません．本コンポーネントがマウスイベントを操作します．キーイベントで操作したい場合は親コントロール(フォームやパネル等)のキーイベントで処理します．
  • グラブハンドル(サイズ変更と移動の小さい四角形)のサイズと色が変更可能です
  • ラバーバンドの線の種類と色も変更可能です
  • 移動のみとすることができます
  • 横または縦方向のみのサイズ変更とすることができます
  • 移動中にターゲットを表示するかしないかを指定できます
  • 回転の機能はありません
Delphi 6, Delphi 7 でも利用可能ですが，動作が重たく緩慢になる場合があります．Delphi 2007 以上での利用をお勧めします．


図1
実行例
  • TShape オブジェクトを対象として選択

本コンポーネントを使用すると，リサイズの操作をすることによって，左右または上下が反転した画像や図形を描画することができます．
ただし，画像処理を行っているわけではないので，正確な意味での反転画像ではありません．左右または上下の座標が反転する操作をした場合，周辺に余計な描画が入ることがあります．図形の場合はそのような現象が発生する可能性は低いと言えます．

上下左右の座標が反転する操作をしなくても，拡大や縮小を繰り返すと画質が低下します．