Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: PNGImage, lineto/Move mit Alpha?
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)
|