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...
