喫茶XRAYトップページ

[スレッド全体]
[13036] TImageList内のPNG画像の取得返信　削除
2019/8/23 (金) 22:58:56 Mr.XRAY
[ PNGファイルをTImageListに入れて、TImageに入れたいのですが ]
https://groups.google.com/forum/#!topic/radstudio-jp/O9jCw8pd0lY

多分ログインしないと見られないと思います．
TImageList に格納した PNG 形式の画像は TImageList.GetIcon を使用すると取り出せます．
TImageList.GetBitmap メソッドはアルファチャンネルを考慮したコードになっていません．

procedure TForm1.Button2Click(Sender: TObject);
var
  LIcon : TIcon;
begin
  Self.Color := $00B3FFB3;

  Image1.Picture.Assign(nil);

  LIcon := TIcon.Create;
  try
    ImageList1.GetIcon(0, LIcon);
    Image1.Picture.Assign(LIcon);
  finally
    FreeAndNil(LIcon);
  end;
end;



[13038] Re:TImageList内のPNG画像の取得返信　削除
2019/8/24 (土) 08:14:14 Mr.XRAY
> TImageList に格納した PNG 形式の画像は TImageList.GetIcon を使用すると取り出せます．

なんですが，この質問には

>リソースファイルを使わず、ImageListで使いたい理由は
>Exeではなくフォームにその複数のPNGファイルを関連付けたいからなんですが、

とあります．
これがどういうことなのか，何故 PNG なのか．
ちょっとひっかかります．

[▼次のスレッド]
INCM/CMT
Cyclamen v3.82