Deckkraft von Bitmap unregelemässig erstellen

[thomas2009]

Zitat von Bernhard Geyer:

Das bekannte PNGDelphi wurde von Embaracadero gekauft und ist jetzt Bestandteil der VCL.

Und wie geht es damit ?
--------------------------------

Zitat von mkinzler:

Dann verwende eine Alpha-Maske

Ich weiß nicht, wie ich die Maske programiere
Ich erstelle die Opacity so :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const TransparentGrad = 0.5;
VAR oldColor, aColor: TColor;
    x,y: Integer;
    tmpColor1,
    tmpColor2: TColor;
begin
  Image3.Picture.Assign(Image2.Picture);
  Image3.AutoSize := True;

  for x := 0 to Image1.Picture.Width do
    for y := 0 to Image1.Picture.Height do begin
      oldColor := Image1.Canvas.Pixels[x,y];
      aColor := Image2.Canvas.Pixels[x,y];
      Image3.Canvas.Pixels[x,y] := RGB(Trunc(Max(0,GetRValue(oldColor) - TransparentGrad * GetRValue(aColor))),
                                       Trunc(Max(0,GetGValue(oldColor) - TransparentGrad * GetGValue(aColor))),
                                       Trunc(Max(0,GetBValue(oldColor) - TransparentGrad * GetBValue(aColor))));
    end;
end;

Kann jemand mir weiter helfen?