Private Sub AddShadow (Lbl As BBLabel, OffsetX As Int, OffsetY As Int, ShadowColor As Int)
Dim fiv As B4XView = Lbl.ForegroundImageView
Dim bc As BitmapCreator = Effects.CreateBC(fiv.GetBitmap)
Dim shadow As ARGBColor
bc.ColorToARGB(ShadowColor, shadow)
For x = 0 To bc.mWidth - 1
For y = 0 To bc.mHeight - 1
If bc.IsTransparent(x, y) Then Continue
bc.SetARGB(x, y, shadow)
Next
Next
Dim iv As B4XImageView = XUIViewsUtils.CreateB4XImageView
iv.mBackgroundColor = xui.Color_Transparent
iv.ResizeMode = "NONE"
iv.mBase.Tag = "shadow"
If Lbl.mBase.NumberOfViews > 1 And "shadow" = Lbl.mBase.GetView(0).Tag Then
Lbl.mBase.GetView(0).RemoveViewFromParent
End If
Lbl.mBase.AddView(iv.mBase, fiv.Left + OffsetX, fiv.Top + OffsetY, fiv.Width, fiv.Height)
iv.mBase.SendToBack
iv.Bitmap = bc.Bitmap
End Sub