您现在的位置:首页 >> 图形媒体 >> 图形媒体 >> 内容

Delphi将位图颜色变深

时间:2011/9/3 15:03:32 点击:

  核心提示:procedure Dark24Bitmap(var B : TBitmap;N : integer);var i,j : integer; pB : PByteArray; Count: Integ...
procedure Dark24Bitmap(var B : TBitmap;N : integer);
var
  i,j : integer;
  pB : PByteArray;
  Count: Integer;
begin
  i := Integer(B.PixelFormat);
  if i < 4 then
    i := 4
  else if i = 4 then
    inc(i);
  Count := (i - 3) * B.Width - 1;
  for i:=0 to B.Height-1 do
  begin
    pb:=B.ScanLine[i];
    for j:=0 to  Count do
      if pb[j]<n then pb[j]:=0 else dec(pb[j],n);
  end;
end;

Tags:颜色 
作者:网络 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
本类推荐
  • 没有
本类固顶
  • 没有
  • 盒子文章(www.2ccc.com) © 2017 版权所有 All Rights Reserved.
  • 沪ICP备05001939号