掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
透明ありの PNGファイルの解像度を変更する方法 (ID：151627)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
期待どおりになるか、わかりませんが、 procedure TForm1.Button1Click(Sender: TObject); var pngf,pngt : TPngImage; bmp: TBitmap; begin pngf := TPngImage.Create; pngt := TPngImage.Create; bmp := TBitmap.Create; try pngf.LoadFromFile('sample.png'); bmp.SetSize(100,100); bmp.Canvas.Brush.Style := bsSolid; bmp.Canvas.Brush.Color := pngf.TransparentColor; bmp.Canvas.FillRect(Rect(0,0,100,100)); bmp.Canvas.StretchDraw(Rect(0,0,100,100),pngf); bmp.Transparent := True; bmp.TransparentColor := pngf.TransparentColor; pngt.Assign(bmp); pngt.SaveToFile('sample2.png'); finally pngt.Free; pngf.Free; bmp.Free; end; end; としてみたら、いかがですか？
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.