Introduction - If you have any usage issues, please Google them yourself
procedure ImageDynamTwoValues(Data: TImageData SubSize: Integer)
var
Sub: TImageData
GrayData: TGrayStatData
x, y: Integer
begin
if SubSize <= 0 then
begin
ImageGrayStat(Data, GrayData, True)
ImageTwoValues(Data, GrayData.Average)
Exit
end
y := 0
while y < Data.Height do
begin
x := 0
while x < Data.Width do
begin
Sub := GetSubImageData(Data, x, y, SubSize, SubSize)
ImageGrayStat(Sub, GrayData, True)
ImageTwoValues(Sub, GrayData.Average)
Inc(x, SubSize)
end
Inc(y, SubSize)
end
end
本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/maozefa/archive/2007/11/29/1908031.aspx