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

[TarasBer]

http://msdn.microsoft.com/en-us/library/aa452850.aspx

[Rian]

http://msdn.microsoft.com/en-us/library/aa452850.aspx

если честно не оч понял что это дает

пока руками справился с неправильным copyrect подправил bitmap исходного изображения

for y:=0  to   image2.Height-1 do begin
  line:=bmp.ScanLine[y];

  for x:=0 to image2.Width-1 do begin
    line[x*4]  :=line[x*4]  ;
    line[x*4+1]:=line[x*4+1];
    line[x*4+2]:=line[x*4+2];
    line[x*4+3]:=255;//убираю к чертям непонятную прозрачность
  end
end;

но сохранить результат никак не получается, может другой плагин ил функция...?