Последние записи

made in programmersforum 10

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

20th
Окт

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

Posted by Chas under Delphi, Пост-обзор

Результат вывести в двумерный массив 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;