Listing 25


//Bitmapvergleich für 8Bit Bitmaps gleicher Größe

function BmpVgl(bmp1, bmp2: TBitmap): Boolean;
var
  x, y: Integer;
  P1, P2 : PByteArray;

begin
    result:=True;

    for y := 0 to bmp1.height -1 do
    begin
      P1 := bmp1.ScanLine[y];
      P2 := bmp2.ScanLine[y];
      for x := 0 to bmp1.width -1 do
         if P1[x]<>P2[x] then begin result:=False; Exit; end;
    end;
end;


Zurück zur Hauptseite