рисование png

[dmitriegorovih]

Как можно рисовать png на Делфи? я пробовал через TPNGObject но там тока есть pixels через Tgraphic но там я незнаю как сделать фон прозрачным тоесть альфа канал.

[DomiNick]

Рисовать в gdi можно только битмап... Когда в программах изображение редактируется/отображается - оно сначала конвертируется в битмап, а уже потом все манипуляции с битмапом происходят...
Попробуйте конвертировать TPNGObject в TBitmap и рисовать уже его...

альфа канал

Не пользовался давно уже TPNGObject, но вроде там TPNGObject.CreateAlpha; есть?

[dmitriegorovih]

но вроде там TPNGObject.CreateAlpha; есть?

Есть но как можно конвертировать? можете напримере или исходник просто я даже и понятия не имею как это делаеться. Я слышал гдето а именно видел что если сделать битмап на каждый пиксель по 4 байта то 4-тый будет альфа прозрачность?

[DomiNick]

Многие почему-то упорно считают что bmp с полупрозрачностью не бывает... Но это просто не каждый вьювер их правильно отображает...

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

Я слышал гдето а именно видел что если сделать битмап на каждый пиксель по 4 байта то 4-тый будет альфа прозрачность?

Это называется 32-битное изображение (ARGB), оно с 256-тиуровневой полупрозрачностью...
В VCL называют pf32bit... Класс-обёртка TBitmap тем и хорош что все преобразования делает сам... Если у нас есть переменная "Var MyPict: TBitmap;", то достаточно написать в коде "MyPict.PixelFormat:=pf32bit;" и она сама преобразуется в "на каждый пиксель по 4 байта"...

На DelphiMaster'ах ссыль на хороший пример давали:

Мастера DELPHI: Сообщение от antonn (23.01.10 19:57)

дарю
http://desksoft.ru/index.php?downloa...chments&id=254 (465кб, zip)

грубо, но вполне показательно Конвертим png в tbitmap и делаем что хотим

Там всё что нужно показано...

[dmitriegorovih]

DomiNick спасибо буду разбирать если вдруг что опишусь сдесь

DomiNick Извените за маю не доходчивость но как мне рисовать в bmp просто я начинал рисовать но нечего не показывало

[DomiNick]

Эм... Что именно не получается? Как вы его выводите на форму?
Как-то примерно так нужно:

. . .
bf.BlendOp:=AC_SRC_OVER;
bf.BlendFlags:=0;
bf.SourceConstantAlpha:=255;
bf.AlphaFormat:=AC_SRC_ALPHA;
. . .

Procedure TForm1.FormPaint(Sender: TObject);
Begin
If (Bmp.PixelFormat=pf32bit) Then
      Windows.AlphaBlend(Form1.Canvas.Handle, l, t, w, h, Bmp.Canvas.Handle, 0, 0, w, h, bf) // битмап должен быть уже после PremultAlpha()
Else
      Windows.StretchBlt(Form1.Canvas.Handle, l, t, w, h, Bmp.Canvas.Handle, 0, 0, w, h, SRCCOPY);
End;

рисовать в bmp

Обычно функции рисования GDI просто затирают альфа-канал...

[dmitriegorovih]

Мне нужно на image(э) рисовать а это я так понимаю на "окнах"

[DomiNick]

TImage не умеет рисоваться с полупрозрачностью... Чтоб нормально отображались 32хбитные изображения - придётся делать так...
Рисуете в "переменной" Bmp, а тот код его просто отображает на форме...
А ведь сам TImage точно так же и сделан...

Только если рисовать что-то, то возможно понадобится дополнительный битмап для PremultAlpha (AlphaBlend)...

[dmitriegorovih]

Чёто у меня не чего не получаеться с прорисовкой хотелось бы png но наверное придёться bmp

Я извеняюсь за своё не понимание смотрите как я это сделал

image1.Transparent:=true;
image1.Canvas.Pen.Width:=5;
image1.Canvas.MoveTo(0,0);
image1.Canvas.LineTo(100,100);

потом чтоб сконвертировать в png надо сделать так

uses ...,pngimage;

...

var
png:TPNGobject;
begin
png:=TPNGobject.create;
image1.Picture.Bitmap.PixelFormat:=pf32bit;
png.assign(image1.Picture.Bitmap);
png.savetofile('1.png');
freeandnil(png);
end;