مشکل در ساختن قسمت Setting

[Assassin-Wolf 13]

سلام

من یک قسمت ساختم به اسم Setting که این سورس اش هست

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	Dim FontSize As String
	Dim FontType As String
	Dim LineHeight As String
End Sub

Sub Globals

	Private SeekBar1 As SeekBar
	Private Spinner1 As Spinner
	Private Label3 As Label
	Private ScrollView1 As ScrollView
	Private SeekBar2 As SeekBar
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Setting_")
	Activity.Title = "تنظیمات"

	If File.Exists(File.DirInternal,"FontType.txt") = False Then
		File.Copy(File.DirAssets,"FontType.txt",File.DirInternal,"FontType.txt")
	End If
	If File.Exists(File.DirInternal,"FontSize.txt") = False Then
		File.Copy(File.DirAssets,"FontSize.txt",File.DirInternal,"FontSize.txt")
	End If
	If File.Exists(File.DirInternal,"lineheight.txt") = False Then
		File.Copy(File.DirAssets,"lineheight.txt",File.DirInternal,"lineheight.txt")
	End If
	
	Spinner1.AddAll(Array As String("byekan","bnazanin","Titr"))
	FontType = File.ReadString(File.DirInternal,"FontType.txt")
	FontSize = File.ReadString(File.DirInternal,"FontSize.txt")
	LineHeight = File.ReadString(File.DirInternal,"lineheight.txt")
	SeekBar1.Value = FontSize
	SeekBar2.Value = LineHeight
	
	Dim ts As TextSetting
	ts.Initialize
	ts.LabelDesign(Label3,SeekBar1.Value,"Null",FontType)
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean)
	Label3.TextSize = Value
	FontSize = Value
End Sub
Sub SeekBar2_ValueChanged (Value As Int, UserChanged As Boolean)
	LineHeight = Value
End Sub
Sub Spinner1_ItemClick (Position As Int, Value As Object)
	Label3.Typeface = Typeface.LoadFromAssets(Value&".ttf")
	FontType = Value
End Sub
Sub Button1_Click
	File.WriteString(File.DirInternal,"FontType.txt",Spinner1.SelectedItem)
	File.WriteString(File.DirInternal,"FontSize.txt",SeekBar1.Value)
	File.WriteString(File.DirInternal,"lineheight",SeekBar2.Value)
	ToastMessageShow("تنظیمات با موفقیت اعمال شد",False)
End Sub
Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
	If KeyCode = KeyCodes.KEYCODE_BACK Then
		Activity.Finish
	End If
End Sub

اما نمیدونم چجوری کاری کنم که این تنظیمات در بقیه بخش ها کار کند

[shahab.es 5,429]

سلام عزیزم

در بقیه بخش ها منظورت متنت هست دیگه؟

ببین شما توی متنت، در قسمت فونت مثلا باید به شکل زیر، مقدار رو از فایل تکست بگیری

lbl.Typeface=Typeface.LoadFromAssets(File.ReadString(File.DirInternal,"FontType.txt") & ".ttf")

این قسمت مهمه

(File.ReadString(File.DirInternal,"FontType.txt")

[Assassin-Wolf 13]

آقا ممنون که پاسخ دادین اما چند مشکل دارم

الان با این کد ما Font رو تنظیم کردیم حالا چجوری Size رو تنظیم کنم؟

[shahab.es 5,429]

خوب

شما از کتبخونه تکست ستینگ استفاده کردید؟

ts.LongText(lbl,lbl.Text,File.ReadString(File.DirInternal,"FontSize.txt"),ScrollView1,"2"

با حالت معمولی رو من خودم امتحان نکردم ببینم جواب میده یا نه(چون فونت سایز اینت قبول میکنه و این استرینگ میده شاید ارور بده)

اما با تکست ستینگ جواب میده