Delphi XE2 TrialのTImageコントロールに読み込まれた画像をズームするには？

Question

私は、デルファイXE2でTImageのコントロールでさまざまなタイプの画像ファイルを読み込む小さなユーティリティを開発しました。ここでは、組み込みコントロールのみを使用して（つまり、サードパーティのコンポーネントを使用しない）ズーム機能を実装してテストしたいと思います。

Answer 1

マウスホイールを使用してTImageをズームインおよびズームアウトするthis answerの2番目の部分を参照してください。

注：イメージコンポーネントの位置を変更します。