Свойство ScanLine. Анализ пикселей.

[Vova777]

Как свойством BitMap.ScanLine проверить изображение (200х200 пкс) на наличие черных пикселей? Результат вывести в двумерный массив 200х200 ячеек.

[Asinkrit]

type

  _RGB = record
    b,
    g,
    r: byte;
  end;

  ARGB = array[0..1] of _RGB;

  PARGB = ^ARGB;

  TBuffer = array[0..199,0..199] of boolean;

...

var
  p: PARGB;
  x, y: Integer;
  FBuffer:TBuffer;
begin
  for y:=0 to 199 do
    begin
    p:=aBitMap.ScanLine[y];
    for x:=0 to 199 do
      FBuffer[x,y]:=((p[x].b = 0) and (p[x].g = 0) and (p[x].r = 0));
    end;
end;