[Alexandr_17_10]

Как используя TPngImage можно отрисовать несколько png с прозрачностью в Delphi 7

[Alegun]

Наверное

Код:

1 2 3 4 5 6 7 8 9

procedure TForm1.Button1Click(Sender: TObject); var  p: TPNGObject; begin  p:= TPNGObject.Create;  p.LoadFromFile('b.png');  Image1.Picture.Graphic:= p;  p.Free; end;

[Alexandr_17_10]

Я же сказал несколько картинок png с прозрачностью. К примеру 10 или 100

[Alegun]

А вы одну значит вывести с прозрачностью всё же можете? Покажите пжлст код

[NumLock]

Код:

1 2 3 4 5 6 7

var   PngImage: array [0..9] of TPngImage;   i: Integer; begin   (* Init PngImage where *)   for i:=0 to 9 do Canvas.Draw(0, 0, PngImage[i]); end;

[Alexandr_17_10]

Блин с прозрачностью. Draw не отрисовывает с прозрачностью. Этот код я с самого начала писал но увы без прозрачности

[M.A.D.M.A.N.]

Бугул на эту тему что пишет? Мне как-то очень давно попадался рабочий пример для 7-й дельфи, как рисовать пнг с учетом прозрачности.

Специально для жертв репрессий бугла:
тема — http://www.delphisources.ru/forum/sh...ad.php?t=22837
ссылка на рабочий пример из ссылки выше — https://stackoverflow.com/questions/...e-on-other-png

[Alegun]

Гугель кстати говорит что можно и так делать

Код:

1 2 3 4 5 6 7 8

uses pngimage; ... var   Img: array [0..9] of TImage;   i: Integer; begin  for i:=0 to 9 do Img[i].Picture.LoadFromFile(IntToStr(i) + '.png'); end;

прозрачность поддерживается

[NumLock]

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

Блин с прозрачностью. Draw не отрисовывает с прозрачностью. Этот код я с самого начала писал но увы без прозрачности

Так-то метод Draw у Canvas вызывает метод Draw у Graphic. Поэтому если твой TPngImage умеет рисовать с прозрачностью, то она и будет. Мой TPngImage (Draw) рисует с прозрачностью.

[Alexandr_17_10]

Код:

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 34 35

procedure MergePNGLayer(Layer1,Layer2: TPNG; Const aLeft,aTop:Integer); var   x, y: Integer;   SL1,  SL2,  SLBlended : pRGBLine;   aSL1, aSL2, aSLBlended: PByteArray;   blendCoeff: single;   blendedPNG, Lay2buff: TPNG; begin   blendedPNG:=TPNG.Create;   blendedPNG.Assign(Layer1);   Lay2buff:=TPNG.Create;   Lay2buff.Assign(Layer2);   //SetPNGCanvasSize(Layer2,Layer1.Width,Layer1.Height,aLeft,aTop);   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;   Layer1.Assign(blendedPNG);   Layer2.Assign(Lay2buff);   blendedPNG.Free;   Lay2buff.Free; end;

Вызов

Код:

1 2 3 4 5 6

procedure TfrmRCE.RePayntImgMapDoms(IndexDoms, IndexRegion:Integer); begin   lblDisplayRegions0.Refresh;   MergePNGLayer(MaskPngRegions, PngRegions[IndexDoms, IndexRegion], 0, 0);   lblDisplayRegions0.Picture.Assign(MaskPngRegions); end;

Отрисовывает только MaskPngRegions почемута

[NumLock]

https://www.dropbox.com/s/u01qb3klu6...Image.rar?dl=0