Dim CheckBmb As B4XBitmap = XUI.LoadBitmap(File.GetFileParent(imgfile),File.GetName(imgfile))
Dim bc1 As BitmapCreator
bc1.Initialize(CheckBmb.Width,CheckBmb.Height)
bc1.CopyPixelsFromBitmap(CheckBmb)
Dim IsTrans As Boolean=False
For x = 0 To bc1.mWidth - 1
For y = 0 To bc1.mHeight - 1
If bc1.IsTransparent(x,y) Then
IsTrans=True
Exit
End If
Next
Next
Log("Trans :" & IsTrans)