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

Jakar

Member
Joined
Oct 3, 2008
Messages
6
Reaction score
3
Age
44
Уважаемые МАСТЕРА!
Помогите из двух (и более) PNG сделать одну,в PNG формате, при этом сохраняя прозрачность
Программирую на Delphi

Code:
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;
вариант не даёт желаемого результата, на прозрачном фоне первого пнг не отображается второй, как я правильно понял, изза альфа канала первого пнг мы не видем комбинированный рисунок, так что ищу алгоритм скомпоновки (объеденение, наложение) альфа каналов...
Заранее спасибо, всем откликнувшимся!
 
Top