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

[alxd]

Пытаюсь сделать наложение водяного знака на изображение.
Не получается сделать так, чтобы невидимые участки накладываемого PNG полностью не отображались.

Делаю так:

Transparent := 80;

  // Получаем фон
  pic := TPicture.Create;
  pic.LoadFromFile(Edit1.Text);
  picHeight := pic.Graphic.Height;
  picWidth := pic.Graphic.Width;

  bitmapBackground := TBitmap.Create;
  bitmapBackground.Height := picHeight;
  bitmapBackground.Width := picWidth;
  bitmapBackground.Canvas.Draw(0,0,pic.Graphic);
  bitmapBackground.PixelFormat := pf32bit;

  // Получаем водяной знак
  pic.LoadFromFile(Edit2.Text);
  picHeight := pic.Graphic.Height;
  picWidth := pic.Graphic.Width;

  bitmapWatermark := TBitmap.Create;
  bitmapWatermark.Height := picHeight;
  bitmapWatermark.Width := picWidth;
  bitmapWatermark.Canvas.Draw(0,0,pic.Graphic);
  bitmapWatermark.Transparent := True;
  bitmapWatermark.TransparentColor := bitmapWatermark.Canvas.Pixels[1,1];
  bitmapWatermark.PixelFormat := pf32bit;

  Blend.BlendOp := AC_SRC_OVER;
  Blend.BlendFlags := 0;
  Blend.SourceConstantAlpha := round(255/100*Transparent);
  Blend.AlphaFormat := AC_SRC_OVER;

  Windows.AlphaBlend(bitmapBackground.Canvas.Handle, 0, 0, picWidth, picHeight,
                     bitmapWatermark.Canvas.Handle, 0,0, picWidth, picHeight, Blend);

Подскажите, как такое реализовать?

Р.S. Используется компонент PNGImage

[Nater]

эээ... по-моему Canvas.Draw(0,0,пнгимэйдж,прозрачно сть); работают отлично? лично у меня так...

[alxd]

Сообщение от Nater

эээ... по-моему Canvas.Draw(0,0,пнгимэйдж,прозрачно сть); работают отлично? лично у меня так...

Так у Draw всего три параметра

procedure Draw(X, Y: Integer; Graphic: TGraphic);

[Nater]

есть и 4:

procedure Draw(X, Y: Integer; Graphic: TGraphic; Opacity: Byte);

[alxd]

Delphi какой версии?

[Nater]

Я использую Rad Studio 2010.

[alxd]

Сообщение от Nater

Я использую Rad Studio 2010.

В том то и дело, что 4 параметра есть только в 2010, а в Delphi 7 их 3

[Nater]

Переходите тогда на Rad Studio 2010, уже давно Windows 7 вышла а вы все за Delphi 7 сидите. Нельзя так )

[alxd]

Сообщение от Nater

Нельзя так )

Windows 7, Delphi 7 - все правильно )))

[alxd]

Поставил RAD Studio 2010, сделал через

procedure Draw(X, Y: Integer; Graphic: TGraphic; Opacity: Byte);

результат ровным счетом такой же. Может есть пример у кого?