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




[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/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