Сравнение изображений.

[Pavia]

В чём проблема пишешь 2-3 функции

function SumInRect(const bmp:TBitmap; const Rect:TRect):Integer;
var i,j:Integer;
begin
Result:=0;
  for j:=Rect.Bottom to Rect.Top do
    for i:=Rect.Left to Rect.Right do
      if bmp.Canvas.Pixels[i,j]=clWhite then Inc(Result);

end;

procedure Detect(const bmp:TBitmap; const N:Integer);
var i,j:Integer;
sun:Integer;
const
 r=20;
begin
  for j:=0 to Bmp.Height div r-1 do
    for i:=0 to Bmp.Width div r-1 do
      begin
      Sum:=SumInRect(bmp, Rect(i*r,j*r,i*r+r,j*r+r));
      if Sum>N then Add(i,j); // Тут вместо Add делаешь вывод координат в нужном формате
      end;
end;

[min@y™]

Короче, у меня вот так получилось.

Составляется именно список ячеек сетки, как просил.
Дальше сам, мне надоело. Исходники внутри. Написал тебе независимый класс TBitmapComparer, который и занимается сравнением двух картинок и составляет список.

type
  TBitmapComparer = class(TList<TRect>)
  private
    LBitmap0: TBitmap;
    LBitmap1: TBitmap;
    FResultBitmap: TBitmap;
    FBackground: TColor;
    FGridStepX: Integer;
    FGridStepY: Integer;
    FGridColor: TColor;
    FROP: DWORD;
    FTriggerPercent: Integer; // 1...100% - доля точек в ячейке сетки, отличающихся от фона, для добавления ячейки в список

    FBackgroundRGB: TRGBTriple;
  private
    function GetColCount: Integer;
    function GetRowCount: Integer;
    function GetCellSquare: Integer; // площадь ячейки
    function GetTrigger: Integer; // абсолютное кол-во нефоновых точек (рассчитывается динамически)
  protected
    function GetResult: TBitmap; virtual;
    function ScanCell(const ACell: TRect): Boolean;
    procedure DrawToResult;
  public
    constructor Create;// override;
    destructor Destroy; override;
    procedure Recalculate;

    property Bitmap0: TBitmap read LBitmap0 write LBitmap0;
    property Bitmap1: TBitmap read LBitmap1 write LBitmap1;
    property ResultBitmap: TBitmap read GetResult;
    property Background: TColor read FBackground write FBackground default clBlack;
    property GridStepX: Integer read FGridStepX write FGridStepX default 16;
    property GridStepY: Integer read FGridStepY write FGridStepY default 16;
    property GridColor: TColor read FGridColor write FGridColor default clLime;
    property TriggerPercent: Integer read FTriggerPercent write FTriggerPercent default 5;
    property Trigger: Integer read GetTrigger;
    property CellSquare: Integer read GetCellSquare;
    property ROP: DWORD read FROP write FROP default SRCINVERT;
    property RowCount: Integer read GetRowCount;
    property ColCount: Integer read GetColCount;
  end;

Можешь взять за основу и допиливать.
Можешь не благодарить.

[stlcrash]

У меня вот так вышло. Даже цвет сетки одинаковый D

Всем Спасибо. Тема закрыта благодаря min@y™,Pavia, и krapotkin и другого форума.

[IvaniuS]

Сообщение от min@y™

Можешь взять за основу и допиливать.
Можешь не благодарить.

Плохой ексшеник у тебя.... айайай так шутить)

хммм очень интереная тема, возможно кому-то вдруг пригодится я использовал еще библиотеку FastFrench точнее из нее перевел С код на Delphi https://github.com/FastFrench/FastFind
Сам код где-то в исходниках лежит, там все-го одна функция нужна, с нее смог сделать тоже самое что и вы для игры World of Warplanes

[min@y™]

Плохой ексшеник у тебя

это почему?

[IvaniuS]

из-за

ufBsod.pas

так и инфаркт можно схлопотать
Простите за оффтоп.

[min@y™]

так и инфаркт можно схлопотать

картинка слишком безобидная. это ж мотиватор! он там не только для прикола. И звуковое сопровождение - тоже.

выброшу и заменю на кадр из фильма "звонок".
меняй памперсы чаще!

кстати, ты-то какого МПХ прогу взял? она ж не для тебя.

[IvaniuS]

Сообщение от min@y™

Я всегда отдаю исходники. Причём бесплатно.
Они автоматически пришпиливаются в ЕХЕ и извлекаются оттудова обычно по Shift+F11. Это я не только тебе говорю.

вот по этому и забрал к себе тоже)

[min@y™]

вот по этому и забрал к себе тоже)

да мне не жалко. только зачем?

[stlcrash]

Продолжение темы )
Задачу звучит так:
Есть изображение в формате BMP. В нем нужно закрасить все пиксели определенного цвета. в белый.
На примере все "не нужные" пиксели обведены овалом.

Тоесть есть при нажатии на кнопку с BMP файла удаляются все пиксели, которые совпадают с цветами пикселей обведенных в овал.

PS массив цветов задается в программе. тоесть цвета удаляемых пикселей всегда одинаковые.

PSS Если совсем по простому объяснить то нужно удалить с картинки всю Воду.