[Horsee]

Всем привет.
Возникла у меня проблема при обьеденении 2 TPNGObject's в 3й.
Я попробовал 3й присвоить из 1го, и на него нанести 2й.

Но прозрачность 2го не учитывается:
http://www.delphisources.ru/forum/at...d=131045587 2

Посоветуйте кто-нибудь метод обьединения или способ обращения к альфа каналу.

Заранее спасибо!

P/S:
Используемый мудуль для работы в с PNG во вложении.

[angvelem]

Примерно так:

[angvelem]

На всякий случай привожу функции копирования:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

procedure DrawTransparentBitmap(Source: TBitmap; Destination: TCanvas; DestRect: TRect; Opacity: Byte); var   BlendFunc: TBlendFunction; begin   BlendFunc.BlendOp := AC_SRC_OVER;   BlendFunc.BlendFlags := 0;   BlendFunc.SourceConstantAlpha := Opacity;     if Source.PixelFormat = pf32bit then     BlendFunc.AlphaFormat := AC_SRC_ALPHA   else     BlendFunc.AlphaFormat := 0;     Windows.AlphaBlend(Destination.Handle, DestRect.Left, DestRect.Top, DestRect.Right - DestRect.Left, DestRect.Bottom - DestRect.Top,                      Source.Canvas.Handle, 0, 0, Source.Width, Source.Height, BlendFunc); end;   procedure DrawTransparentBitmap(Source: TBitmap; SourceRect: TRect; Destination: TCanvas; DestRect: TRect; Opacity: Byte); var   BlendFunc: TBlendFunction; begin   BlendFunc.BlendOp := AC_SRC_OVER;   BlendFunc.BlendFlags := 0;   BlendFunc.SourceConstantAlpha := Opacity;     if Source.PixelFormat = pf32bit then     BlendFunc.AlphaFormat := AC_SRC_ALPHA   else     BlendFunc.AlphaFormat := 0;     Windows.AlphaBlend(Destination.Handle, DestRect.Left, DestRect.Top, DestRect.Right - DestRect.Left, DestRect.Bottom - DestRect.Top,                      Source.Canvas.Handle, SourceRect.Left, SourceRect.Top, SourceRect.Right - SourceRect.Left, SourceRect.Bottom - SourceRect.Top, BlendFunc); end;

[Horsee]

angvelem, спасибо за содействие, но я пытался в рамках PNG изображения.

Вот решение данной проблемы.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

procedure OverlapPNG(Layer2, Layer1: TPNGObject; var blendedPNG: TPNGObject); var   x, y: Integer;   SL1, SL2, SLBlended: pRGBLine;   aSL1, aSL2, aSLBlended: PByteArray;   blendCoeff: single; begin   blendedPNG.Assign(Layer1);   for y := 0 to Layer1.Height-1 do   begin     SL1 := Layer1.Scanline[y];     SL2 := Layer2.Scanline[y];     aSL1 := Layer1.AlphaScanline[y];     aSL2 := Layer2.AlphaScanline[y];     SLBlended := blendedPNG.Scanline[y];     aSLBlended := blendedPNG.AlphaScanline[y];     for x := 0 to Layer1.Width-1 do     begin       blendCoeff:=aSL1[x] * 100/255/100;       aSLBlended[x] := round(aSL2[x] + (aSL1[x]-aSL2[x]) * blendCoeff);       SLBlended[x].rgbtRed   := round(SL2[x].rgbtRed + (SL1[x].rgbtRed-SL2[x].rgbtRed) * blendCoeff);       SLBlended[x].rgbtGreen := round(SL2[x].rgbtGreen + (SL1[x].rgbtGreen-SL2[x].rgbtGreen) * blendCoeff);       SLBlended[x].rgbtBlue  := round(SL2[x].rgbtBlue + (SL1[x].rgbtBlue-SL2[x].rgbtBlue) * blendCoeff);     end;   end; end;

[mak-karpov]

Код:

1 2 3 4 5 6 7 8

c := TPngObject.Create; a := TPngObject.Create; b := TPngObject.Create; a.LoadFromFile('tex/grass.png'); b.LoadFromFile('tex/player.png'); c.Assign(a); b.Draw(c.Canvas,Rect(0,0,b.Width,b.Height)); c.SaveToFile('result.png');

Работает, только что потестил, прозрачность учитывается.

[angvelem]

Вариаций исполнения масса, я привёл один из вариантов. Почему через битмап?
1. Привычка
2. ОС другого не понимает.
3. так захотелось.