イメージリストの仕様変更？

解決

かず 2011-10-08 08:00:45 No: 41000

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;

かず 2011-10-09 03:17:51 No: 41001

単純な設定ミスでした。
BentColorを黒色に設定するだけでした。