名前
題名
▼ 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; > >
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link