Наши преимущества

Из двух (и более) PNG сделать одну (сохраняя прозрачность)

jakar

Турист
Credits
0
Уважаемые МАСТЕРА!
Помогите из двух (и более) PNG сделать одну,в PNG формате, при этом сохраняя прозрачность
Программирую на Delphi

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  png1,png2:TPNGObject;
begin

  png1 := TPngObject.Create;
  png1.Assign(Image1.Picture.Graphic);
  png2 := TPngObject.Create;
  png2.Assign(Image2.Picture.Graphic);

  png1.Canvas.Draw(0,0,png2);

  Image3.Picture.Assign(png1);
  png1.Free;
  png2.Free;
end;
вариант не даёт желаемого результата, на прозрачном фоне первого пнг не отображается второй, как я правильно понял, изза альфа канала первого пнг мы не видем комбинированный рисунок, так что ищу алгоритм скомпоновки (объеденение, наложение) альфа каналов...
Заранее спасибо, всем откликнувшимся!
 
Верх