Delphi/꿀팁
이미지 반투명화 하기
uses Windows, Vcl.Graphics, Vcl.Imaging.pngimage;procedure SetAlphaBlend(var img: TPngImage; const Alpha: Byte);var mScanline, mPixel: Integer; mScanArray: pByteArray;begin try img.CreateAlpha; for mScanline := 0 to img.Height - 1 do begin mScanArray := img.AlphaScanline[mScanline]; for mPixel := 0 to img.Width - 1 do begin mScanArray[mPixel] := Alpha; end; end; except Exit; end;end;procedure Ch..