Alpha Blend 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.. 이전 1 다음
