一个将图像的某个区域之外的区域变暗的函数_定义一个函数输入的图片的左半部分变暗,右半部分加亮。-优快云博客

本文介绍了一种图像处理算法，该算法能够使指定区域以外的部分变暗，从而突出显示特定区域。通过调整DarkValue和HighValue参数，可以控制图像暗化和亮化的程度。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

过程名:    DarkBmp
作者:      不得闲
日期:      2009.02.04
参数:      bmp: TBitmap;var DarkRect: TRect;const DarkValue: Integer;const HighValue: Integer = 0
             DarkRect指定不变暗的区域
             DarkValue: 指定暗化的数量值
             HighValue: 指定矩形区域增亮化的数量值
功能：     将图像的某个区域之外的区域变暗的函数
返回值:    无

procedure DarkBmp(bmp: TBitmap;var DarkRect: TRect;const DarkValue: Integer;const HighValue: Integer = 0); var i,j : integer; pB : PByteArray; BmpFormatXs: Integer; w,h:Integer; begin i := Integer(bmp.PixelFormat); if i < 4 then i := 4 else if i = 4 then inc(i) else if i > 7 then i := 7; BmpFormatXs := i - 3; w:= DarkRect.Right - DarkRect.Left; h:= DarkRect.Bottom - DarkRect.Top; if DarkRect.Right > bmp.Width then begin DarkRect.Left:=bmp.Width - w; DarkRect.Right:=bmp.Width; end; if (DarkRect.Bottom > bmp.Height) then begin DarkRect.Top:= bmp.Height - h; DarkRect.Bottom:=bmp.Height; end; if DarkRect.Left <0 then begin DarkRect.Left:=0; DarkRect.Right:=w; end; if DarkRect.Top <0 then begin DarkRect.Top:=0; DarkRect.Bottom:=h; end; for i := 0 to DarkRect.Top - 1 do begin pb:=bmp.ScanLine[i]; for j:=0 to BmpFormatXs*bmp.Width - 1 do if pb[j]<DarkValue then pb[j]:=0 else dec(pb[j],DarkValue); end; for i := DarkRect.Top to bmp.Height - 1 do begin pb:=bmp.ScanLine[i]; for j:=0 to BmpFormatXs*DarkRect.Left - 1 do if pb[j]<DarkValue then pb[j]:=0 else dec(pb[j],DarkValue); end; for i := DarkRect.Bottom to bmp.Height - 1 do begin pb:=bmp.ScanLine[i]; for j:= BmpFormatXs*DarkRect.Left to BmpFormatXs*bmp.Width - 1 do if pb[j]<DarkValue then pb[j]:=0 else dec(pb[j],DarkValue); end; for i := DarkRect.Top to DarkRect.Bottom - 1 do begin pb:=bmp.ScanLine[i]; for j:= BmpFormatXs*DarkRect.Right to BmpFormatXs*bmp.Width - 1 do if pb[j]<DarkValue then pb[j]:=0 else dec(pb[j],DarkValue) end; if HighValue <> 0 then for i := DarkRect.Top to DarkRect.Bottom - 1 do begin pb:=bmp.ScanLine[i]; for j:= BmpFormatXs*DarkRect.Left to BmpFormatXs*DarkRect.Right - 1 do if pb[j]>(255-DarkValue) then pb[j]:=255 else inc(pb[j],HighValue); end; end; 使用方法： procedure TForm1.Button1Click(Sender: TObject); var bmp: TBitmap; r: TRect; begin bmp := TBitmap.Create; bmp.Assign(Image1.Picture.Bitmap); r := Rect(0,0,50,50); DarkBmp(bmp,r,40,10); Image2.Picture.Bitmap := bmp; end;