[Alexandr_17_10]

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

[Alegun]

Наверное

Код:

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]

Код:

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]

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

Код:

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]

Код:

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;

Вызов

Код:

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