delphi png альфа канал Опции

[Rian]

раньше не было потребности работать с прозрачными картинками, а теперь попробовал
и как-то непонятно...
не проблема открыть png картинку
... но стоит попытаться нарисовать на ней что-нибудь или copyrect сделать вся прозрачность пропадает
что делать? как сделать canvas.copyrect?

единственное что придумал

image1.Picture.LoadFromFile('test.png');

image4.Canvas.CopyRect(image4.ClientRect,form1.Canvas,form1.ClientRect);

но это ж не вариант

думал scanline pf32bit, но бестолку сканлайн некчему применить... только к битмапу

ЗЫ пишут delphi 2009 сама понимает png
...заработало, можно работать пикселями, прозрачность сохраняется, но пикселями долго надо копи рект + нельзя на пустой картинке рисовать тоже пропадет прозрачность

Сообщение отредактировано: Rian - 12.07.2011 22:03

[Rian]

 
png:=TPNGImage.CreateBlank(COLOR_RGBALPHA,8,image4.Width,image4.Height);

bmp.Assign(image4.Picture.Graphic);
bmp.PixelFormat:=pf32bit;
bmp.Width:=image4.Width;
bmp.Height:=image4.Height;

for y:=0  to   image4.Height-1 do begin
  line:=bmp.ScanLine[y];
  alfa:=png.AlphaScanline[y];
  line2:=png.Scanline[y];


  for x:=0 to image4.Width-1 do begin
    line2[x*3]  :=line[x*4]  ;
    line2[x*3+1]:=line[x*4+1];
    line2[x*3+2]:=line[x*4+2];
    alfa[x]:=line[x*4+3];
  end
end;

//png.assign(image4.Picture.bitmap);

image4.Picture.Assign(png);

png.SaveToFile ('hfhgfgh.png');

не так и сложно но если б такое делал стандартный assign...