B4J Library ToastMessageShow Library

#Region  Project Attributes
   #MainFormWidth: -1
   #MainFormHeight: -1
#End Region

Sub Process_Globals
   Private fx As JFX
   Private MainForm As Form
   Private b1 As Button
   Private b2 As Button
   Private b3 As Button
   Private b4 As Button
   Private b5 As Button
   Private b6 As Button
   Private Toast As ToastMessageShow
End Sub

Sub AppStart (Form1 As Form, Args() As String)
   MainForm = Form1
   MainForm.RootPane.LoadLayout("CutomToast") 'Load the layout file.
   Toast.Initialize("Toast")
   Toast.ToastIconSize32x32
   Toast.ToastDuration = 6 'Toast.TOAST_LONG_DELAY
   Toast.ToastTextLocation = Toast.TEXT_CENTER
   Toast.ToastLocation= Toast.TOAST_CENTER_RIGHT
 
   '******************************************
 
   Toast.ToastNotificationOwner = MainForm 'this declaration Important
 
   '******************************************
 
   MainForm.Show
End Sub

Sub b1_MouseClicked (EventData As MouseEvent)
   Toast.ToastMessageColor = fx.Colors.White
   Toast.ToastShow("This is a Toast with message")
End Sub

Sub b2_MouseClicked (EventData As MouseEvent)
   Toast.ToastTitleColor = fx.Colors.Red
   Toast.ToastMessageColor = fx.Colors.Yellow
   Toast.ToastShow2("Title","This is a Toast with title and message")
End Sub

Sub b3_MouseClicked (EventData As MouseEvent)
   Dim icon As Image
   icon.Initialize(File.DirAssets,"info.png")
   Toast.ToastMessageColor = fx.Colors.Green
   Toast.ToastShow3("This is a Toast with message and icon",icon)
End Sub

Sub b4_MouseClicked (EventData As MouseEvent)
Toast.ToastTitleColor = fx.Colors.Cyan
Toast.ToastMessageColor = fx.Colors.Yellow
   Toast.ToastShow4("Title","This is a Toast with title, message and icon",Toast.TOAST_SUCCESS_ICON)
End Sub

Sub b5_MouseClicked (EventData As MouseEvent)
Toast.ToastTitleColor = fx.Colors.Blue
   Toast.ToastShow5("Title and icon",Toast.TOAST_ERROR_ICON)
End Sub

Sub b6_MouseClicked (EventData As MouseEvent)
   Toast.ToastShow6(Toast.TOAST_INFO_ICON)
End Sub

Sub MainForm_CloseRequest (EventData As Event)
   Toast.ToastStop
End Sub