改变PNG图片的透明度 delphi

最新推荐文章于 2024-04-18 10:54:10 发布

weixin_33932129

最新推荐文章于 2024-04-18 10:54:10 发布

阅读量695

点赞数

原文链接：https://my.oschina.net/u/1777508/blog/489749

版权

为什么80%的码农都做不了架构师？>>>

type
  TARGBRect = packed record
  Blue, Green, Red, Alpha: Byte; 
  end; 
var
  I, x, y: Integer; 
  bmp: TGpBitmap; 
  bg: TGpGraphics; 
  Data: TBitmapData; 
  P: PInteger; 
begin
  DoubleBuffered := True; 
  bmp := TGpBitmap.Create('0.bmp'); 
  try
  Data := bmp.LockBits(GpRect(0, 0, W, H), [imRead, imWrite], pf32bppARGB); 
  P := Data.Scan0; 
  for y := 1 to Data.Height do
  for x := 1 to Data.Width do
  begin
  // 计算不透明度 
  with TARGBRect(P^) do
  Alpha := Max(Red, Max(Green, Blue)); 
  //Alpha := (Red + Green + Blue) div 3; 
  //Alpha := (306 * Red + 601 * Green + 117 * Blue) div 1024; 
  Inc(P); 
  end; 
  bmp.UnlockBits(Data); 
  bg := TGpGraphics.Create(form1.Canvas.Handle); 
  bg.DrawImage(bmp, 0, 0, bmp.wideh, bmp.Height); 
  end; 
  finally
  bg.Free; 
  bmp.Free; 
  end; 
end;

转载于:https://my.oschina.net/u/1777508/blog/489749