Scanline verwenden

[Tormentor32]

Also ich habe jetzt das gemacht:

Delphi-Quellcode:

  for y := 0 to Layer2.Height-1 do
  begin
    P := Layer2.Scanline[y];
    P2 := img.Picture.Bitmap.ScanLine[y];
    for x := 0 to Layer2.Width-1 do
      if RGB(P^.rgbBlue,P^.rgbGreen,P^.rgbRed) <> ColorToRGB(clFuchsia)
        then
          begin
            P2^[x] := P^[x]
            inc(P2);
            inc(P);
          end;
  end;

aber jetzt sagt er, dass ein Array-Typ erforderlich ist.
Daraufhin habe ich folgendes gemacht:

Delphi-Quellcode:

  for y := 0 to Layer2.Height-1 do
  begin
    P := Layer2.Scanline[y];
    P2 := img.Picture.Bitmap.ScanLine[y];
    for x := 0 to Layer2.Width-1 do
      if RGB(P^.rgbBlue,P^.rgbGreen,P^.rgbRed) <> ColorToRGB(clFuchsia)
        then
          begin
            P2^.rgbBlue := P^.rgbBlue;
            P2^.rgbGreen := P^.rgbGreen;
            P2^.rgbRed := P^.rgbRed; 
            P2^.rgbReserved := P^.rgbReserved
            inc(P2);
            inc(P);
          end;
  end;

aber das funzt auch nicht...