请问如何在bmp灰度图中找到水平或垂直方向中最亮或最暗的像素点所在的位置? ( 积分: 200 )

bmp灰度图是有规律的,水平或垂直方向亮度相同.

bmp灰度图是有规律的,水平或垂直方向亮度相同.

function TForm1.GetPoint(bmp: TBitmap): TPoint;
var
I, J: Integer;
Value: TColor;
begin
Value := bmp.Canvas.Pixels[1,1] and $000000FF;
Result := Point(1,1);
for I:= 1 to bmp.Width do
for J:= 1 to bmp.Height do begin
if (bmp.Canvas.Pixels[I,J] and $000000FF) <= Value then
Continue;
Result := Point(I,J);
Value := bmp.Canvas.Pixels[I,J] and $000000FF;
end;
end;