Versuch es mal hiermit:
Delphi-Quellcode:
Var X, Y: Integer;
Begin
For X := 0 to PaintBox1.Width - 1 do
For Y := 0 to PaintBox1.Width - 1 do
PaintBox3.Canvas.Pixels[X, Y] := (PaintBox1.Canvas.Pixels[X, Y] xor PaintBox2.Canvas.Pixels[X, Y]) and $00FFFFFF;
End;
Hab das mal schnell im Kopf optimiert. Also nicht getestet.
Das berechnet pro Pixel für jede Grundfarbe (Rot/Grün/Blau) die Farbdifferenz.
Rot3 := ABS(Rot1 - Rot2);
Man könnte das Ganze noch auf ScanLine abändern, um die Berechnung zu beschleunigen.