Zwei übereinander liegende Bilddateien trennen !!!

[Uwe Raabe]

Geht auch mit geringfügig weniger Zeilen:

Delphi-Quellcode:

function GetNewPicFromDifferences (OrgPic, NewPic, BDif: TBitmap): Boolean;
begin
  BDif.Assign(OrgPic);
  result := BitBlt(BDif.Canvas.Handle, 0, 0, BDif.Width, BDif.Height, NewPic.Canvas.Handle, 0, 0, SRCINVERT);
  if result then begin
    BDif.Mask(clBlack);
  end;
end;