operations on images

Aspire89

Member
Licensed User
I try to keep two different ways and in both cases, the images appear on a black background. Help me please add transparency. :sign0085:
B4X:
    img.New1
    alphaimage.New1
    alphaimage.NewImage(60,60)
    alphaimage.DrawIImage3(img.GetStream(img.num1),0,0,60,60)
    alphaimage.DrawIImage3(img.GetStream(img.num2),0,0,60,60)
    '1 way
    imagelistex.New1(1)
    imagelistex.Add(alphaimage.Image,0)
    imagelistex.Save(AppPath&"\img1.png",0,"png")
    '2 way
    imageedit.New1
    imageedit.LoadImage(alphaimage.Image)
    imageedit.SaveImage(AppPath&"\img2.png","F","P")
 

Byak@

Active Member
Licensed User
you want to do it on PC or ppc?
try to use binary.EmbedFile for creating ImagePack and then use bitmapEx.new3(binary.RetrieveImage) to get image.now you can save image with alpha channels
 

Aspire89

Member
Licensed User
you want to do it on PC or ppc?
try to use binary.EmbedFile for creating ImagePack and then use bitmapEx.new3(binary.RetrieveImage) to get image.now you can save image with alpha channels
For ppc. With binary know, but there is not so easy to extract images, and I need another overlay one image to another with preservation of alpha channel.
_______________________
А теперь на русском и поподробнее, мы же друг друга понимаем. Способ с binary знаю, но он хорош, когда не так много изображений и они все используются, а у меня такой случай, что изображений около 30 и все одновременно не используются. И еще нужно наложить полученное изображение на другое и сохранить, на этапе сохранения и теряется альфа канал.
 
Top