Водяной знак (Delphi 7)

[x128]

поправил твою процедуру:

procedure TForm1.BitBtn1Click(Sender: TObject);
const
  Transparent = 80;  
var
  jpg: TJPEGImage;
  bmp: TBitmap;
  png: TPNGObject;
  x,y: integer;
  Alpha: pByteArray;
begin
  // Получаем фон
  jpg := TJPEGImage.Create;
  jpg.LoadFromFile(Edit1.Text);

  bmp:=TBitmap.Create;
  bmp.Assign(jpg);

  // Получаем водяной знак
  png:=TPNGObject.Create;
  png.LoadFromFile(Edit2.Text);
  for y:=0 to png.Height-1 do begin
    Alpha:=png.AlphaScanline[y];
    for x:=0 to png.Width-1 do Alpha[x]:=Alpha[x]*Transparent div 100;
  end;
  bmp.Canvas.Draw(0,0,png);

  Image1.Picture.Assign(bmp);

  bmp.Free;
  png.Free;
  jpg.Free;
end;

[alxd]

Спасибо огромное! Все работает.

[Nater]

Ну не знаю, у меня все нормально рисует. Может у меня работает из за того что я использую acPNG вместо pngimage? ( acPNG это unit из AlphaSkins - www.alphaskins.com )