Denkfehler mit Scanline?

**Flips**

Hi.
Erstmal tschuldigung für die schlechte Überschrift, wenn das Thema gelöst wird dann ändere ich sie eventuell.

Aber nun zum Problem, geht um folgenden Code:

zusammenfalten · markieren

Delphi-Quellcode:

			type TRGBArray = array [0..100000000] of RGBQUAD;

     PRGBARRAY = ^TRGBArray;

var

  a,b: RGBQUAD;

  h,w: Integer;

  test,test2 : PRGBARRAY;

for h := 0 to 240 - 1 do

  begin

    test  := form2.Image1.picture.bitmap.ScanLine[h];

    test2 := form3.imgBuffer.Picture.Bitmap.ScanLine[h];

    for w := 0 to 320 - 1 do

      begin

        a := test^[w];

        b := test2^[w];

        a := b;

        if form3.netz.input[(h*320)+w].nettoinput <> 0 then

          a.rgbRed := $FF;

        test^[w] := a;

      end;

  end;

form2.image1.Invalidate;

Der Code kopiert praktisch ein Bild auf ein anderes. Klar, dass geht eleganter. Es geht aber ums Prinzip.
Zusätzlich zum kopieren wird jeder Pixel je nach Arrayeintrag gefärbt. Allerdings kommt dann sowas wie im Anhang raus.
Pixelformat vom Zielbild ist 32 Bit, die Quelle ist via Callback über die Webcam gecaptured.
Weiß jemand, was ich falsch mache? Wieso funktioniert das eigentliche kopieren, nur das Rot machen geht nicht?
Achso, je weiter ich den Stift nach links bewege, desto mehr deckt sich der rote Bereich mit dem Stift o_O

DANKE,
lg Flips

Ps: Das geht glaub auch mit einer Schleife, hat jemand den passenden Code mit einer Schleife?

Denkfehler mit Scanline?

Denkfehler mit Scanline?

Forumregeln