B4A Library DonManfreds Overview

DonManfred

Expert
Licensed User
Longtime User
added

44. 1000 MaterialIcons in the Color you need

B4X:
  mi.Initialize("MaterialIcon")
  mi.Color = Colors.Red
  Dim iconlist As List
  iconlist.Initialize
  iconlist = mi.Iconlist
  Log(iconlist)
  For i = 0 To 249
  mi2.Initialize("MaterialIcon")
  Dim idx As Int = Rnd(1,iconlist.Size)
  mi2.Icon = idx
  mi2.Color = Colors.RGB(Rnd(1,255),Rnd(1,255),Rnd(1,255))
  Dim posx As Int = Rnd(0,100%x-50dip)
  Dim posy As Int = Rnd(0,100%y-50dip)

  Activity.AddView(mi2,posx,posy,50dip,50dip)
  Next

 
Cookies are required to use this site. You must accept them to continue using the site. Learn more…