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