Как рисовать на канве с альфаканалом? XE

@Postscripter · Регистрация: 04.07.2012

Author24 — интернет-сервис помощи студентам

Приветствую!

Реализую интерфейс IThumbnailProvider, там нужно передать системе картинку в формате ARGB. Новый делфи умеет работать с PNG, поэтому делаю так:

Delphi

1 2	Bitmap1.assign(image1.picture.graphics); Result:=Bitmap1.Canvas.Handle;

Всё отлично. Теперь пытаюсь дорисовать поверх что-нибудь:

Delphi

Bitmap1.Canvas.Pen.Color:=$FFFFFFFF; 
Bitmap1.Canvas.MoveTo(0,10);
Bitmap1.Canvas.LineTo(10,10);
 
Bitmap1.Canvas.Pen.Color:=$00000000;
Bitmap1.Canvas.MoveTo(0,20);
Bitmap1.Canvas.LineTo(10,20);

На экране две совершенно одинаковых полностью прозрачных полосы. Никакие pf32bit, afPremultiplied не помогают... Что делать? По части XE гугл пока не специалист, гуглится со скрипом...

@Postscripter · 05.06.2016, 21:38 **[ТС]**

Пример

@BOGG ART · 07.06.2016, 15:34

Никак. И дело не в XE. Используйте GDI+.

Не по теме:

Всё-таки получилось? :) Мои поздравления! Научите? :-[

@Postscripter · 08.06.2016, 05:49 **[ТС]**

Не по теме:

Получилось, только без прозрачности. Причешу немножко и выложу. Там заминка вышла - постоянные AV... Долго думал и пришёл к выводу, что дурак не я, а TChart. Пришлось вручную рисовать.

@BOGG ART · 08.06.2016, 17:40

Не по теме:

Вы выкладывайте обе версии, а я посмотрю что можно сделать, может поправлю и чарт этот. Как вы вообще его рисуете интересно, ПэйнтТу?

@Postscripter · 09.06.2016, 17:42 **[ТС]**

BOGG ART,
Через PaintTo нельзя, можно словить белый квадрат, если Chart не успел построиться. Есть классный метод Draw, он позволяет перестроить график под любой указанный размер. Но отрисовка в обоих идёт через gdi, поэтому отсутствует сглаживание, картинка будет отличаться от той, что на форме.

Вот тут проект с примерами:
Как в редакторе tlb (COM) указать тип параметра "HBITMAP *p"

PS тема неактуальна, альфаканал убрал.

@Postscripter 9 / 9 / 1 Регистрация: 04.07.2012 Сообщений: 209
	05.06.2016, 21:38 [ТС]	2
	Пример Миниатюры 0

@BOGG ART 592 / 459 / 147 Регистрация: 09.12.2013 Сообщений: 2,385 Записей в блоге: 2
	07.06.2016, 15:34	3
	Никак. И дело не в XE. Используйте GDI+. Не по теме: Всё-таки получилось? :) Мои поздравления! Научите? :-[ 0

@Postscripter
	08.06.2016, 05:49 [ТС] #4
	Не по теме: Получилось, только без прозрачности. Причешу немножко и выложу. Там заминка вышла - постоянные AV... Долго думал и пришёл к выводу, что дурак не я, а TChart. Пришлось вручную рисовать. 0

@BOGG ART
	08.06.2016, 17:40 #5
	Не по теме: Вы выкладывайте обе версии, а я посмотрю что можно сделать, может поправлю и чарт этот. Как вы вообще его рисуете интересно, ПэйнтТу? 0

@Postscripter 9 / 9 / 1 Регистрация: 04.07.2012 Сообщений: 209
	09.06.2016, 17:42 [ТС]	6
	BOGG ART, Через PaintTo нельзя, можно словить белый квадрат, если Chart не успел построиться. Есть классный метод Draw, он позволяет перестроить график под любой указанный размер. Но отрисовка в обоих идёт через gdi, поэтому отсутствует сглаживание, картинка будет отличаться от той, что на форме. Вот тут проект с примерами: Как в редакторе tlb (COM) указать тип параметра "HBITMAP *p" PS тема неактуальна, альфаканал убрал. 0