B4i Library iHUD library - Toast messages and progress dialogs

'Example:
hd.ToastMessageShow("Have a nice day :)", True)
CustomizeHud(Font.CreateNew(30),Colors.Red,Colors.Green)

Sub CustomizeHud (aFont As Object, TextColor As Int, BackgroundColor As Int)
    Dim no1 As NativeObject = App.KeyController
    no1 = no1.GetField("view")
    Dim no2 As NativeObject
    Dim hud As NativeObject = no2.Initialize("MMBProgressHUD").RunMethod("HUDForView:", Array(no1))
    If hud.IsInitialized Then
        hud.SetField("color",hud.ColorToUIColor(BackgroundColor))
        hud.SetField("labelColor",hud.ColorToUIColor(TextColor))
        hud.SetField("labelFont",aFont)
    End If
End Sub

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
    ProgressDialog.Initialize(Root)
    ProgressDialog.OverlayColor = xui.Color_Transparent
    ProgressDialog.BorderWidth = 0
    ProgressDialog.BackgroundColor = xui.Color_Transparent
    ProgressDialog.ButtonsHeight = 0
End Sub


Private Sub Button1_Click
    Dim pnl As B4XView = xui.CreatePanel("")
    pnl.SetLayoutAnimated(0, 0, 0, 100dip, 100dip)
    pnl.LoadLayout("ProgressDialog")
    ProgressDialog.ShowCustom(pnl, "", "", "")
    Sleep(5000)
    ProgressDialog.Close(xui.DialogResponse_Cancel)
End Sub