Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#10

AW: PNGImage, lineto/Move mit Alpha?

  Alt 3. Apr 2011, 15:53
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;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat