Pixelmanipulation

[Hazardos]

Wie wärs denn mal hiermit??
führt zum gewünschten ergebnis...

Delphi-Quellcode:

var x,y,left,top : integer; //x,y = schleifenvariablen, left,top = Position des 2. Bildes im Ersten
    r,g,b : byte;
    Color1, Color2 : TColor;
    bmp1, bmp2 : TBitmap;

[...]

for x := 0 to bmp2.Width do
  begin
    for y := 0 to bmp2.Height do
      begin
        Color1 := ColorToRGB(bmp1.Canvas.Pixels[left + X, top + Y]); //Farbe des Pixels im ersten Bild holen
        Color2 := ColorToRGB(bmp2.Canvas.Pixels[x,y]); //Farbe des Pixels im zweiten Bild holen
        r := (GetRValue (Color1) + GetRValue (Color2)) div  2; // Farben zerlegen und mischen
        g := (GetGValue (Color1) + GetGValue (Color2)) div  2;
        b := (GetBValue (Color1) + GetBValue (Color2)) div  2;
        bmp.Canvas.Pixels[left + X, top + Y] := rgb (r,g,b); // Pixel ausgeben
      end;
  end;