喫茶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;



[13040] サンプル作成してみました返信　削除
2019/8/26 (月) 19:53:07 Mr.XRAY
> [ PNGファイルをTImageListに入れて、TImageに入れたいのですが ]
> https://groups.google.com/forum/#!topic/radstudio-jp/O9jCw8pd0lY

サンプル書いてみました．
レスするとしたらどんなのがいいか悩んでいます．
記事のページ紹介か，質問内容に応じた部分的なコードとするか．
質問された方がどういう方にもよりますね．

[ 092_TImageList に格納されている画像を取得 ]
http://mrxray.on.coocan.jp/Delphi/plSamples/092_TImageList_GetImage.htm

[13041] Re:サンプル作成してみました返信　削除
2019/8/28 (水) 14:56:25 Mr.XRAY
> レスするとしたらどんなのがいいか悩んでいます．

レス書いて送信したけど・・・
アドレス間違えた．ハハハッ
やり直したらまた間違えた．
後にしよう．

[13042] 今度こそ・・・返信　削除
2019/8/28 (水) 15:06:49 Mr.XRAY
> アドレス間違えた．ハハハッ

今度こそ，

https://groups.google.com/forum/#!topic/radstudio-jp/3O3KqjE1roA

ありゃ， PNG じゃなくて NG に．ハハハッ
こりゃ，NG だ・・・

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