Wish MsgBox(3) with fontawesome/material icons support

Erel

B4X founder
Staff member
Licensed User
Longtime User
Example (progress dialog):

SS-2017-02-01_10.16.03.png
 

Erel

B4X founder
Staff member
Licensed User
Longtime User
Now with images:

upload_2017-2-14_12-30-39.png


B4X:
Sub Activity_Click
   Dim cs As CSBuilder
   cs.Initialize.Color(0xFF00FFF3).Size(30).Append("Before ")
   cs.Image(LoadBitmap(File.DirAssets,"smiley.png"), 30dip, 30dip, False)
   cs.Typeface(Typeface.FONTAWESOME).Append(" ").Color(Colors.Red).Append(Chr(0xF17B)).PopAll
   ToastMessageShow(cs, True)
   Activity.Title = cs
   Msgbox(cs, cs)
End Sub
 
Top