'Code module: PublicSubs
'Subs in this code module will be accessible from all modules.
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Private xui As XUI 'standard
End Sub
Sub Notification_Set 'AKF13112024
Private cs As CSBuilder
Private lv_icon As Bitmap
Private lv_titel As String
lv_icon = LoadBitmapResize(File.DirAssets, "notificon.png", 24dip, 24dip, False)
Main.NF.Initialize("default", Application.LabelName, "HIGH").SmallIcon(lv_icon)
Main.NF.AddButtonAction(lv_icon, "User", MyReceiver, "ActUser")
Main.NF.AddButtonAction(lv_icon, "Password", MyReceiver, "ActPass")
Main.NF.AddButtonAction(Null, cs.Initialize.Color(Colors.Red).Bold.Append("Close").PopAll, MyReceiver, "ActCancel")
Main.NF.DeleteAction(MyReceiver, "delete action")
Main.NF.OnGoing(True)
cs.Initialize.size(22).Color(Colors.DarkGray).Bold.Append("Entry: ").Color(Colors.blue).Bold.Append(Main.gv_nf_cat & " - " & Main.gv_nf_titel).PopAll
Main.NF.Build("MyPasswords", cs, "tag", Main).Notify(1)
Main.gv_nf_active = True
End Sub