B4A=true
Group=Default Group
ModulesStructureVersion=1
Type=Class
Version=11.5
@EndOfDesignText@
Sub Class_Globals
 
	Private sv As ScrollView

	Private mCallBack As Object
	Private mEventName As String


	Dim s_type As String
	Dim int_type As Int = 0
	Dim lb_set_pakhsh As Label
    	
	Dim p_pakhsh 	   As Panel
	Dim p_sleep		   As Panel
	Dim p_auto		   As Panel
	Dim p_auto2		   As Panel
	Dim p_repeat	   As Panel
	Dim p_night	   As Panel
	Dim p_color_fa	   As Panel
	Dim p_color_ar	   As Panel
	Dim p_active_color As Panel
 	
	Dim popup3 As ACPopupMenu
	Dim lb_set_repeat As Label
 
	Dim lb_set_color_fa As Label
	Dim xml_farsi As XmlLayoutBuilder
	Dim Color_farsi As ColorPickerPro
	
	Dim lb_set_color_ar As Label
	Dim xml_Arabic As XmlLayoutBuilder
	Dim Color_Arabic As ColorPickerPro
	
	Dim lb_set_active_color As Label
	Dim xml_farsi1 As XmlLayoutBuilder
	Dim Color_farsi1 As ColorPickerPro

	Dim	s_lb_rang_F,s_lb_rang_A,s_size_A,s_size_F,s_llA,s_llk,s_lb_rang_F1 As String


	Private seek_fa As B4XSeekBar
	Private seek_ar As B4XSeekBar
	
	Private lb_size_ar1 As Label
	Private lb_size_fa1 As Label
	
	Private p_font_fa As Panel
	Private p_font_ar As Panel
	
	Private p_font As Panel
	
	Private lb_set_font_fa As Label
	Private lb_set_font_ar As Label
	
	Dim build_font_A As MaterialDialogBuilder
	Dim build_font_F As MaterialDialogBuilder

	Private lab_back As Label

	Dim ACSwitch1 As B4XSwitch
	
	Private lg_taraz_right  As Label
	Private lb_taraz_right  As Label
	Private p_taraz_right   As Panel
	
	Private lg_taraz_center As Label
	Private lb_taraz_center As Label
	Private p_taraz_center  As Panel
	
	Dim setting1 As String
	
	Private lb_pakhsh As Label
	Private lb_onvan_set As Label
	Private lb_sleep As Label
	Private lb_auto 		As Label
	Private lb_auto2 		As Label
	Private lb_repeat As Label
	Private lb_night As Label
	Private lb_onvan_color As Label
	Private lb_color_fa As Label
	Private lb_color_ar As Label
	Private lb_active_color As Label
	Private lb_onvan_size As Label
	Private lb_size_fa As Label
	Private lb_size_ar As Label
	Private lb_taraz As Label
	Private lb_onvan_line As Label
	Private lb_onvan_font As Label
	Private lb_font_fa As Label
	Private lb_font_ar As Label

	Dim lan2FaEn As String
   	
	Private p_setting 	As Panel
	Private p_color 	As Panel
	Private p_size 		As Panel
	Private p_line 		As Panel
	Private p_font 		As Panel
	
	Private p_onvan_color As Panel
	Private p_onvan_set   As Panel
	Private p_onvan_size  As Panel
	Private p_onvan_line  As Panel
	Private p_onvan_font  As Panel
	
	Private p_size_fa As Panel
	Private p_size_ar As Panel
	
	Private p_taraz As Panel
	
	Private p_seek_ar As Panel
	Private p_seek_fa As Panel
	
	Private ACSwitch4 As B4XSwitch
	Private ACSwitch3 As B4XSwitch
	Private ACSwitch5 As B4XSwitch
	Private ACSwitch2 As B4XSwitch
   	
	Private lb_plus_fa  As Label
	Private lb_minu_fa  As Label
	
	Private lb_minu_ar  As Label
	Private lb_plus_ar  As Label
	
	Private lb_size_ar2 As Label
	Private lb_size_fa2 As Label

End Sub

Public Sub Initialize
End Sub

Public Sub addSub (Caller As Object, pEventName As String)
	
	mCallBack = Caller
	mEventName = pEventName
 
End Sub


Public Sub onCreateView (Parent As Panel)
  	
	sv.Initialize(2000dip)
	Parent.AddView(sv,0,0,100%x,100%y)
	
	Dim r As Reflector
	r.Target = sv
	r.RunMethod2("setVerticalScrollBarEnabled", False, "java.lang.boolean")
	r.RunMethod2("setOverScrollMode", 2, "java.lang.int" )

	sv.Panel.LoadLayout("settings")
	
	sv.Panel.Height = p_font.Top+p_font.Height+15dip
	func.SetRipple(lab_back ,0xff4C9A7B ,0x337FD3B1,16)

	func.SetRipple(	p_pakhsh 	  ,Colors.Transparent,0xaaeeeeee,16)
	func.SetRipple(	p_sleep		  ,Colors.Transparent,0xaaeeeeee,16)
	func.SetRipple(	p_auto		  ,Colors.Transparent,0xaaeeeeee,16)
	func.SetRipple(	p_auto2		  ,Colors.Transparent,0xaaeeeeee,16)
	func.SetRipple(	p_repeat	  ,Colors.Transparent,0xaaeeeeee,16)
	func.SetRipple(	p_night	  ,Colors.Transparent,0xaaeeeeee,16)
	func.SetRipple(	p_color_fa	  ,Colors.Transparent,0xaaeeeeee,16)
	func.SetRipple(	p_color_ar	  ,Colors.Transparent,0xaaeeeeee,16)
	func.SetRipple(	p_active_color,Colors.Transparent,0xaaeeeeee,16)
	func.SetRipple(	p_font_fa,Colors.Transparent,0xaaeeeeee,16)
	func.SetRipple(	p_font_ar,Colors.Transparent,0xaaeeeeee,16)

	func.SetRipple(	lb_plus_fa ,0xFFEDEDED,0xFFBAB5B5,1000)
	func.SetRipple(	lb_minu_fa ,0xFFEDEDED,0xFFBAB5B5,1000)
	func.SetRipple(	lb_minu_ar ,0xFFEDEDED,0xFFBAB5B5,1000)
	func.SetRipple(	lb_plus_ar ,0xFFEDEDED,0xFFBAB5B5,1000)

	lb_pakhsh.Text = func.gland(294)
	lb_set_pakhsh.Text = func.gland(295)
	lb_onvan_set.Text = func.gland(8)
	lb_sleep.Text = func.gland(297)
	lb_auto.Text = func.gland(298)
	lb_auto2.Text = func.gland(400)
	lb_repeat.Text =func.gland(299)
	lb_night.Text =func.gland(393)
	lb_set_repeat.Text =  func.gland(282)
	lb_onvan_color.Text = func.gland(300)
	lb_color_ar.Text = func.gland(302)
	lb_active_color.Text = func.gland(303)
	lb_onvan_size.Text = func.gland(304)
	lb_size_ar.Text = func.gland(302)
	lb_taraz.Text = func.gland(307)
	lb_onvan_line.Text = func.gland(308)
	lb_taraz_center.Text = func.gland(309)
	lb_taraz_right.Text = func.gland(310)
	lb_onvan_font.Text = func.gland(311)
	lb_font_ar.Text = func.gland(302)

  	
	lan2FaEn = (func.readNIS("lan2FaEn",1))

	If lan2FaEn = 3 Then
		lb_color_fa.Text = func.gland(386)
		lb_size_fa.Text = func.gland(386)
		lb_font_fa.Text = func.gland(386)
	Else If lan2FaEn = 2 Then
		lb_color_fa.Text = func.gland(302)
		lb_size_fa.Text = func.gland(302)
		lb_font_fa.Text = func.gland(302)
	Else
		lb_color_fa.Text = func.gland(301)
		lb_size_fa.Text = func.gland(301)
		lb_font_fa.Text = func.gland(301)
	End If
	
	
	lb_pakhsh 		.Typeface = Typeface.LoadFromAssets(func.font3)
	lb_set_pakhsh 		.Typeface = Typeface.LoadFromAssets(func.font3)
	lb_onvan_set 	.Typeface = Typeface.LoadFromAssets(func.font3)
	lb_sleep 		.Typeface = Typeface.LoadFromAssets(func.font3)
	lb_auto 		.Typeface = Typeface.LoadFromAssets(func.font3)
	lb_auto2 		.Typeface = Typeface.LoadFromAssets(func.font3)
	lb_repeat 		.Typeface = Typeface.LoadFromAssets(func.font3)
	lb_night 		.Typeface = Typeface.LoadFromAssets(func.font3)
	lb_set_repeat 	.Typeface = Typeface.LoadFromAssets(func.font3)
	lb_onvan_color 	.Typeface = Typeface.LoadFromAssets(func.font3)
	lb_color_fa 	.Typeface = Typeface.LoadFromAssets(func.font3)
	lb_color_ar 	.Typeface = Typeface.LoadFromAssets(func.font3)
	lb_active_color .Typeface = Typeface.LoadFromAssets(func.font3)
	lb_onvan_size 	.Typeface = Typeface.LoadFromAssets(func.font3)
	lb_size_fa 		.Typeface = Typeface.LoadFromAssets(func.font3)
	lb_size_ar 		.Typeface = Typeface.LoadFromAssets(func.font3)
	lb_taraz 		.Typeface = Typeface.LoadFromAssets(func.font3)
	lb_taraz_center 	.Typeface = Typeface.LoadFromAssets(func.font3)
	lb_onvan_line 	.Typeface = Typeface.LoadFromAssets(func.font3)
	lb_taraz_right 	.Typeface = Typeface.LoadFromAssets(func.font3)
	lb_onvan_font 	.Typeface = Typeface.LoadFromAssets(func.font3)
	lb_font_fa 		.Typeface = Typeface.LoadFromAssets(func.font3)
	lb_font_ar 		.Typeface = Typeface.LoadFromAssets(func.font3)
	
'	***********************

	If func.readPFM("int_type")<>"-1" Then
		int_type=func.readPFM("int_type")
	Else
		int_type=0
	End If
	
	Select int_type
		Case 0
			lb_set_pakhsh.Text = func.gland(279)
		Case 1
			lb_set_pakhsh.Text = func.gland(247)
		Case 2
			lb_set_pakhsh.Text = func.gland(280)
	End Select

	lb_set_pakhsh.Typeface = Typeface.LoadFromAssets(func.font3)

'	***********************
 	
	If func.readPFM("tarjome") = 1 Then
		Dim p As PhoneWakeState
		p.KeepAlive(True)
		ACSwitch2.Value = True
	Else
		Dim p As PhoneWakeState
		p.ReleaseKeepAlive
		ACSwitch2.Value = False
	End If


'	***********************

	If func.readPFM("check_next") = "-1" Then
		ACSwitch3.Value = False
	Else
		ACSwitch3.Value = True
	End If

	If func.readPFM("check_anext") = "-1" Then
		ACSwitch5.Value = True
	Else
		ACSwitch5.Value = False
	End If

'	***********************
	
	popup3.Initialize("popup3",lb_set_repeat)

	popup3.AddMenuItem(1 ,func.PersianNumbers("1 "&func.gland(283)),Null)
	popup3.AddMenuItem(2 ,func.PersianNumbers("2 "&func.gland(283)),Null)
	popup3.AddMenuItem(3 ,func.PersianNumbers("3 "&func.gland(283)),Null)
	popup3.AddMenuItem(4 ,func.PersianNumbers("4 "&func.gland(283)),Null)
	popup3.AddMenuItem(5 ,func.PersianNumbers("5 "&func.gland(283)),Null)
	popup3.AddMenuItem(6 ,func.PersianNumbers("6 "&func.gland(283)),Null)
	popup3.AddMenuItem(7 ,func.PersianNumbers("7 "&func.gland(283)),Null)
	popup3.AddMenuItem(8 ,func.PersianNumbers("8 "&func.gland(283)),Null)
	popup3.AddMenuItem(9 ,func.PersianNumbers("9 "&func.gland(283)),Null)
	popup3.AddMenuItem(10,func.PersianNumbers("10 "&func.gland(283)),Null)
 
	If func.readPFM("check_reply") = "-1" Then
		lb_set_repeat.Text ="1 "&func.gland(283)
	Else
		lb_set_repeat.Text = func.readPFM("check_reply") & " "&func.gland(283)
	End If

	lb_set_repeat.Typeface = Typeface.LoadFromAssets(func.font3)

	'	***********************

	If func.readPFM("Bool_Night") = "-1" Then
		ACSwitch4.Value = False
	Else
		ACSwitch4.Value = True
	End If

	nightS
	
'	***********************


	If func.ExistList("ColorK.stg") = False Then
		func.color_border(lb_set_color_fa,Colors.Blue,1000)
		s_lb_rang_F =  Colors.Blue
		
	Else
		Dim list19 As List
		list19=func.ReadList("ColorK.stg")
		func.color_border(lb_set_color_fa,list19.Get(0),1000)

		s_lb_rang_F= list19.Get(0)
		
	End If

 
'	***********************

	If func.ExistList("ColorA.stg") = False Then
		func.color_border(lb_set_color_ar,Colors.DarkGray,1000)
		s_lb_rang_A=Colors.DarkGray
	Else
		Dim list12 As List
		list12=func.ReadList("ColorA.stg")
		func.color_border(lb_set_color_ar,list12.Get(0),1000)
		s_lb_rang_A= list12.Get(0)
	End If
 
'	***********************
 	
	If func.ExistList("ColorK1.stg")= False Then
		func.color_border(lb_set_active_color,0x66FFF66E,1000)
		s_lb_rang_F1 =  0x66FFF66E
	Else
		Dim list191 As List
		list191=func.ReadList("ColorK1.stg")
		func.color_border(lb_set_active_color,list191.Get(0),1000)
		s_lb_rang_F1= list191.Get(0)
	End If

'	***********************

	Dim llA As String

	If func.ExistList("fontA.stg") = False Then
		llA = func.gland(284)
		s_llA="hezareh.ttf"
	Else
		Dim list16 As List
		list16.Initialize
		list16 = func.ReadList("fontA.stg")
		
		Dim ss As String = list16.Get(0)
 
		Select ss
  				
			Case "hezareh.ttf"
				llA = func.gland(284)
				s_llA="hezareh.ttf"
 
			Case "sahel.ttf"
				llA = func.gland(285)
				s_llA="sahel.ttf"
 
			Case "hafs.ttf"
				llA = func.gland(286)
				s_llA="hafs.ttf"
 

			Case Else
				Log("Larger than 9")
		End Select
		
	End If
	
	lb_set_font_ar.Text = llA
	lb_set_font_ar.Typeface = Typeface.LoadFromAssets(func.font3)

'	***********************
 
	Dim llk As String

	If func.ExistList("fontK.stg") = False Then
		
		If lan2FaEn = 3 Then
			llk = "Calibri"
			s_llk="en1font.ttf"
		Else
			llk = func.gland(285)
			s_llk="sahel.ttf"
		End If
		
	Else
		Dim list16 As List
		list16.Initialize
		list16 = func.ReadList("fontK.stg")
		
		Dim ss As String = list16.Get(0)
 
		If lan2FaEn = 3 Then
			llk = "Calibri"
			s_llk="en1font.ttf"
		Else
			Select ss
 
				Case "sahel.ttf"
					llk = func.gland(285)
					s_llk="sahel.ttf"

				Case "hezareh.ttf"
					llk = func.gland(284)
					s_llk="hezareh.ttf"

				Case "hafs.ttf"
					llk = func.gland(286)
					s_llk="hafs.ttf"

				Case Else
					Log("Larger than 9")
			End Select
		End If
   
	End If

	lb_set_font_fa.Text = llk
	lb_set_font_fa.Typeface = Typeface.LoadFromAssets(func.font3)

'	***********************

	Dim list1 As List
	list1.Initialize
	list1.Add(func.readNIS("sizeFarsi",18))
	func.writeList("sizeK.stg",list1)

	Dim list1 As List
	list1=func.ReadList("sizeK.stg")
	seek_fa.Value = list1.Get(0)

	lb_size_fa1.Text = seek_fa.Value
	lb_size_fa1.Typeface = Typeface.LoadFromAssets(func.font3)

	s_size_F = seek_fa.Value
	
'	***********************

	Dim list1 As List
	list1.Initialize
	list1.Add(func.readNIS("sizeArabi",24))
	func.writeList("sizeA.stg",list1)

	Dim list1 As List
	list1=func.ReadList("sizeA.stg")
	seek_ar.Value = list1.Get(0)

	lb_size_ar1.Text = seek_ar.Value
	
	s_size_A = seek_ar.Value

'	***********************

	lb_size_ar2.Text = "العربیة"
 	
	If lan2FaEn = 3 Then
		lb_size_fa2.Text = "English"
	Else
		lb_size_fa2.Text = "فارسی"
	End If

	

	lb_size_ar2.Typeface = Typeface.LoadFromAssets(s_llA)
	lb_size_fa2.Typeface = Typeface.LoadFromAssets(s_llk)

	lb_size_ar2.TextSize = s_size_A
	lb_size_fa2.TextSize = s_size_F

'	***********************
 	
	setting1 = func.readPFM("setting")
  	
	If setting1 = "doaa" Or setting1 = "doaa1" Then

		If func.readPFM("checkdoaa") = -1 Then
			
			lg_taraz_center.TextColor = Colors.White
			lb_taraz_center.TextColor = Colors.White
			func.color_border(p_taraz_center,0xFF3B8061,8dip)
 
			lg_taraz_right.TextColor = Colors.Black
			lb_taraz_right.TextColor = Colors.Black
			func.color_border(p_taraz_right,0xFFE7F4EB,8dip)

		Else
			
			lg_taraz_center.TextColor = Colors.Black
			lb_taraz_center.TextColor = Colors.Black
			func.color_border(p_taraz_center,0xFFE7F4EB,8dip)
 
			lg_taraz_right.TextColor = Colors.White
			lb_taraz_right.TextColor = Colors.White
			func.color_border(p_taraz_right, 0xFF3B8061,8dip)

 
		End If

	Else if setting1 = "Book" Or setting1 = "Book1" Then

		If func.readPFM("checkBook") = -1 Then
			lg_taraz_center.TextColor = Colors.White
			lb_taraz_center.TextColor = Colors.White
			func.color_border(p_taraz_center,0xFF3B8061,8dip)
 
			lg_taraz_right.TextColor = Colors.Black
			lb_taraz_right.TextColor = Colors.Black
			func.color_border(p_taraz_right,0xFFE7F4EB,8dip)

		Else
			
			lg_taraz_center.TextColor = Colors.Black
			lb_taraz_center.TextColor = Colors.Black
			func.color_border(p_taraz_center,0xFFE7F4EB,8dip)
 
			lg_taraz_right.TextColor = Colors.White
			lb_taraz_right.TextColor = Colors.White
			func.color_border(p_taraz_right, 0xFF3B8061,8dip)

		End If

	else If setting1 = "quran" Or setting1 = "quran1" Then

		If func.readPFM("checkquran") = -1 Then
			lg_taraz_center.TextColor = Colors.White
			lb_taraz_center.TextColor = Colors.White
			func.color_border(p_taraz_center,0xFF3B8061,8dip)
 
			lg_taraz_right.TextColor = Colors.Black
			lb_taraz_right.TextColor = Colors.Black
			func.color_border(p_taraz_right,0xFFE7F4EB,8dip)

		Else
			
			lg_taraz_center.TextColor = Colors.Black
			lb_taraz_center.TextColor = Colors.Black
			func.color_border(p_taraz_center,0xFFE7F4EB,8dip)
 
			lg_taraz_right.TextColor = Colors.White
			lb_taraz_right.TextColor = Colors.White
			func.color_border(p_taraz_right, 0xFF3B8061,8dip)

		End If

	else If setting1 = "ahkam" Or setting1 = "ahkam1" Then

		If func.readPFM("checkahkam") = -1 Then
			lg_taraz_center.TextColor = Colors.White
			lb_taraz_center.TextColor = Colors.White
			func.color_border(p_taraz_center,0xFF3B8061,8dip)
 
			lg_taraz_right.TextColor = Colors.Black
			lb_taraz_right.TextColor = Colors.Black
			func.color_border(p_taraz_right,0xFFE7F4EB,8dip)

		Else
			
			lg_taraz_center.TextColor = Colors.Black
			lb_taraz_center.TextColor = Colors.Black
			func.color_border(p_taraz_center,0xFFE7F4EB,8dip)
 
			lg_taraz_right.TextColor = Colors.White
			lb_taraz_right.TextColor = Colors.White
			func.color_border(p_taraz_right, 0xFF3B8061,8dip)

		End If
		
	else If setting1 = "matn" Or setting1 = "matn1" Or setting1 = "matn3" Or setting1 = "matn4" _
		 Or setting1 = "film1"  Or setting1 = "film" Or setting1 = "daySpeech" Or setting1 = "qai"  Or setting1 = "biolog"  Then

		If func.readPFM("checkmatn") = -1 Then
			lg_taraz_center.TextColor = Colors.White
			lb_taraz_center.TextColor = Colors.White
			func.color_border(p_taraz_center,0xFF3B8061,8dip)
 
			lg_taraz_right.TextColor = Colors.Black
			lb_taraz_right.TextColor = Colors.Black
			func.color_border(p_taraz_right,0xFFE7F4EB,8dip)

		Else
			
			lg_taraz_center.TextColor = Colors.Black
			lb_taraz_center.TextColor = Colors.Black
			func.color_border(p_taraz_center,0xFFE7F4EB,8dip)
 
			lg_taraz_right.TextColor = Colors.White
			lb_taraz_right.TextColor = Colors.White
			func.color_border(p_taraz_right, 0xFF3B8061,8dip)

		End If
		
	End If
	'*********************************************
	'*********************************************
	'*********************************************
  	
	If func.readPFM("justy") = -1 Then
		ACSwitch1.Value = True
	Else
		ACSwitch1.Value = False
	End If

End Sub

Sub nightS
	
	If func.readPFM("Bool_Night") = "-1" Then
 		
		sv.Color = 0xFFFBFDFF
		sv.Panel.Color = 0xFFFBFDFF
		
		p_setting.Color = Colors.White
		p_color.Color = Colors.White
		p_size.Color = Colors.White
		p_line.Color = Colors.White
		p_font.Color = Colors.White
		
		p_onvan_color.Color = Colors.White
		p_onvan_set  .Color = Colors.White
		p_onvan_size .Color = Colors.White
		p_onvan_line .Color = Colors.White
		p_onvan_font .Color = Colors.White
		p_size_fa .Color = Colors.White
		p_size_ar .Color = Colors.White
		p_taraz .Color = Colors.White
		
		p_seek_ar .Color = 0xFFEDEDED
		p_seek_fa .Color = 0xFFEDEDED
		
		lb_onvan_set 	.textColor = Colors.Black
		lb_pakhsh 		.textColor = Colors.Black
		lb_sleep 		.textColor = Colors.Black
		lb_auto 		.textColor = Colors.Black
		lb_auto2 		.textColor = Colors.Black
		lb_repeat 		.textColor = Colors.Black
		lb_night 		.textColor = Colors.Black
		lb_onvan_color 	.textColor = Colors.Black
		lb_color_fa 	.textColor = Colors.Black
		lb_color_ar 	.textColor = Colors.Black
		lb_active_color .textColor = Colors.Black
		lb_onvan_size 	.textColor = Colors.Black
		lb_size_fa 		.textColor = Colors.Black
		lb_size_fa1 	.textColor = Colors.Black
		lb_size_fa2 	.textColor = Colors.Black
		lb_size_ar1 	.textColor = Colors.Black
		lb_size_ar2 	.textColor = Colors.Black
		lb_size_ar 		.textColor = Colors.Black
		lb_taraz 		.textColor = Colors.Black
		lb_onvan_font 	.textColor = Colors.Black
		lb_font_fa 		.textColor = Colors.Black
		lb_font_ar 		.textColor = Colors.Black
		lb_onvan_line 	.textColor = Colors.Black
 		
	Else
		
		lb_onvan_set 	.textColor = Colors.White
		lb_pakhsh 		.textColor = Colors.White
		lb_sleep 		.textColor = Colors.White
		lb_auto 		.textColor = Colors.White
		lb_auto2 		.textColor = Colors.White
		lb_repeat 		.textColor = Colors.White
		lb_night 		.textColor = Colors.White
		lb_onvan_color 	.textColor = Colors.White
		lb_color_fa 	.textColor = Colors.White
		lb_color_ar 	.textColor = Colors.White
		lb_active_color .textColor = Colors.White
		lb_onvan_size 	.textColor = Colors.White
		lb_size_fa 		.textColor = Colors.White
		lb_size_fa1 	.textColor = Colors.White
		lb_size_fa2 	.textColor = Colors.White
		lb_size_ar1 	.textColor = Colors.White
		lb_size_ar2		.textColor = Colors.White
		lb_size_ar 		.textColor = Colors.White
		lb_taraz 		.textColor = Colors.White
		lb_onvan_font 	.textColor = Colors.White
		lb_font_fa 		.textColor = Colors.White
		lb_font_ar 		.textColor = Colors.White
		lb_onvan_line 	.textColor = Colors.White
 		
		sv.Color = 0xFF3F473B
		sv.Panel.Color = 0xFF3F473B
		
		p_setting.Color = 0xFF323A2F
		p_color.Color = 0xFF323A2F
		p_size.Color = 0xFF323A2F
		p_line.Color = 0xFF323A2F
		p_font.Color = 0xFF323A2F
		
		p_onvan_color.Color = 0xFF323A2F
		p_onvan_set  .Color = 0xFF323A2F
		p_onvan_size .Color = 0xFF323A2F
		p_onvan_line .Color = 0xFF323A2F
		p_onvan_font .Color = 0xFF323A2F
		p_size_fa .Color = 0xFF323A2F
		p_size_ar .Color = 0xFF323A2F
		p_taraz .Color = 0xFF323A2F
		
		p_seek_ar .Color = 0xFFE7F4EB
		p_seek_fa .Color = 0xFFE7F4EB
 	
	End If

	
End Sub

#Region taraz

Sub ACSwitch1_ValueChanged (Value As Boolean)
 	
	If Value Then
		func.savePFM("justy",-1)
	Else
		func.savePFM("justy",1)
	End If
	
End Sub

Sub p_taraz_right_Click
	
	lg_taraz_center.TextColor = Colors.Black
	lb_taraz_center.TextColor = Colors.Black
	func.color_border(p_taraz_center,0xFFE7F4EB,8dip)
 
	lg_taraz_right.TextColor = Colors.White
	lb_taraz_right.TextColor = Colors.White
	func.color_border(p_taraz_right, 0xFF3B8061,8dip)


 
	Select setting1
		Case "doaa","doaa1"
			func.savePFM("checkBook",1)
			
		Case "Book","Book1"
			func.savePFM("checkBook",1)
			
		Case "quran","quran1"
			func.savePFM("checkquran",1)
			
		Case "ahkam" ,"ahkam1"
			func.savePFM("checkahkam",1)
			
		Case "matn" ,"matn1","film1","film","daySpeech","qai","matn3","matn4","biolog"
			func.savePFM("checkmatn",1)
				
	End Select

End Sub

Sub p_taraz_center_Click
	
	lg_taraz_center.TextColor = Colors.White
	lb_taraz_center.TextColor = Colors.White
	func.color_border(p_taraz_center,0xFF3B8061,8dip)
 
	lg_taraz_right.TextColor = Colors.Black
	lb_taraz_right.TextColor = Colors.Black
	func.color_border(p_taraz_right,0xFFE7F4EB,8dip)

	Select setting1
		Case "doaa","doaa1"
			func.savePFM("checkBook",-1)
			
		Case "Book","Book1"
			func.savePFM("checkBook",-1)
			
		Case "quran","quran1"
			func.savePFM("checkquran",-1)
			
		Case "ahkam" ,"ahkam1"
			func.savePFM("checkahkam",-1)

		Case "matn" ,"matn1","film1","film","daySpeech","qai","matn3","matn4","biolog"
			func.savePFM("checkmatn",-1)
			
	End Select

End Sub

#end Region

#Region panClick

Private Sub p_taraz_Click
	ACSwitch1.Value = Not(ACSwitch1.Value)
	
	If ACSwitch1.Value Then
		func.savePFM("justy",1)
	Else
		func.savePFM("justy",-1)
	End If

End Sub
Private Sub p_auto_Click
	ACSwitch3.Value = Not(ACSwitch3.Value)
	
	If ACSwitch3.Value Then
		func.savePFM("check_next","1")
	Else
		func.savePFM("check_next","-1")
	End If

End Sub
Private Sub p_auto2_Click
	ACSwitch5.Value = Not(ACSwitch5.Value)
	
	If ACSwitch5.Value Then
		func.savePFM("check_anext","-1")
	Else
		func.savePFM("check_anext","1")
	End If

End Sub
Private Sub p_sleep_Click
	ACSwitch2.Value = Not(ACSwitch2.Value)
	
	If ACSwitch2.Value Then
		Dim p As PhoneWakeState
		p.KeepAlive(True)
		func.savePFM("tarjome",1)
	Else
		Dim p As PhoneWakeState
		p.ReleaseKeepAlive
		func.savePFM("tarjome",2)
	End If

End Sub
Private Sub p_night_Click
	ACSwitch4.Value = Not(ACSwitch4.Value)
	
	If ACSwitch4.Value Then
		func.savePFM("Bool_Night","1")
	Else
		func.savePFM("Bool_Night","-1")
	End If
	
	nightS
End Sub
 
#end Region


Private Sub seek_fa_TouchStateChanged (Pressed As Boolean)
	#if B4A
	Dim v As B4XSeekBar = Sender
	Dim jo As JavaObject = v.mBase.Parent
	jo.RunMethod("requestDisallowInterceptTouchEvent", Array(Pressed))
    #End If
End Sub

Private Sub seek_ar_TouchStateChanged (Pressed As Boolean)
	#if B4A
	Dim v As B4XSeekBar = Sender
	Dim jo As JavaObject = v.mBase.Parent
	jo.RunMethod("requestDisallowInterceptTouchEvent", Array(Pressed))
    #End If
End Sub

'**********************************
'**********************************
'**********************************

#Region tarkibPakhsh

Sub p_pakhsh_Click
	Dim Builder As MaterialDialogBuilder
	Builder.Initialize("Dialog_type")

	Builder.Title(func.gland(287))
	Builder.Items(Array As String(func.gland(279), func.gland(247), func.gland(280)))
	Builder.Typeface(Typeface.LoadFromAssets(func.font3),Typeface.LoadFromAssets(func.font3))
	Builder.ItemsCallback
	Builder.ItemsGravity(Builder.GRAVITY_START)
	Builder.ItemsGravity(Builder.GRAVITY_START)
	Builder.Show
  
End Sub

Sub Dialog_type_ItemSelected (Dialog As MaterialDialog, Position As Int, Text As String)
	s_type=Text
	int_type=Position
	lb_set_pakhsh.Text =s_type
	func.savePFM("int_type",int_type)
End Sub
 

#End Region

#Region sleep

Sub ACSwitch2_ValueChanged (Value As Boolean)
        
	If Value Then
		Dim p As PhoneWakeState
		p.KeepAlive(True)
		func.savePFM("tarjome",1)
	Else
		Dim p As PhoneWakeState
		p.ReleaseKeepAlive
		func.savePFM("tarjome",2)
	End If
	
End Sub

#End Region

#Region playNext

Sub ACSwitch3_ValueChanged (Value As Boolean)
 	
	If Value Then
		func.savePFM("check_next","1")
	Else
		func.savePFM("check_next","-1")
	End If
   	
End Sub

Sub ACSwitch5_ValueChanged (Value As Boolean)
 	
	If Value Then
		func.savePFM("check_anext","-1")
	Else
		func.savePFM("check_anext","1")
	End If
   	
End Sub
#End Region

#Region p_repeat

Sub p_repeat_Click
	popup3.Show
End Sub

Sub popup3_ItemClicked (Item As ACMenuItem)
  	
	lb_set_repeat.Text = Item.Title
  	
	func.savePFM("check_reply",Item.Id)

End Sub

Sub ACSwitch4_ValueChanged (Value As Boolean)
 	
	If Value Then
		func.savePFM("Bool_Night","1")
	Else
		func.savePFM("Bool_Night","-1")
	End If
	
	nightS
	
End Sub
 
#End Region


#Region colorFa

Sub p_color_fa_Click
	
	Color_farsi.Initialize("Color_farsi",xml_farsi.GetResourceId("style","CustomStyle"))
	
	If lan2FaEn = 3 Then
		Color_farsi.setTitle(func.gland(387))
	Else If lan2FaEn = 2 Then
		Color_farsi.setTitle(func.gland(389))
	Else
		Color_farsi.setTitle(func.gland(288))
	End If
  	
	Color_farsi.wheelType(Color_farsi.WHEEL_TYPE_FLOWER)
	Color_farsi.Density(12)
	Color_farsi.SetPositiveButton(func.gland(289))
	Color_farsi.SetNegativeButton(func.gland(29))
	Color_farsi.ShowColorEdit(False)
	Color_farsi.InitialColors(Array As Int(s_lb_rang_F,s_lb_rang_F,s_lb_rang_F,s_lb_rang_F))
	Color_farsi.Build
	Color_farsi.Show
	
End Sub
Sub Color_farsi_onColorSelected(selectedColor As Int)

End Sub
Sub Color_farsi_PositiveButtonClick(lastSelectedColor As Int)
	
	func.color_border(lb_set_color_fa,lastSelectedColor,1000)

	Dim list1 As List
	list1.Initialize
	list1.Add(lastSelectedColor)
	func.writeList("ColorK.stg",list1)
	
	s_lb_rang_F=lastSelectedColor
	
End Sub



#End Region


#Region colorAr

Sub p_color_ar_Click
	
	Color_Arabic.Initialize("Color_Arabic",xml_Arabic.GetResourceId("style","CustomStyle"))
	Color_Arabic.setTitle(func.gland(290))
	Color_Arabic.wheelType(Color_Arabic.WHEEL_TYPE_FLOWER)
	Color_Arabic.Density(12)
	Color_Arabic.SetPositiveButton(func.gland(289))
	Color_Arabic.SetNegativeButton(func.gland(29))
	Color_Arabic.ShowColorEdit(False)
	Color_Arabic.InitialColors(Array As Int(s_lb_rang_A,s_lb_rang_A,s_lb_rang_A,s_lb_rang_A))
	Color_Arabic.Build
	Color_Arabic.Show
	
End Sub
Sub Color_Arabic_onColorSelected(selectedColor As Int)

End Sub
Sub Color_Arabic_PositiveButtonClick(lastSelectedColor As Int)
	
	func.color_border(lb_set_color_ar,lastSelectedColor,1000)

	Dim list1 As List
	list1.Initialize
	list1.Add(lastSelectedColor)
	func.writeList("ColorA.stg",list1)
	
	s_lb_rang_A=list1.Get(0)
End Sub



#End Region


#Region colorActive


Sub p_active_color_Click
	
	Color_farsi1.Initialize("Color_farsi1",xml_farsi1.GetResourceId("style","CustomStyle"))
	Color_farsi1.setTitle(func.gland(291))
	Color_farsi1.wheelType(Color_farsi1.WHEEL_TYPE_FLOWER)
	Color_farsi1.Density(12)
	Color_farsi1.SetPositiveButton(func.gland(289))
	Color_farsi1.SetNegativeButton(func.gland(29))
	Color_farsi1.ShowColorEdit(False)
	Color_farsi1.InitialColors(Array As Int(s_lb_rang_F1,s_lb_rang_F1,s_lb_rang_F1,s_lb_rang_F1))
	Color_farsi1.Build
	Color_farsi1.Show

End Sub
Sub Color_farsi1_onColorSelected(selectedColor As Int)

End Sub
Sub Color_farsi1_PositiveButtonClick(lastSelectedColor As Int)
	
	func.color_border(lb_set_active_color,lastSelectedColor,1000)
 	
	Dim list1 As List
	list1.Initialize
	list1.Add(lastSelectedColor)
	func.writeList("ColorK1.stg",list1)
	
	s_lb_rang_F1=list1.Get(0)
	
End Sub

#End Region

#Region size

 
Private Sub seek_ar_ValueChanged (Value As Int)
	Dim list1 As List
	list1.Initialize
	list1.Add(Value)
	func.writeList("sizeA.stg",list1)
	s_size_A=Value
	
	lb_size_ar1.Text = s_size_A
	lb_size_ar2.TextSize = s_size_A

End Sub

Private Sub seek_fa_ValueChanged (Value As Int)
	Dim list1 As List
	list1.Initialize
	list1.Add(Value)
	func.writeList("sizeK.stg",list1)
	s_size_F=Value
	
	lb_size_fa1.Text = s_size_F
	lb_size_fa2.TextSize = s_size_F

End Sub

Sub lb_plus_fa_Click

	If s_size_F < 51 Then
		s_size_F = s_size_F + 1
 	
		Dim list1 As List
		list1.Initialize
		list1.Add(s_size_F)
		func.writeList("sizeK.stg",list1)
 	
	End If
	
	seek_fa.Value = s_size_F
	lb_size_fa1.Text = s_size_F
	lb_size_fa2.TextSize = s_size_F
 	
End Sub
Sub lb_minu_fa_Click
	
	If s_size_F > 0 Then
		s_size_F = s_size_F - 1
	
		Dim list1 As List
		list1.Initialize
		list1.Add(s_size_F)
		func.writeList("sizeK.stg",list1)
 	
	End If

	seek_fa.Value = s_size_F
	lb_size_fa1.Text = s_size_F
	lb_size_fa2.TextSize = s_size_F

End Sub

Sub lb_minu_ar_Click
	
	If s_size_A < 51 Then
		s_size_A = s_size_A - 1
	
		Dim list1 As List
		list1.Initialize
		list1.Add(s_size_A)
		func.writeList("sizeA.stg",list1)
 	
	End If
	
	seek_ar.Value = s_size_A
	lb_size_ar1.Text = s_size_A
	lb_size_ar2.TextSize = s_size_A

End Sub

Sub lb_plus_ar_Click
	
	If s_size_A > 0 Then
		s_size_A = s_size_A + 1
	
		Dim list1 As List
		list1.Initialize
		list1.Add(s_size_A)
		func.writeList("sizeA.stg",list1)
 	
	End If
	
	seek_ar.Value = s_size_A
	lb_size_ar1.Text = s_size_A
	lb_size_ar2.TextSize = s_size_A

End Sub
 
 
#End Region

Private Sub p_font_ar_Click
  	
	build_font_A.Initialize("build_font_A")
	build_font_A.PositiveText("").Title(func.gland(292)).TitleGravity(build_font_A.GRAVITY_CENTER).ItemsColor(Colors.Black)
	build_font_A.Items(Array As String(func.gland(284),func.gland(285),func.gland(286)))
	build_font_A.ItemsCallback
	build_font_A.Typeface(Typeface.LoadFromAssets(func.font3),Typeface.LoadFromAssets(func.font3))
	build_font_A.ItemsGravity(build_font_A.GRAVITY_START)
	build_font_A.Show
  

End Sub

Sub build_font_A_ItemSelected (Dialog As MaterialDialog, Position As Int, Text As String)
	
	Log($"Item Selected: ${Position} : ${Text}"$)
 	
	lb_set_font_ar.Text = Text
	
	Dim ll As String
 	
 
	Select Position
		Case 0
			ll = "hezareh.ttf"
			
		Case 1
			ll = "sahel.ttf"
 
		Case 2
			ll = "hafs.ttf"
 
 
		Case Else
			Log("Larger than 9")
	End Select
	
	
	Dim list1 As List
	list1.Initialize
	list1.Add(ll)
	func.writeList("fontA.stg",list1)

	s_llA=list1.Get(0)
	lb_size_ar2.Typeface = Typeface.LoadFromAssets(s_llA)
	
End Sub

Private Sub p_font_fa_Click

	build_font_F.Initialize("build_font_F")
	build_font_F.PositiveText("")
	
	If lan2FaEn = 3 Then
		build_font_F.Title(func.gland(388))
		build_font_F.Items(Array As String("Calibri"))

	Else If lan2FaEn = 2 Then
		build_font_F.Title(func.gland(390))
		build_font_F.Items(Array As String(func.gland(284),func.gland(285) ))

	Else
		build_font_F.Title(func.gland(293))
		build_font_F.Items(Array As String(func.gland(284),func.gland(285) ))

	End If
	
	build_font_F.TitleGravity(build_font_F.GRAVITY_CENTER).ItemsColor(Colors.Black)
	build_font_F.ItemsCallback
	build_font_F.Typeface(Typeface.LoadFromAssets(func.font3),Typeface.LoadFromAssets(func.font3))
	build_font_F.ItemsGravity(build_font_F.GRAVITY_START)
	build_font_F.Show
  
End Sub

Sub build_font_F_ItemSelected (Dialog As MaterialDialog, Position As Int, Text As String)
	Log($"Item Selected: ${Position} : ${Text}"$)

	lb_set_font_fa.Text = Text
 
	Dim ll As String
	
	If lan2FaEn = 3 Then
		ll="en1font.ttf"
	Else
		Select Position
			Case 0
				ll = "hezareh.ttf"
			
			Case 1
				ll = "sahel.ttf"
 
 
			Case Else
				Log("Larger than 9")
		End Select
		
	End If
 
	
	Dim list1 As List
	list1.Initialize
	list1.Add(ll)
	func.writeList("fontK.stg",list1)

	s_llk=list1.Get(0)
	lb_size_fa2.Typeface = Typeface.LoadFromAssets(s_llk)
	
End Sub


Sub close
  	
	func.savePFM("colorFaal",s_lb_rang_F1)
	func.savePFM("colorFarsi",s_lb_rang_F)
	func.savePFM("colorArabi",s_lb_rang_A)
	func.savePFM("fontArabi",s_llA)
	func.savePFM("fontFarsi",s_llk)
	
	func.savePFM("sizeArabi",s_size_A)
	func.savePFM("sizeFarsi",s_size_F)
  
	If SubExists(mCallBack, mEventName & "_color") Then
		CallSubDelayed(mCallBack, mEventName & "_color")
	End If
 
	Dim setting As String = func.readPFM("setting")

	  If setting = "Book" Then
		CallSub2(actBook,"show_hide_frag",func.listInitialize(16,Me,""))
 		
	else If setting = "Book1" Then
		CallSub2(actBook,"show_hide_frag",func.listInitialize(14,Me,""))
 
	End If
	

End Sub

Sub lab_back_Click
	close
End Sub
 
public Sub onKey (KeyCode As Int)

	If KeyCode = KeyCodes.KEYCODE_BACK Then
		close
	End If
  	
End Sub