مشکل در تنظیمات رنگ برنامه

[rezakakaei 15]

سلام و خسته نباشید به همه دوستان

یک مشکل داشتم داخل قسمت ستینگ برنامه کد زیر هستش

در btncolor_Click رنگ متن  انتخاب میشه و داخل BtnSave تنظیمات سیو میشه حالا میخواستم کلا قسمت تنظیم رنگ داخل برنامه حذف کنم یا اگر امکانش داره کدش را درست کنم چون در این برنامه از کتابخانه dialogs استفاده میکنه

یا این کتابخانه را دوستان بهم  بدند یا این کد را درست کنند اگر امکانش هست البته

 

ممنون با تشکر همگی

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

Sub Process_Globals
	Dim Font As String
	Dim Size As Int
	Dim e As Int	
	Dim q As PhoneWakeState
	Dim vib As PhoneVibrate	

End Sub

Sub Globals

	'Dim Color As ColorPickerDialog
	Private FontSize As SeekBar
	Private FontType As Spinner
	Private Label4 As Label
	Private Label5 As Label
	Private btncolor As Button
	Private Label1 As Label
	Private Label2 As Label
	Private Label3 As Label
	Private BtnSave As Button

End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("frm5")
	
	FontType.AddAll(Array As String("BYEKAN","BJADIDBD","BTITRBD","BZAR","BELHAM"))
	Label4.TextSize=15
	Label1.Typeface=Typeface.LoadFromAssets("BYEKAN.TTF")
	Label2.Typeface=Typeface.LoadFromAssets("BYEKAN.TTF")
	Label3.Typeface=Typeface.LoadFromAssets("BYEKAN.TTF")
	Label4.Typeface=Typeface.LoadFromAssets("BYEKAN.TTF")
	Label5.Typeface=Typeface.LoadFromAssets("BYEKAN.TTF")

	

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)


End Sub

Sub FontType_ItemClick (Position As Int, Value As Object)
	If Position = 0 Then
	Label4.Typeface=Typeface.LoadFromAssets("BYEKAN.TTF")
	End If 
	If Position = 1 Then
	Label4.Typeface=Typeface.LoadFromAssets("BJADIDBD.TTF")
	End If 
	If Position = 2 Then
	Label4.Typeface=Typeface.LoadFromAssets("BTITRBD.TTF")
	End If 
	If Position = 3 Then
	Label4.Typeface=Typeface.LoadFromAssets("BZAR.TTF")
	End If 
	If Position = 4 Then
	Label4.Typeface=Typeface.LoadFromAssets("BELHAM.TTF")
	End If 
	
End Sub

Sub FontSize_ValueChanged (Value As Int, UserChanged As Boolean)
	Label4.TextSize=Value
	Label5.Text=Value
End Sub


Sub btncolor_Click
 Color.Show("کلکسیون رنگ ها","انتخاب","انصراف","",LoadBitmap(File.DirAssets,"000.png"))
 btncolor.Typeface=Typeface.LoadFromAssets("BYEKAN.TTF")
 code.saveData("setting.txt","FontColor",Color.RGB)
 Label4.TextColor=Color.RGB
 btncolor.TextColor=Color.RGB
End Sub

Sub BtnSave_Click
	Font=FontType.SelectedItem
	Size=FontSize.Value
	Dim list1 As List
	list1.Initialize
	list1.Add(Font)
	list1.Add(Size)
	
	
	File.WriteList(File.DirInternal,"Settings.stg",list1)
	ToastMessageShow("تنظیمات با موفقیت اعمال شد",False)
	StartActivity(Menu1)
	Activity.Finish 
End Sub

[SoRoUsH 300]

بفرمایید این سورس : کلیک کنید!

[rezakakaei 15]

بفرمایید این سورس : کلیک کنید!

دوست عزیز این برنامه هم ارور میده ارور کتابخانه دیالوگ