PNGImage, lineto/Move mit Alpha?

[Bummi]

nur als Anregung ....

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  p:PByteArray;
  x,y:Integer;
  pI:TPngImage;
begin
  pi := TPngImage.Create;
  pi.LoadFromFile('C:\Bilder\IconCollection\ix_ap_all\128x128\shadow\about.png');
  for y := 0 to 100 do
    begin
      p := pi.AlphaScanline[y];
      for x := 0 to 100 do

      p^[x]:= Round(255 * (x * y) / 10000);

    end;
  image1.Picture.Assign(pi);
end;