Oh.. Ich hab im Eifer des Gefechts vergessen eine Frage zu formulieren
Wäre das hier ein Lösung?
Delphi-Quellcode:
var P,P2: PRGBTriple;
begin
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^.rgbtBlue,P^.rgbtGreen,P^.rgbtRed) <> FTransparentcolor
then
begin
P2^[x] := P^[x]
end;
end;
end;
[edit]Ich taste mich langsam ran[/edit]