Sub KeyBoard
PanelKeyboard.RemoveAllViews
Dim Dist As Int = PanelKeyboard.Width/10
Dim ButtonWidth As Int = 40dip
'qwertyuiop
'asdfghjkl<
'zxcvbnmX
Dim S As String = "qwertyuiop" & "asdfghjkl" & Chr(0xF137) & "zxcvbnm" & Chr(0xF014) & Chr(0xF002)
Log(FontAwesone.TypeFace) '--- insert on design a Button with TypeFace = FontAwesone
For i=0 To S.Length-1
Dim B As Button ' or Label
B.Initialize("btn")
B.Color=Colors.Black
B.TextColor=Colors.White
B.Gravity=Gravity.CENTER
B.TextSize=18
' for special car in FontAwesone
If S.charat(i)=Chr(0xF137) Or s.CharAt(i)=Chr(0xF014) Or s.CharAt(i)=Chr(0xF002) Then b.Typeface = AnagramWord.Typeface
B.Text=S.charat(i)
If i=S.Length-1 Then
PanelKeyboard.AddView(b,(i Mod 10)*Dist,Floor(i/10)*ButtonWidth+1dip,(Dist*2)-1dip,ButtonWidth-1dip)
Else
PanelKeyboard.AddView(b,(i Mod 10)*Dist,Floor(i/10)*ButtonWidth+1dip,Dist-1dip,ButtonWidth-1dip)
End If
Next
End Sub