Hilfe! mein Scanline ist Kaputt!

[chest3rs]

Hallo xy,

so funktioniert es:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  x,y,d1,d2: Integer;
  color: LongInt;
  r,g,b: Byte;
begin
  for y := 1 to Image1.Height do
  begin
    for x := 1 to Image1.Width do
    begin
      // 1. Bild
      color := ColorToRGB(Image1.Picture.Bitmap.Canvas.Pixels[x,y]);
      r := GetRValue(color);
      g := GetGValue(color);
      b := GetBValue(color);
      d1 := (r+g+b) div 3;
      // 2. Bild
      color := ColorToRGB(Image2.Picture.Bitmap.Canvas.Pixels[x,y]);
      r := GetRValue(color);
      g := GetGValue(color);
      b := GetBValue(color);
      d2 := (r+g+b) div 3;
      // Farben vergleichen
      if d1 <> d2 then
        Image2.Picture.Bitmap.Canvas.Pixels[x,y] := RGB(255,0,0);
    end;
  end;
end;