Wish MsgBox(3) with fontawesome/material icons support

[AscySoft]

I wish fontawesome implementation into a "standard" msgbox command.

 

[Erel]

It will be possible to use custom fonts in Msgbox in the next version.

 

[Erel]

Example (progress dialog):

 

[Erel]

Toast message:

 

[AscySoft]

It will be possible to use custom fonts in Msgbox in the next version.

"Awesome"

 

[Erel]

Now with images:

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