Canvas и Полупрозрачность

[NEoMASTERR]

Здравствуйте, есть компонент наследник TGraphicControl, рисую собственно окошки, хочу сделать их полупрозрачными (на n-ное количество процентов). Все они рисуются по координатам, весь экран один битмап. Пробовал складывать пиксели вручную, не выходит, да и медленно как то. Пробовал AlphaBlend, вообще черный экран. Помогите)

        temp.Canvas.Pen.Style:=psDash;
        temp.PixelFormat:=pf32bit;
        temp.Width:=ww[i].width;
        temp.Height:=ww[i].height;
        temp.Canvas.Rectangle(0,0,temp.width,temp.height);

        blend.BlendOp:=AC_SRC_OVER;
        blend.BlendFlags := 0;
        blend.AlphaFormat := AC_SRC_ALPHA;
        blend.SourceConstantAlpha := 155;

        windows.AlphaBlend(FBitmap.Canvas.Handle,
                           ww[i].x,height-ww[i].y,ww[i].width,ww[i].height,
                           temp.Canvas.Handle,
                           0,0,temp.width,temp.height,
                           blend);

[x128]

У тебя в альфа-канале пустота, отсюда и "черный экран". Либо заполни последний байт каждого пиксела значением $ff, либо AlphaFormat:=0. Для последнего варианта можно и PixelFormat:=pf24bit.

[NEoMASTERR]

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

У тебя в альфа-канале пустота, отсюда и "черный экран". Либо заполни последний байт каждого пиксела значением $ff, либо AlphaFormat:=0. Для последнего варианта можно и PixelFormat:=pf24bit.

Не совсем понял, что такое AlphaFormat? И формат пикселей менять не буду ибо temp я вообще планирую убрать, рисование будет только на одном битмапе.
И как заполнить последние байты, и есть ли для этого стандартные методы?) и как повлияет на фпс?

       windows.AlphaBlend(FBitmap.Canvas.Handle,
                           ww[i].x,height-ww[i].y,ww[i].width,ww[i].height,
                           FBitmap.Canvas.Handle,
                           ww[i].x,height-ww[i].y,ww[i].width,ww[i].height,
                           blend);

[x128]

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

Не совсем понял, что такое AlphaFormat?

Тот который у тебя blend.AlphaFormat := AC_SRC_ALPHA.

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

И как заполнить последние байты, и есть ли для этого стандартные методы?

Смотря что называть стандартными методами. Если штатное рисование на канве, то не выйдет, т.к. это GDI. Можно через Sacnline, будет быстро и вроде как стандартно. На скорости это конечно же скажется, но не думаю, что это будет сильно заметно. Я бы остановился на варианте с AlphaFormat:=0.

[NEoMASTERR]

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

Тот который у тебя blend.AlphaFormat := AC_SRC_ALPHA.


Смотря что называть стандартными методами. Если штатное рисование на канве, то не выйдет, т.к. это GDI. Можно через Sacnline, будет быстро и вроде как стандартно. На скорости это конечно же скажется, но не думаю, что это будет сильно заметно. Я бы остановился на варианте с AlphaFormat:=0.

Огромное спасибо, сделал и через ScanLine и через AlphaFormat := 0;
Сейчас буду проверять на быстродействие)