درخواست آموزش کار با کتابخانه ی TextSetting

[mohsenaa 32]

آیا کسی  کار با کتابخانه TextSetting را یاد دارد؟؟؟؟        

[mohsenaa 32]

خSub Globals

Private lbl_top As Label

Private btn_back As Button

Private Panel_text As Panel

Dim p1 As Panel

Dim la As Label

Private ScrollView1 As ScrollView

Dim scr As TextSetting

End Sub

Sub Activity_Create(FirstTime As Boolean)

Activity.LoadLayout("Layout_text")

Panel_text.Initialize("")

p1.Initialize("")

la.Initialize("")

la.Text = File.ReadString(File.DirAssets,"4.txt")

la.Typeface = Typeface.LoadFromAssets("B Zar.ttf")

scr.Initialize

ScrollView1.Panel.AddView(la,2%x,0,96%x,100%y)

scr.LongText(la,la.Text,22,ScrollView1,2)

End Sub