イメージリストの仕様変更？ (ID:41000)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Delphi2006から2010へプロジェクトを移行するとTImageにImageListのイメージを書き込む際、そのままでは選択表示されません。仕様が変わったのでしょうか。 1行追加したら表示できますが、網掛けが白に変わって表示されます。 もっと異なる解決策があるのでしょうか。 procedure TForm1.Button1Click(Sender: TObject); begin Image1.Picture.Bitmap.Assign(nil); <<ここを追加して機能するようになった ImageList1.DrawingStyle := dsSelected; ImageList1.GetBitmap(0, Image1.Picture.Bitmap); end; procedure TForm1.Button2Click(Sender: TObject); begin Image1.Picture.Bitmap.Assign(nil); <<ここを追加して機能するようになった ImageList1.DrawingStyle := dsNormal; ImageList1.GetBitmap(0, Image1.Picture.Bitmap); end;