Delphi TImageListへの画像追加をカンタンにする

Delphiで多数のメニューを使う場合、TImageListで画像を一括管理するのが便利です。

しかし大きなアイコン、大きなアイコンのフォーカス状態、小さなアイコン、小さなアイコンのフォーカス状態・・・などと作っていくと、管理するだけで大変です。

しかもアイコン全てのTImageList内の並び順も同じにしなければアイコンが狂ってしまいます。

そんなときに役立つテクニックです。

１、1つの画像ファイルにアイコンを並べる

まずは使いたいアイコンを1枚の画像にしてしまいます。

(画面はAdobe FireWorks。アイコンはFatCowさんの高品質フリーアイコンです）

上の画像では32×32ピクセルのアイコンを4つ並べています。

画像のサイズは128×32ピクセルとなります。

次に画像をTImageListで読み込みます。

上の画像を使う場合、プロパティのHeight、Widthはともに「32」を指定します。

TImageListをダブルクリックし、

「追加」から先ほどの128×32ピクセルの画像を読み込みます。

すると次のようなダイアログが現れます。

「はい」を押すと・・・

ドン！とみごと4つに分割されて入りました！

さらに次は128×64（4個x2個）の画像を作ってみます。

１～３の手順を行うと・・・

なんとしっかり8個に分割してくれます！

便利！

このテクニックを使うことによっていくつものメリットがあります。

並び順が完全に同じになる

などなど。

かなりの作業量を削減してくれます。

Delphiで大型ツールを作っている方はぜひ使ってみてください。