فراخوانی تنظیمات AHPreferenceScreen

[سیدمحمد 248]

سلام دوستان

اگر برای تنظیمات برنامه از ساب AHPreferenceScreen استفاده کنیم، روش ذخیره سازی و فراخوانی تنظیمات برای ست کردن کردنش به چه صورت هست؟ برای مثال برای لیبل...

ممنون.

[سیدمحمد 248]

متدهای زیادی داره برای همین نتونستم بفهمم.

کسی سورسی کدی یا آموزشی نداره؟

[qasem 249]

بر فرض اینکه کدهای سابت درسته، میای توی اکتیویتی ای که میخوای متن را نشون بدی و توی ساب پروسز گولوبال کد زیر را وارد میکنی

 

	Dim pre As AHPreferenceManager

 

بعد  میای یه متغییر استرینگ تعریف میکنی و برابر میدی با عنوان هایی که توی ساب وارد کردی

 

Dim sFontsize,sFontColor,sFontFamily,sfaal As String
	
	sFontsize = pre.GetString("fontsize")
	sFontColor = pre.GetString("fontcolor")
	sFontFamily = pre.GetString("fontfamily")
	sfaal = pre.GetBoolean("faal")
	

 

بعد لیبلی که متن رو توش لود میکنی را برابر بده با متغییرهات

 

Try
	Label2.TextSize = sFontsize
	Catch
	Log("")
	End Try
	
	Try
	Label2.Typeface = Typeface.LoadFromAssets(sFontFamily)
	Catch
	Log("")
	End Try
	
	If sFontColor = "brown" Then
		Label2.TextColor = Colors.RGB(38, 18, 4)
	Else If sFontColor = "Blue Grey" Then
		Label2.TextColor = Colors.RGB(96, 125, 139)
	Else If sFontColor = "Cyan" Then
		Label2.TextColor = Colors.RGB(0, 188, 212)
	Else If sFontColor = "Teal" Then
		Label2.TextColor = Colors.RGB(0, 150, 136)
	Else If sFontColor = "Indigo" Then
		Label2.TextColor = Colors.RGB(63, 81, 181)
	Else If sFontColor = "Black" Then
		Label2.TextColor = Colors.Black
	End If
	
	If sfaal = True Then
		Keep.KeepAlive(True)
	Else
		Keep.ReleaseKeepAlive
	End If

 

موفق باشی

[mohammadmahmoudi 2]

فکر میکنم باید یک متغیر از نوع PerferenceManager ایجاد کنی و با اون بیای و تنظیمات رو Get کنی.

اطلاعات بیشتر رو دوستان بدهند...

[سیدمحمد 248]

کسی نمیدونه دوستان؟

[سیدمحمد 248]

این روش یک مشکلی داره. اونم اینکه وقتی سایز متن درشت بشه، ارتفاع اسکرول ویو که همون ارتفاع متن لیبل هست، تغییری نمیکنه، در نتیجه مقداری از متن محو میشه.

راه حلش چیه؟

البته اینم بگم که از stringUtils هم استفاده میکنم

[qasem 249]

در 1 ساعت قبل، سیدمحمد گفته است :

این روش یک مشکلی داره. اونم اینکه وقتی سایز متن درشت بشه، ارتفاع اسکرول ویو که همون ارتفاع متن لیبل هست، تغییری نمیکنه، در نتیجه مقداری از متن محو میشه.

راه حلش چیه؟

البته اینم بگم که از stringUtils هم استفاده میکنم

 

کدهای اکتیویتی مطالب تو بزار ببینم

[سیدمحمد 248]

در 22 ساعت قبل، qasem گفته است :

 

کدهای اکتیویتی مطالب تو بزار ببینم

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("ashaar")
	
	cur = act_ashAr.sql1.ExecQuery("SELECT * FROM tbl1 WHERE id = " & act_ashAr.fasl)
	cur.Position = 0
	
	label2.Initialize("")
	label2.Text = cur.GetString("text")
	label2.Textsize = 20
	label2.Gravity = Gravity.CENTER
	
	ScrollView1.Panel.AddView(label2,2%x,0,96%x,100%y)
	label2.Height = su.MeasureMultilineTextHeight(label2,label2.Text)
	ScrollView1.Panel.Height = label2.Height

end sub

 

[qasem 249]

در 7 ساعت قبل، سیدمحمد گفته است :

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("ashaar")
	
	cur = act_ashAr.sql1.ExecQuery("SELECT * FROM tbl1 WHERE id = " & act_ashAr.fasl)
	cur.Position = 0
	
	label2.Initialize("")
	label2.Text = cur.GetString("text")
	label2.Textsize = 20
	label2.Gravity = Gravity.CENTER
	
	ScrollView1.Panel.AddView(label2,2%x,0,96%x,100%y)
	label2.Height = su.MeasureMultilineTextHeight(label2,label2.Text)
	ScrollView1.Panel.Height = label2.Height

end sub

 

منظورم این بود که تمام کدهای همون اکتیویتی را بزاری نه فقط اکتیویتی کرییت را، در واقع میخوام کدهای بخش تنظیمات تو ببینم

[سیدمحمد 248]

up