喫茶XRAYトップページ
[13036]
TImageList内のPNG画像の取得
返信
削除
2019/8/23 (金) 22:58:56
Mr.XRAY
[ PNGファイルをTImageListに入れて、TImageに入れたいのですが ]
https://
groups.
google.
com/
forum/#!
topic/
radstudi
o-
jp/
O9jCw8pd
0lY
多分ログインしないと見られないと思います．
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;
[13037]
Re:TImageList内のPNG画像の取得
返信
削除
2019/8/23 (金) 23:32:54
Mr.XRAY
> TImageList に格納した PNG 形式の画像は TImageList.GetIcon を使用すると取り出せます．
TBitmap --> TIcon は少し面倒ですが．
TBitmap にするには以下で．
TBitmap.Assign(TIcon)
TIcon.AssignTo(TBitmap)
[13039]
Re2:TImageList内のPNG画像の取得
返信
削除
2019/8/24 (土) 23:17:05
Mr.XRAY
> TBitmap にするには以下で．
>
> TBitmap.Assign(TIcon)
> TIcon.AssignTo(TBitmap)
大変失礼しました．
上のコードは，アルファチャンネル付きのビットマップとしては正常に変換できません．
なので GDI+ のサンプルも書いているのでした．
昔のことなので忘却の彼方にいっていました．
[13038]
Re:TImageList内のPNG画像の取得
返信
削除
2019/8/24 (土) 08:14:14
Mr.XRAY
> TImageList に格納した PNG 形式の画像は TImageList.GetIcon を使用すると取り出せます．
なんですが，この質問には
>リソースファイルを使わず、ImageListで使いたい理由は
>Exeではなくフォームにその複数のPNGファイルを関連付けたいからなんですが、
とあります．
これがどういうことなのか，何故 PNG なのか．
ちょっとひっかかります．
[13040]
サンプル作成してみました
返信
削除
2019/8/26 (月) 19:53:07
Mr.XRAY
> [ PNGファイルをTImageListに入れて、TImageに入れたいのですが ]
>
https://
groups.
google.
com/
forum/#!
topic/
radstudi
o-
jp/
O9jCw8pd
0lY
サンプル書いてみました．
レスするとしたらどんなのがいいか悩んでいます．
記事のページ紹介か，質問内容に応じた部分的なコードとするか．
質問された方がどういう方にもよりますね．
[ 092_TImageList に格納されている画像を取得 ]
http://
mrxray.
on.
coocan.
jp/
Delphi/
plSample
s/
092_TIma
geList_G
etImage.
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/
radstudi
o-
jp/
3O3KqjE1
roA
ありゃ， PNG じゃなくて NG に．ハハハッ
こりゃ，NG だ・・・
INCM/CMT
Cyclamen v3.82