[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 не отрисовывает с прозрачностью. Этот код я с самого начала писал но увы без прозрачности