gif、pngファイルから透明色を取得するには (ID:150620)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 AAAAAさん、ありがとうございます。 pngの処理を下記のようにすることで希望通りの動作になりました。 疑問なのが画像ファイルで clRed 赤 RBG(255,0,0)を使っていても その部分は透明にはならず描画されます。 理想の動作ですが画像によっては意図しないところが透明になったりするのでしょうか？ r := Rect(0,0,64,64); bmp := TBitmap.Create; png := TPngImage.Create; mask := TBitmap.Create; try bmp.SetSize(64,64); png.LoadFromFile('imagetest.png'); bmp.Canvas.Brush.Color := clRed; bmp.Canvas.FillRect(bmp.Canvas.ClipRect); bmp.Canvas.StretchDraw(r,png); mask.Assign(bmp); mask.Mask(clRed); ImageList1.Add(bmp,mask); finally mask.free; png.Free; bmp.Free; end;