B4A=true
Group=Book\matnBook
ModulesStructureVersion=1
Type=Class
Version=10.5
@EndOfDesignText@
 Sub Class_Globals
 
	Private pphon As Phone

	Private L_Name As Label
	Private lab_page As Label
	Private p_Page As Panel
	Private lab_page2 As Label

	Private Seek_Play    As ACSeekBar
	Private L_Speed 	 As Label
	Private L_Play 		 As Label
	Private L_Lock 		 As Label
	Private L_Background As Label
	Private L_Search     As Label
	Private P_Play		 As Panel
	Private P_Bala       As Panel
	Private lab_exit     As Label
	Private L_Plus As Label
	Private L_Mine As Label

	Private Lb_monde     As Label
	Private Lb_kol       As Label
 
	Dim content As Panel

	Private numAye As Int 'Numbers Of Aye
	Private Bool_BackgroundNeshan As Boolean 'Show Hide Of BackgroundNeshan
	Private Bool_Night      As Boolean 'Show Night Day
	Private Bool_Lock       As Boolean 'Lock or UnLock

	Private P_BackgroundNeshan As Panel
	Private L_BalaAye    As Label
	Private Ed_Aye    As ACEditText
	Private Seek_Aye  As ACSeekBar

	Private ime As IME
	Private timerofline As Timer

	Private recBook As recMatnBook

	Private speedSound As Float = 1
	Private panSpeed As Panel
	Private timerSpeed As Timer

	Private sooreh_Last_Neshan As String

	Private boxSearch As Panel
	Private box2Search As Panel
	Private ed_Search As ACEditText
	Private BoolSearch As Boolean
	Private li4 As RotateLoading

	Private list_aye As List
	
	Private iSearchp As Int
 
	Private sql As SQL
	Private Cursor As ResultSet
	
	Private sql3 As SQL

	Private downloadPdf As downloadPdfBook
 	
	Private listPage As List

	Private Im_BoroAyeh As Label
	Private Im_Set As Label
	Private L_Zoom 		 As Label
	Private Im_BoroAyeh2 As Label


	'****************************
	'****************************
	
	Private BoolseClick As Boolean
 	Dim pTarc As Panel
	
	Private P_PlayPV		 As Panel

	Private p_pavar As Panel
	Private p_copy As Panel
	Private p_neshan As Panel
	Private p_share As Panel
	Private l_neshan As Label
	Private l_neshan1 As Label
	Private l_share As Label
	Private l_copy As Label
	Private l_pdf As Label
	Private l_pavar As Label
	Private l_pavar1 As Label
	Private l_bardasht1 As Label
	Private p_bardasht As Panel
	Private l_bardasht As Label
	Private Label7 		As Label
	Private Label5 		As Label
	Private Label2 		As Label

	Private labShowA As Label
	
	Dim iPotion As Int
	
'	********************
'	********************
   
	Private Boolpavar As Boolean
	Dim pTarp As Panel
	Dim P_Bala6 As Panel

	Private sv4 As ScrollView
  	
	Private int_plus   As Int
	Private L_ShowMtn    As Label
  	
	Private nameBookPV As String
	Public  idSurePV As Int
	Public  idPagePV As Int

	Private L_NamePV As Label
	Private L_SharePV As Label
	Private L_minePV As Label
	Private L_PlusPV As Label
	Private L_BackgroundPV As Label


	Dim ah As AHNavigationDrawer

	Private listId 			As List
	Private listPosition 	As List
	Private listName As List
	Private listMattn As List
	Private listNumber As List
	Private listEnName As List
	Private list2Page As List
 
	Private sql2 As SQL
	Private rs2  As ResultSet

	Private Recycler As AX_RecyclerView

	Private p_loading As Panel
	Private lab_dl As Label
	
	Private lan2FaEn As String

	
	
	Dim iscrol As Int
	Dim boolASc As Boolean
 
	Dim labAS As Label
	Dim labAP As Label
	Dim labAM As Label
	
	Private panScr		 As Panel
	Private timerSv As Timer

End Sub

Public Sub Initialize
End Sub

Public Sub IsJump
	
	Try
   		recBook.setPositionD(recBook.Position)
 	Catch
		Log(LastException)
	End Try
	
	Try
		If isPlaying Then
			L_Play.Text=Chr(0xE034)
		Else
			L_Play.Text = Chr(0xE037)
		End If
		recBook.Play_Text = L_Play.Text
	Catch
		Log(LastException)
	End Try
 
End Sub

Public Sub stopScroll
	Try
		recBook.stopScroll
		changeLS
		timerSv.Enabled = False
 	Catch
		Log(LastException)
	End Try
End Sub
      
Public Sub onCreateView (Parent As Panel)
 	
	content = Parent
	content.Color = 0xFFFBFDFF
	
	lan2FaEn = (func.readNIS("lan2FaEn",1))

	Dim l2n As Label
	l2n.Initialize("")
	content.AddView(l2n,0,50%y-30dip,100%x,60dip)
	l2n.Typeface = Typeface.CreateNew(Typeface.LoadFromAssets(func.font3),Typeface.STYLE_BOLD)
	l2n.Text=func.gland(54)
	l2n.Gravity=Bit.Or(Gravity.CENTER,Gravity.CENTER_VERTICAL)
	l2n.textColor = Colors.Black
	l2n.TextSize=14
	l2n.Visible = True

	Sleep(5)
	addView
	l2n.Visible = False
   	
	speedSound = 1
	ime.Initialize("ime")
 		
	timerSpeed.Initialize("timerSpeed",2000)
	timerSpeed.Enabled = False

	Bool_BackgroundNeshan = False
	Bool_Night     = False
	Bool_Lock      = False
	BoolSearch     = False
	speedSound = 1
	BoolseClick     = False
	Boolpavar     = False

	iscrol = 0
	boolASc = False
	timerSv.Initialize("timerSv",3000)
	timerSv.Enabled = False

	If sooreh_Last_Neshan = 4 Or func.readPFM("typesSerchBk") = 1 Then
		searchBox(False,func.readPFM("txtSearchbd"))
		searchClick(False)
	End If
  
	changeBack(True)
	
	If func.readPFM("playQuranN3") = 1 Then
		func.savePFM("playQuranN3",-1)
		addSub4 
	End If

End Sub

Private Sub addSub4 

	Dim ii As Int = func.readNIS("jumpDeepQuran",1)
	JumpRecycler(ii)
	recBook.iPlay = ii
	
End Sub

Sub addView
	
	
	ah.Initialize2("ah",content,85%x,ah.GRAVITY_RIGHT)
	ah.NavigationPanel.Color=0x00F9F9F9
	ah.SetEdgeSize(ah.GRAVITY_RIGHT,ah.GetEdgeSize(ah.GRAVITY_RIGHT)*3)

	Slide_Menu
	
	Dim pnl As Panel
	pnl.Initialize("")
	ah.ContentPanel.AddView(pnl,0,0,100%x,100%y)

	pnl.LoadLayout("matnbooklayout")
	
	p_loading.Visible = False
	Private li3 As LoadingIndicatorView
	li3.Initialize(0)
	p_loading.AddView(li3,27%x,2.5dip,40%x,40dip)
	li3.IndicatorColor=0xFF4C9A7B

 	sooreh_Last_Neshan = func.readPFM("sooreh_Last_NeshanBook")
	
	lab_page.Text = func.gland(121)
	func.MinimomFontLabel(lab_page ,12)
	lab_page.Typeface = Typeface.LoadFromAssets(func.font3)
	
	lab_page2.Text = "0"
	func.MinimomFontLabel(lab_page2 ,12)
	lab_page2.Typeface = Typeface.LoadFromAssets(func.font3)

	p_Page.Elevation = 1dip
	
	
	L_Name.Text = func.readPFM("NameBook")
	func.MinimomFontLabel(L_Name ,14)
	L_Name.Typeface = Typeface.CreateNew(Typeface.LoadFromAssets(func.font3),Typeface.STYLE_BOLD)
	
	Dim bookDBPAE As String
	
	If lan2FaEn = 1 Then
		bookDBPAE = "book.db"
	Else If lan2FaEn = 3 Then
		bookDBPAE = "book_eng.db"
	Else If lan2FaEn = 2 Then
		bookDBPAE = "book_arabi.db"
	Else
		bookDBPAE = "book.db"
	End If

	If sql.IsInitialized=False Then
		sql.Initialize(File.DirInternal,bookDBPAE,True)
	End If
	
	If sql3.IsInitialized=False Then
		sql3.Initialize(File.DirInternal,"quransooreh.db",True)
	End If
	
	Dim hag As Int
	
	Try
		
		Log(func.readPFM("ennameBook"))
		Cursor = sql3.ExecQuery("SELECT hagm FROM book where enname = '"&func.readPFM("ennameBook")&"' and lang = '"&lan2FaEn&"' ")
		Cursor.Position = 0

		hag = Cursor.GetString("hagm")
		Log(hag)

		If hag = 0 Then
			func.savePFM("dlBookH",-1)
		Else
			func.savePFM("dlBookH",25)
		End If
 
	Catch
		Log(LastException)
		
		func.savePFM("dlBookH",-1)

	End Try
 

	list_aye.Initialize

	recBook.Initialize(Me,"click")
	recBook.addParent(pnl,P_Bala.Top+P_Bala.Height,P_Play.Height)
	slideSpeed
	
	P_Play.BringToFront
	lab_exit.BringToFront
	
	
	func.SetRipple(L_Play		,0xFF4C9A7B,0xFF0A7048,1000)
	func.SetRipple(L_Speed		,Colors.Transparent,0XAAEEEEEE,16)
	func.SetRipple(L_Lock		,Colors.Transparent,0XAAEEEEEE,16)
	func.SetRipple(L_Search		,Colors.Transparent,0XAAEEEEEE,16)
	func.SetRipple(L_Background,Colors.Transparent,0XAAEEEEEE,16)
	func.SetRipple(L_Plus,Colors.Transparent,0XAAEEEEEE,16)
	func.SetRipple(L_Mine,Colors.Transparent,0XAAEEEEEE,16)
	
	func.SetRipple(Im_BoroAyeh ,0x337FD3B1,0x884C9A7B,16)
	func.SetRipple(Im_Set      ,0x337FD3B1,0x884C9A7B,16)
	func.SetRipple(L_Zoom      ,0x337FD3B1,0x884C9A7B,16)
	func.SetRipple(Im_BoroAyeh2      ,0x337FD3B1,0x884C9A7B,16)
 	
	Lb_kol.Padding = Array As Int (0,0,10dip,5dip)
	Lb_monde.Padding = Array As Int (10dip,0,0,5dip)
  	
	panScr.BringToFront
	L_Background.Text = Chr(0xF103)
	func.MinimomFontLabel(labAP		 ,26)
	func.MinimomFontLabel(labAM		 ,26)
	func.SetRipple(labAP	     ,Colors.Transparent,0XAAEEEEEE,16)
	func.SetRipple(labAM	     ,Colors.Transparent,0XAAEEEEEE,16)

	func.MinimomFontLabel(L_Zoom		 ,26)
	func.MinimomFontLabel(Im_BoroAyeh		 ,26)
	func.MinimomFontLabel(Im_Set		 ,26)
	func.MinimomFontLabel(Im_BoroAyeh2		 ,26)

	func.MinimomFontLabel(L_Play		 ,26)
	func.MinimomFontLabel(L_Speed,15)
	func.MinimomFontLabel(L_Lock		 ,26)
	func.MinimomFontLabel(L_Search		 ,26)
	func.MinimomFontLabel(L_Background   ,26)
	func.MinimomFontLabel(L_Plus   ,26)
	func.MinimomFontLabel(L_Mine   ,26)
	func.MinimomFontLabel(lab_exit       ,23)
	func.MinimomFontLabel(lab_dl ,26)

	L_Plus.Text = ""
	L_Mine.Text = ""
	
	Dim bd As BitmapDrawable
	bd.Initialize(LoadBitmap(File.DirAssets, "mosbat10.png"))
	bd.Gravity = Gravity.FILL
	L_Plus.Background = bd
	
	Dim bd As BitmapDrawable
	bd.Initialize(LoadBitmap(File.DirAssets, "manfi10.png"))
	bd.Gravity = Gravity.FILL
	L_Mine.Background = bd

	func.SetRipple(lab_exit,0xFF4C9A7B,0x884C9A7B,16)
	func.ChangeColorSeekbar(Seek_Play,0xFF4C9A7B,0xAA4C9A7B)
  	
	timerofline.Initialize("timerofline", 1000)
	timerofline.Enabled=True
  	
	L_Speed.Typeface = Typeface.CreateNew(Typeface.LoadFromAssets(func.font3),Typeface.STYLE_BOLD)
 	Lb_kol.Typeface = Typeface.LoadFromAssets(func.font3)
	Lb_monde.Typeface = Typeface.LoadFromAssets(func.font3)

	
	If File.Exists(File.DirInternal,"abtahi/Book/"&recBook.idSure&"/1.mp3") Then
		lab_dl.Typeface = Typeface.MATERIALICONS
		lab_dl.TextColor = 0xFF6D6D6E
		lab_dl.Text = Chr(0xE5CA)
	Else
		lab_dl.Typeface = Typeface.FONTAWESOME
		lab_dl.TextColor = 0xffc2c2c3
		lab_dl.Text = Chr(0xF0ED)
	End If

End Sub

Sub p_loading_Touch (Action As Int, X As Float, Y As Float)
End Sub

Sub slideSpeed
	
	panSpeed.Initialize("")
	ah.ContentPanel.AddView(panSpeed,0,0,15%x,45dip)
	func.color_border(panSpeed,Colors.White,0)
	panSpeed.Visible = False
	
	Dim top As Int = 5dip

	For i = 0 To 6
		
		Dim lab As Label
		lab.Initialize("labSpeed")
		panSpeed.AddView(lab,2dip,top,15%x-4dip,45dip)
		lab.Typeface = Typeface.CreateNew(Typeface.LoadFromAssets(func.font3),Typeface.STYLE_BOLD)
	 
		 
		Select i
			Case 6
				lab.Text="0.75X"
				lab.Tag = 0.75
				
			Case 5
				lab.Text="1X"
				lab.Tag = 1
				
			Case 4
				lab.Text="1.15X"
				lab.Tag = 1.125
				
			Case 3
				lab.Text="1.25X"
				lab.Tag = 1.25
				
			Case 2
				lab.Text="1.5X"
				lab.Tag = 1.5
				
			Case 1
				lab.Text="1.75X"
				lab.Tag = 1.75
				
			Case 0
				lab.Text="2X"
				lab.Tag = 2
				
		End Select
 
		lab.Gravity=Bit.Or(Gravity.CENTER,Gravity.CENTER_VERTICAL)
		lab.textColor = 0xFFC3C3C2
		lab.TextSize=14
	 
		top = top + 50dip
		
	Next
	
	top = top
	panSpeed.Height = top
	panSpeed.Top = P_Play.top - panSpeed.Height
	 
	
End Sub


Sub Slide_Menu
	
	Dim P_Menu As Panel
 
	P_Menu.Initialize("p_menu")
	ah.NavigationPanel.AddView(P_Menu,-15%x,0,100%x,100%y)
	func.color_border(P_Menu,Colors.White,30dip)
	P_Menu.Elevation=20dip
    
	Dim lb_item As Label
	lb_item.Initialize("lb_item")
	P_Menu.AddView(lb_item,16%x,2%y,83%x,35dip)
	lb_item.Text=func.gland(77)
 	lb_item.TextColor=Colors.Black
	lb_item.Gravity=Bit.Or(Gravity.CENTER_VERTICAL,Gravity.CENTER)
	lb_item.Typeface=Typeface.CreateNew(Typeface.LoadFromAssets(func.font3),Typeface.STYLE_BOLD)
	func.MinimomFontLabel(lb_item,14)

	If sql2.IsInitialized=False Then
		sql2.Initialize(File.DirInternal,"fav.db",True)
	End If

	listId.Initialize
	listPosition.Initialize
	listName.Initialize
	listMattn.Initialize
	listNumber.Initialize
	listEnName.Initialize
	list2Page.Initialize
  	
	P_Menu.LoadLayout("recall")
	
	Recycler.Left   = 15%x
	Recycler.Top    = lb_item.Top+lb_item.Height+1%y
	Recycler.Width  = 85%x
	Recycler.Height = P_Menu.Height-(lb_item.Top+lb_item.Height+2%y)
	
	Recycler.SetRecyclerViewStyle("VerticalScrollbarRecyclerView")
	Recycler.ScrollSettings.ScrollBarSize=5dip
	Recycler.ScrollSettings.VerticalFadingEdgeEnabled=True
	Recycler.Adapter = Recycler.DefaultAdapter
	 
	rs2 = sql2.ExecQuery2("SELECT id,name,number,position,mattn,enname,page FROM favebook where enname=? and lang = ? order by id desc",Array As String(func.readPFM("ennameBook"),lan2FaEn))
 	
	Do While rs2.NextRow
 
		listId.add(rs2.GetInt("id"))
		listPosition.add(rs2.GetString("position"))
		listName.add(rs2.GetString("name"))
		listMattn.add(rs2.GetString("mattn"))
		listNumber.add(rs2.GetString("number"))
		listEnName.add(rs2.GetString("enname"))
		list2Page.add(rs2.GetString("page"))
  
	Loop : rs2.Close
 	
End Sub
 
Private Sub ah_DrawerOpened (DrawerGravity As Int)
	opebDev
End Sub
 
Private Sub Im_BoroAyeh2_Click
	opebDev
	ah.OpenDrawer2(ah.GRAVITY_RIGHT)
End Sub
 
Sub opebDev
	
	listId.Clear
	listPosition.Clear
	listName.Clear
	listMattn.Clear
	listNumber.Clear
	listEnName.Clear
	list2Page.Clear
 
	rs2 = sql2.ExecQuery2("SELECT id,name,number,position,mattn,enname,page FROM favebook where enname=? and lang = ? order by id desc",Array As String(func.readPFM("ennameBook"),lan2FaEn))
 	
	Do While rs2.NextRow
 
		listId.add(rs2.GetInt("id"))
		listPosition.add(rs2.GetString("position"))
		listName.add(rs2.GetString("name"))
		listMattn.add(rs2.GetString("mattn"))
		listNumber.add(rs2.GetString("number"))
		listEnName.add(rs2.GetString("enname"))
		list2Page.add(rs2.GetString("page"))
  
	Loop : rs2.Close
	
	CallSubDelayed(Me,"ref_rec1")

End Sub

Private Sub RV_GetItemCount As Int
	Return list2Page.Size
End Sub
 
Private Sub RV_onCreateViewHolder (Parent As Panel,ViewType As Int)
 
	Dim pan As Panel
	pan.Initialize("pans")
	Parent.AddView(pan,2%x,5dip,81%x,50dip)

	Dim lab_title As Label
	lab_title.Initialize("")
	pan.AddView(lab_title,45dip,5dip,79%x-45dip,40dip)
 	
	Dim labs As Label
	labs.Initialize("l_Delete")
	pan.AddView(labs,5dip,5dip,40dip,40dip)

End Sub

Private Sub RV_onBindViewHolder (Parent As Panel,Position As Int)

	Dim pan As Panel = Parent.GetView(0)
	Dim lab_title As Label = pan.GetView(0)
	Dim labs As Label = pan.GetView(1)
  	
	func.SetRipple(pan,Colors.White,0XAAEEEEEE,20)
	pan.Elevation = 2dip
	pan.Tag = Position

 	Dim textArabi As String
	textArabi= (listName.Size-(Position)) &"- "&func.gland(115)&" -"&listName.Get(Position)&" "&func.gland(121)&" ,"&list2Page.Get(Position)&"_ "&listMattn.Get(Position)

	func.setEllipsize(lab_title,"END")
	lab_title.Text = textArabi
	lab_title.Typeface= Typeface.LoadFromAssets(func.font3)
	lab_title.TextSize=14
	lab_title.TextColor=Colors.Black
	lab_title.Gravity=Bit.Or(Gravity.RIGHT,Gravity.CENTER_VERTICAL)
   
	labs.Text = Chr(0xE872)
	labs.Typeface= Typeface.MATERIALICONS
	labs.TextSize=25
	labs.TextColor=0XFF4C9A7B
	labs.Gravity=Bit.Or(Gravity.CENTER,Gravity.CENTER_VERTICAL)
	func.color_border(labs,0X337FD3B1,20)
	labs.Tag = Position
	
	pan.Height = lab_title.Top+lab_title.Height+5dip
 	
	Parent.Height=pan.Top+pan.Height+8dip

End Sub

Sub pans_Click
	
	ah.CloseDrawer2(Gravity.RIGHT)
	
 	Dim ll As Panel = Sender
	Dim ii As Int = ll.Tag
 	 
	JumpRecycler(listPosition.Get(ii))
	
End Sub
 
Sub l_Delete_Click
	Dim ll As Label = Sender
	Dim ii As Int = ll.Tag

	sql2.ExecNonQuery("DELETE FROM favebook where id = '"&listId.Get(ii)&"'" )
  
	listId.Clear
	listPosition.Clear
	listName.Clear
	listMattn.Clear
	listNumber.Clear
	listEnName.Clear
	list2Page.Clear
	
	rs2 = sql2.ExecQuery2("SELECT id,name,number,position,mattn,enname,page FROM favebook where enname=? and lang = ? order by id desc",Array As String(func.readPFM("ennameBook"),lan2FaEn))
	
	Do While rs2.NextRow
	
		listId.add(rs2.GetInt("id"))
		listPosition.add(rs2.GetString("position"))
		listName.add(rs2.GetString("name"))
		listMattn.add(rs2.GetString("mattn"))
		listNumber.add(rs2.GetString("number"))
		listEnName.add(rs2.GetString("enname"))
		list2Page.add(rs2.GetString("page"))
		
	Loop : rs2.Close
  	
	CallSubDelayed(Me,"ref_rec1")

	CallSubDelayed(Me,"ref")

	func.ToastSUCCESS(func.gland(156))
	
End Sub
 
Sub ref_rec1
	Recycler.Adapter2.NotifyDataSetChanged
End Sub
 
Private Sub ref
	recBook.ref_rec
End Sub
 
Sub P_Play_Touch (Action As Int, X As Float, Y As Float)
	
End Sub

Private Sub Im_Set_Click
 
	func.savePFM("distancLine1",func.readPFM("distancLine"))
 	func.savePFM("setting","Book")
 	CallSub2(actBook,"show_hide_frag",func.listInitialize(4,Me,"changeHide"))
	
 End Sub

Private Sub changeHide_color
	recBook.changeColor
	changeBack(True)

End Sub
 
Public Sub setPage(page As Int)
	Try
		lab_page2.Text =recBook.list_page.Get(page)
	Catch
		Log(LastException)
	End Try
End Sub

#Region Paresh
 
Private Sub Im_BoroAyeh_Click

	Bool_BackgroundNeshan = True
	
	If P_BackgroundNeshan.IsInitialized Then P_BackgroundNeshan.RemoveView
	
	P_BackgroundNeshan.Initialize("P_BackgroundNeshan")
 	
	Dim P_back    As Panel
	Dim L_Confirm As Label
	Dim L_Cancel  As Label


	P_back.Initialize("")
	L_BalaAye.Initialize("")
	Ed_Aye.Initialize("Ed_Aye")
	Seek_Aye.Initialize("Seek_Aye")
	L_Confirm.Initialize("L_Confirm")
	L_Cancel.Initialize("L_Cancel")


	content.addview(P_BackgroundNeshan,0,0,100%x,100%y)
	P_BackgroundNeshan.AddView(P_back,10%x,25%y,80%x,30dip)
	P_back.AddView(L_BalaAye,0,0,80%x,40dip)
	P_back.AddView(Ed_Aye,32.5%x,L_BalaAye.Top+L_BalaAye.Height+1%y,15%x,60dip)
	P_back.AddView(Seek_Aye,5%x,Ed_Aye.Top+Ed_Aye.Height+1%y,70%x,35dip)
	P_back.AddView(L_Confirm,3%x,Seek_Aye.Top+Seek_Aye.Height+1%y,15%x,35dip)
	P_back.AddView(L_Cancel,20%x,Seek_Aye.Top+Seek_Aye.Height+1%y,15%x,35dip)

	P_back.Height = L_Cancel.Top+L_Cancel.Height+1%y

	P_BackgroundNeshan.Color = 0xCCEEEEEE
 	
	P_back.Color = Colors.White
	
  
	Seek_Aye.Max =  recBook.numAye1
	numAye =  recBook.numAye
  
	listPage = recBook.list_page
	
	Dim kkk As Int = recBook.CenterItemPosition
	Seek_Aye.Value = kkk
 
	func.ChangeColorSeekbar(Seek_Aye,Colors.Black,Colors.Black)
 
	L_BalaAye.Text=func.gland(157)&"  " & "("&kkk&"/" & numAye &")"
	L_BalaAye.TextColor = Colors.White
	L_BalaAye.Color = 0xFF4C9A7B
	L_BalaAye.Typeface = Typeface.LoadFromAssets(func.font3)
	L_BalaAye.Gravity = Bit.Or(Gravity.CENTER,Gravity.CENTER_VERTICAL)
	L_BalaAye.TextSize = 14


	Ed_Aye.Typeface= Typeface.LoadFromAssets(func.font3)
	Ed_Aye.Gravity=Bit.Or(Gravity.LEFT,Gravity.CENTER)
	Ed_Aye.Text=""
	Ed_Aye.Hint="0"
	Ed_Aye.HintColor=0xFF7C8336
	Ed_Aye.Wrap=False
	Ed_Aye.SingleLine=True
	Ed_Aye.RequestFocus
	Ed_Aye.ForceDoneButton=False
	Ed_Aye.TextColor= Colors.Black
	func.color_border(Ed_Aye,0x337FD3B1,8)
	Ed_Aye.TextSize=14
 
	Ed_Aye.InputType=Ed_Aye.INPUT_TYPE_DECIMAL_NUMBERS
	ime.SetLengthFilter(Ed_Aye,3)
	ime.SetCustomFilter(Ed_Aye, Ed_Aye.INPUT_TYPE_DECIMAL_NUMBERS, "0123456789")

 
	L_Confirm.Text = func.gland(61)
	L_Confirm.TextColor = Colors.Black
	L_Confirm.Color = Colors.Transparent
	L_Confirm.Typeface = Typeface.LoadFromAssets(func.font3)
	L_Confirm.Gravity = Bit.Or(Gravity.CENTER,Gravity.CENTER_VERTICAL)
 	func.SetRipple(L_Confirm      ,0x337FD3B1,0x884C9A7B,16)

	L_Cancel.Text = func.gland(29)
	L_Cancel.TextColor = Colors.Black
	L_Cancel.Color = Colors.Transparent
	L_Cancel.Typeface = Typeface.LoadFromAssets(func.font3)
	L_Cancel.Gravity = Bit.Or(Gravity.CENTER,Gravity.CENTER_VERTICAL)
 	func.SetRipple(L_Cancel      ,0x337FD3B1,0x884C9A7B,16)
	
	func.MinimomFontLabel(L_Confirm,14)
	func.MinimomFontLabel(L_Cancel,14)
	
	 CallSubDelayed2(Me,"ShowKeyBoard",Ed_Aye)
End Sub

Sub L_Confirm_Click

	Try
		
		Dim kj As Int = func.ENumbers(Ed_Aye.Text)
 		
 		If listPage.IndexOf(kj)>(numAye) Then
			func.ToastERROR(func.gland(158))
		Else
			ime.HideKeyboard
			If P_BackgroundNeshan.IsInitialized Then P_BackgroundNeshan.RemoveView

			Bool_BackgroundNeshan = False
 			
			JumpRecycler(listPage.IndexOf(kj))
			 
		End If
	
	Catch
		func.ToastERROR(func.gland(158))
		Log(LastException)
	End Try
End Sub

Sub L_Cancel_Click
	
	Bool_BackgroundNeshan = False

	ime.HideKeyboard
	If P_BackgroundNeshan.IsInitialized Then P_BackgroundNeshan.RemoveView

End Sub

Sub P_BackgroundNeshan_Touch (Action As Int, X As Float, Y As Float)
	
End Sub

Sub Seek_Aye_ValueChanged (Value As Int, UserChanged As Boolean)
	If UserChanged Then
		Ed_Aye.Text=func.ENumbers(Value)
		Ed_Aye.SelectionStart=Ed_Aye.Text.Length

		L_BalaAye.Text=func.gland(157)&"  " & "("& Value&"/"& numAye &")"
	End If
End Sub

Sub Ed_Aye_TextChanged (Old As String, New As String)
	
	If New<>"" Then
		New=func.ENumbers(New)
		Seek_Aye.Value=New
		If New>numAye Then
			Ed_Aye.TextColor=Colors.Red
		Else
			Ed_Aye.TextColor=Colors.Black
		End If
		L_BalaAye.Text=func.gland(157)&"  " & "("& New&"/"& numAye &")"
	End If
	
End Sub
 
Sub ShowKeyBoard(ed As ACEditText)
	ime.ShowKeyboard(ed)
End Sub
   
Sub JumpRecycler(Position1 As Int)
	recBook.JumpRecycler(Position1)
End Sub
  
#End Region

#Region search

Private Sub searchBox(bill As Boolean,tec As String)
	
	BoolSearch = True
	
	If boxSearch.IsInitialized Then boxSearch.RemoveView
	If box2Search.IsInitialized Then box2Search.RemoveView
	
	boxSearch.Initialize("boxSearch")
	content.AddView(boxSearch,6%x+70dip,0,98%x-(6%x+70dip),P_Bala.Height-5dip)
	boxSearch.Color = 0xFF4C9A7B
	
	box2Search.Initialize("box2Search")
	content.AddView(box2Search,0,0,4.5%x+70dip,35dip)
	box2Search.Color = 0xFF4C9A7B

	
	
	Dim lb_Search As Label
	Dim lb_Up As Label
	Dim lb_Dw As Label
 	
	ed_Search.Initialize("ed_Search")
	boxSearch.AddView(ed_Search,0,6dip,98%x-(6%x+70dip),boxSearch.Height-6dip)
 
	ed_Search.hint = func.gland(64)
	ed_Search.SingleLine=True
	ed_Search.HintColor=0xFF7C8336
	ed_Search.Typeface= Typeface.LoadFromAssets(func.font3)
	ed_Search.Gravity=Bit.Or(Gravity.RIGHT,Gravity.CENTER)
	ed_Search.Text=tec
	ed_Search.RequestFocus
	ed_Search.TextColor= 0xFF7C8336
	ed_Search.TextSize=14
	
	ed_Search.Padding=Array As Int(3%y,0.3%y,10dip,0.3%y)
 
	func.color_border(ed_Search,Colors.White,16)
	
	lb_Search.Initialize("lb_Search")
	boxSearch.AddView(lb_Search,5dip,6dip,10%x,boxSearch.Height-6dip)
	lb_Search.Typeface = Typeface.MATERIALICONS
	lb_Search.Text = Chr(0xE8B6)
	lb_Search.Gravity = Bit.Or(Gravity.CENTER,Gravity.CENTER_VERTICAL)
	func.MinimomFontLabel(lb_Search,25)
	lb_Search.TextColor = 0xFF7C8336
	lb_Search.Color = Colors.Transparent
 
	func.color_border(lb_Search,0x327FD3B1,15dip)

	box2Search.top = 2%y
 
	lb_Up.Initialize("lb_Up")
	box2Search.AddView(lb_Up,4.5%x+35dip,0,35dip,35dip)
	lb_Up.Typeface = Typeface.MATERIALICONS
	lb_Up.Text = Chr(0xE316)
	lb_Up.Gravity = Bit.Or(Gravity.CENTER,Gravity.CENTER_VERTICAL)
	lb_Up.TextSize = 25
	lb_Up.TextColor = Colors.White
	lb_Up.Color = Colors.Transparent
	func.SetRipple(lb_Up,0x337FD3B1,0x884C9A7B,16)

 
	li4.Initialize("li4")
	box2Search.AddView(li4,3%x,0,35dip,35dip)
	li4.CircleWidth = 5
	li4.ShadowColor = Colors.Transparent
	li4.CircleColor =  Colors.Red
	li4.FadeInTime = 10
	li4.FadeOutTime = 3000
	li4.BringToFront
	
	li4.Visible = False

	lb_Dw.Initialize("lb_Dw")
	box2Search.AddView(lb_Dw,3%x,0,35dip,35dip)
	lb_Dw.Typeface = Typeface.MATERIALICONS
	lb_Dw.Text = Chr(0xE313)
	lb_Dw.Gravity = Bit.Or(Gravity.CENTER,Gravity.CENTER_VERTICAL)
	lb_Dw.TextSize = 25
	lb_Dw.TextColor = Colors.White
	lb_Dw.Color = Colors.Transparent
	func.SetRipple(lb_Dw,0x337FD3B1,0x884C9A7B,16)

	If bill Then CallSubDelayed2(Me,"ShowKeyBoard",ed_Search)
 
	ime.AddHandleActionEvent(ed_Search)

	lab_exit.BringToFront
	 
	
End Sub

Private Sub hideKey
	ime.HideKeyboard
End Sub

Private Sub boxSearch_Touch (Action As Int, X As Float, Y As Float)
	
End Sub

Private Sub ime_HandleAction As Boolean
	hideKey
	lb_Search_Click
	Return True
End Sub

Private Sub lb_Search_Click
	searchClick(True)
End Sub

Private Sub lb_Up_Click
	hideKey
	
	If list_aye.Size > 0 Then
  		
		If iSearchp > 0 Then
			iSearchp = iSearchp - 1
		Else
			If iSearchp = 0 Then Return
			iSearchp = list_aye.Size - 1
		End If
		
		jumpSearch(list_aye.Get(iSearchp))

	Else
		
		searchClick(True)
		
	End If
	 
	
End Sub

Private Sub lb_Dw_Click
	
	hideKey

	If list_aye.Size > 0 Then
		
		If iSearchp < list_aye.Size - 1 Then
			iSearchp = iSearchp + 1
		Else
			If iSearchp = list_aye.Size - 1 Then Return
			iSearchp = 0
		End If
		
		jumpSearch(list_aye.Get(iSearchp))

	Else
		
		searchClick(True)
		
	End If
 	
	
End Sub

Sub searchClick(bill As Boolean)
     
	li4.Visible = True
	li4.start
	
	list_aye.Clear
  	
	If ed_Search.Text.Length > 0 Then
  
		Dim sd As String= func.FToF1(ed_Search.Text)
  	 
    
		Cursor = sql.ExecQuery("SELECT id FROM '"&recBook.ennameBook&"' where (farsi2 LIKE '%"&sd&"%') order by id asc")
 
		If Cursor.RowCount > 0 Then
  			
			recBook.txtSearch = sd
			
			Do While Cursor.NextRow
				list_aye.add(Cursor.GetInt("id"))
			Loop : Cursor.Close
			
			
			If bill Then
				iSearchp = 0
			Else
				Dim iii As Int = func.readPFM("searchID")
				iSearchp = list_aye.IndexOf(iii)
			End If
			
 			
			hideKey
			CallSubDelayed(Me,"ref_rec")

			
			
			If bill Then jumpSearch(list_aye.Get(0))
			
		Else
			func.ToastERROR(func.gland(86))
		End If
    	
	Else
		func.ToastERROR(func.gland(78))
	End If
 	
 	
	li4.Visible = False
	li4.stop

End Sub
 

Private Sub jumpSearch(pos As Int)
	JumpRecycler(pos-1)
End Sub

#End Region

 #Region click_aye

Sub click_seClick(ii As String)
	
	BoolseClick = True
	
	iPotion = ii
	
	If pTarc.IsInitialized Then pTarc.RemoveView
 	 
	pTarc.Initialize("pTarc")
	content.AddView(pTarc,0,100%y,100%x,100%y)
	pTarc.Color = 0xCCEEEEEE
	pTarc.Elevation = 10dip
	
	pTarc.Visible = False
			
	pTarc.LoadLayout("seclicks_book2")

	l_copy.Typeface=Typeface.LoadFromAssets("fonticon.otf")
	l_neshan.Typeface=Typeface.FONTAWESOME
	l_share.Typeface=Typeface.LoadFromAssets("fonticon.otf")
	l_bardasht.Typeface=Typeface.LoadFromAssets("fonticon.otf")
	l_pdf.Typeface=Typeface.LoadFromAssets("fonticon.otf")

	l_copy.Text = Chr(0xf0c5)
 	l_share.Text = Chr(0xf1e0)
	l_bardasht.Text = Chr(0xf02d)
	l_pdf.Text = Chr(0xf1c1)

	Label7.Text = func.gland(11)
 	Label5.Text = func.gland(89)
	l_pavar1.Text = func.gland(90)
	l_bardasht1.Text = func.gland(143)
	Label2.Text = func.gland(272)

	Label7.Typeface = Typeface.CreateNew(Typeface.LoadFromAssets(func.font3),Typeface.STYLE_BOLD)
	l_neshan1.Typeface = Typeface.CreateNew(Typeface.LoadFromAssets(func.font3),Typeface.STYLE_BOLD)
	Label5.Typeface = Typeface.CreateNew(Typeface.LoadFromAssets(func.font3),Typeface.STYLE_BOLD)
	l_pavar1.Typeface = Typeface.CreateNew(Typeface.LoadFromAssets(func.font3),Typeface.STYLE_BOLD)
	l_bardasht1.Typeface = Typeface.CreateNew(Typeface.LoadFromAssets(func.font3),Typeface.STYLE_BOLD)
	Label2.Typeface = Typeface.LoadFromAssets(func.font3)

	func.SetRipple(p_pavar  ,Colors.Transparent,0XAAEEEEEE,16)
	func.SetRipple(p_copy  ,Colors.Transparent,0XAAEEEEEE,16)
	func.SetRipple(p_neshan  ,Colors.Transparent,0XAAEEEEEE,16)
	func.SetRipple(p_share 	 ,Colors.Transparent,0XAAEEEEEE,16)
	func.SetRipple(p_bardasht,Colors.Transparent,0XAAEEEEEE,16)

	Dim lis As List = recBook.checkNeshan(ii)
	
	labShowA.Text = lis.Get(0)

	If lis.Get(1) > 0 Then
		l_neshan1.Text =  func.gland(97)
		l_neshan.Text = Chr(0xF02E)
	Else
		l_neshan1.Text = func.gland(98)
		l_neshan.Text = Chr(0xF097)
	End If
	
	labShowA.Typeface = Typeface.CreateNew(Typeface.LoadFromAssets(func.font3),Typeface.STYLE_BOLD)
 
	p_bardasht.Enabled = True
	l_bardasht1.TextColor = Colors.Black
	l_bardasht.TextColor = 0xFF4C9A7B

	pTarc.Visible = True
	pTarc.SetLayoutAnimated(300,0,0,100%x,100%y)


	Dim bill As Boolean = lis.Get(2)
	
	Dim bd As BitmapDrawable
	
	If bill Then
		l_pavar1.TextColor = Colors.Black
		bd.Initialize(LoadBitmap(File.DirAssets, "pavar.png"))

	Else
		l_pavar1.TextColor = Colors.Gray
		bd.Initialize(LoadBitmap(File.DirAssets, "pavar1.png"))

	End If
	
	bd.Gravity = Gravity.FILL
 	l_pavar.Background = bd

End Sub

Sub pTarc_Touch (Action As Int, X As Float, Y As Float)
	pTarc.Visible = False
	BoolseClick = False

End Sub


Private Sub p_pdf_Click
	downloadSooreh
End Sub

Private Sub p_share_Click
	recBook.shareQuran(iPotion)
End Sub

Private Sub p_neshan_Click
	recBook.addNeshan(iPotion)
	BoolseClick = False

	pTarc.Visible = False
End Sub
  

Private Sub p_copy_Click
	recBook.copys(iPotion)
 	func.ToastERROR(func.gland(88))
End Sub

Private Sub p_bardasht_Click
	recBook.Im_Bardasht(iPotion)
End Sub


Private Sub p_pavar_Click
	Dim bill As Boolean = recBook.pavar(iPotion)
	
	If Not(bill) Then
		func.ToastERROR(func.gland(159))
	Else
		pavarsAdd
	End If
End Sub

#End Region

#Region pavars

Sub pavarsAdd
	
	Boolpavar = True
	
	If pTarp.IsInitialized Then pTarp.RemoveView
 	 
	pTarp.Initialize("pTarp")
	content.AddView(pTarp,0,100%y,100%x,100%y)
	pTarp.Color = 0xCCEEEEEE
	pTarp.Elevation = 15dip
	
	pTarp.Visible = False
			
	pTarp.LoadLayout("pavarBookLayout")

 	
	nameBookPV = func.readPFM("NameBook")
	idPagePV = func.readPFM("idPageBook")
	idSurePV = func.readPFM("idBook")
 
	L_NamePV.Text = func.gland(160)&" " & nameBookPV &" "&func.gland(121)&" "&idPagePV
	L_NamePV.Typeface = Typeface.CreateNew(Typeface.LoadFromAssets(func.font3),Typeface.STYLE_BOLD)

	func.SetRipple(L_SharePV	     ,Colors.Transparent,0XAAEEEEEE,16)
	func.SetRipple(L_PlusPV	     ,Colors.Transparent,0XAAEEEEEE,16)
	func.SetRipple(L_minePV		,Colors.Transparent,0XAAEEEEEE,16)
	func.SetRipple(L_BackgroundPV,Colors.Transparent,0XAAEEEEEE,16)
	
	func.MinimomFontLabel(L_SharePV,26)
	func.MinimomFontLabel(L_PlusPV		 ,26)
	func.MinimomFontLabel(L_minePV		 ,26)
	func.MinimomFontLabel(L_BackgroundPV   ,26)


	sv4.Initialize2(10000dip,"sv4")
	P_Bala6.AddView(sv4,0%x,L_NamePV.Top+L_NamePV.Height,94%x,75%y-(L_NamePV.Top+L_NamePV.Height+13%x+5dip))
	Dim r As Reflector
	r.Target = sv4
	r.RunMethod2("setVerticalScrollBarEnabled", True, "java.lang.boolean")
	r.RunMethod2("setOverScrollMode", 2, "java.lang.int" )
 	
	func.SetScrollbarColor(sv4)

	pTarp.Visible = True
	pTarp.SetLayoutAnimated(300,0,0,100%x,100%y)

	L_ShowMtn.Initialize("")
	sv4.Panel.AddView(L_ShowMtn,2%x,1%y,90%x,40dip)
	L_ShowMtn.Gravity=Bit.Or(Gravity.CENTER,Gravity.CENTER_VERTICAL)
	L_ShowMtn.Typeface= Typeface.LoadFromAssets(func.readPFM("fontFarsi"))

	If func.readPFM("sizeFarsi")<>"-1" Then
		L_ShowMtn.TextSize=func.readPFM("sizeFarsi")
		int_plus=func.readPFM("sizeFarsi")
	Else
		L_ShowMtn.TextSize=16
		int_plus=16
	End If

	Private rs As ResultSet

	Dim bardasht As String

	rs = sql.ExecQuery2("SELECT number,matn FROM pavaragh_book where book= ? and page=?",Array As String(idSurePV,idPagePV))

	Do While rs.NextRow
  		
		bardasht  = bardasht & CRLF & CRLF & rs.GetString("number") & ") " & rs.GetString("matn")
 		 
	Loop : rs.Close
	
	L_ShowMtn.Text = bardasht

	Dim su As StringUtils
	L_ShowMtn.Height=su.MeasureMultilineTextHeight(L_ShowMtn,L_ShowMtn.Text)

	sv4.Panel.Height = L_ShowMtn.top + L_ShowMtn.Height + 10dip

	changeBack(True)
	
End Sub

Sub pTarp_Touch (Action As Int, X As Float, Y As Float)
	pTarp.Visible = False
	Boolpavar = False

End Sub
 
Private Sub L_BackgroundPV_Click
	changeBack(False)
End Sub

Private Sub L_SharePV_Click
	
	Dim Smatn As String=  "( "&func.gland(356)&" )"
	func.TextShare(("‌"&CRLF&L_NamePV.Text&CRLF&L_ShowMtn.Text&CRLF&CRLF&Smatn))

End Sub

Private Sub L_MinePV_Click
	
	If int_plus<>14 Then
		int_plus=int_plus-1
		L_ShowMtn.TextSize=int_plus
 
		Dim su As StringUtils
		L_ShowMtn.Height=su.MeasureMultilineTextHeight(L_ShowMtn,L_ShowMtn.Text)
 		
		sv4.Panel.Height = L_ShowMtn.top + L_ShowMtn.Height + 10dip
		func.savePFM("sizeFarsi",int_plus)

	Else
	End If
End Sub

Private Sub L_PlusPV_Click
	If int_plus<>30 Then
		int_plus=int_plus+1
		L_ShowMtn.TextSize=int_plus
		Dim su As StringUtils
		
		L_ShowMtn.Height=su.MeasureMultilineTextHeight(L_ShowMtn,L_ShowMtn.Text)
 		
		sv4.Panel.Height = L_ShowMtn.top + L_ShowMtn.Height + 10dip
		func.savePFM("sizeFarsi",int_plus)

	Else
	End If
End Sub
 
#End Region


Public Sub isPlaying As Boolean
 	Try
 		If recBook.IsInitialized Then
			Return recBook.isPlaying
		End If
 	Catch
		Log(LastException)
	End Try
	Return False
End Sub
   
Private Sub L_Background_Click
	
	If boolASc Then
		boolASc = False
 		
		panScr.SetLayoutAnimated(500,panScr.Left,100%y,panScr.Width,panScr.Height)
		timerSv.Enabled = False
	Else
		timerSv.Enabled = True
		boolASc = True
 		
		panScr.SetLayoutAnimated(500,panScr.Left,P_Play.Top-15%x,panScr.Width,panScr.Height)
		
		If iscrol = 0 Then
			iscrol = 1
		End If
		
	End If
  	
	labAS.Text = iscrol
	recBook.scrols(iscrol)
	
	changeLS
End Sub
  
Sub changeLS
	
	If iscrol = 0 Then
		L_Background.TextColor = 0xFFC3C3C2
		func.SetRipple(L_Background	,Colors.Transparent,0XAAEEEEEE,16)
		
	Else
			
		func.SetRipple(L_Background	,0x884C9A7B,0x880D603E,16)
		If Not(Bool_Night) Then
			L_Background.TextColor = Colors.White
		End If

	End If
	
End Sub

Sub changeAlls
	
	If L_Lock.Text = Chr(0xF023) Then
		func.SetRipple(L_Lock	,0x884C9A7B,0x880D603E,16)
		If Not(Bool_Night) Then
			L_Lock.TextColor = Colors.White
		End If
	Else
		L_Lock.TextColor = 0xFFC3C3C2
		func.SetRipple(L_Lock	,Colors.Transparent,0XAAEEEEEE,16)
	End If
	changeLS
End Sub


Sub labAP_Click
	iscrol = iscrol + 1
	If Not(recBook.scrols(iscrol)) Then
		iscrol = iscrol - 1
	End If
	chtt
End Sub

Sub labAM_Click
	If iscrol < 1 Then Return
	iscrol = iscrol - 1
	If Not(recBook.scrols(iscrol)) Then
		iscrol = iscrol + 1
	End If
	chtt
End Sub

Sub timerSv_Tick
	
	timerSv.Enabled = False
	
	boolASc = False
	panScr.SetLayoutAnimated(500,panScr.Left,100%y,panScr.Width,panScr.Height)

End Sub
  
Sub chtt
	timerSv.Enabled = False
	timerSv.Enabled = True
	labAS.Text = iscrol
	changeLS
End Sub

Sub changeBack(bill As Boolean)
  	
	If bill Then
		If func.readPFM("Bool_Night") = -1 Then
			Bool_Night = True
		Else
			Bool_Night = False
		End If
	End If
  	 
	Log(Bool_Night)
		
	If Bool_Night=False Then
		
		Bool_Night = True
		func.savePFM("Bool_Night",1)

		recBook.changeBackground(0xFF3F473B)

		P_Play.Color = 0xFF323A2F
		panScr.Color = 0xFF323A2F
		Lb_monde.textColor = Colors.White
		Lb_kol.textColor = Colors.White

		'*************
		
		If Boolpavar Then
			func.SetRipple(L_BackgroundPV	,0x884C9A7B,0x880D603E,16)
			Bool_Night = True
			func.savePFM("Bool_Night",1)

			P_Bala6.color = 0xFF3F473B
			L_ShowMtn.TextColor = Colors.White
			L_NamePV.TextColor = Colors.White
  		
			P_PlayPV.Color = 0xFF323A2F
		End If
		
	Else
		
		Bool_Night = False
	
		func.savePFM("Bool_Night",-1)

		recBook.changeBackground(Colors.Transparent)

		P_Play.Color = Colors.White
		panScr.Color = Colors.White
		Lb_monde.textColor = Colors.Black
		Lb_kol.textColor = Colors.Black

		'**********
		
		If Boolpavar Then
			func.SetRipple(L_BackgroundPV	,Colors.Transparent,0XAAEEEEEE,16)
			Bool_Night = False
	
			func.savePFM("Bool_Night",-1)

			P_Bala6.color = 0xFFFBFDFF
			L_ShowMtn.TextColor = (Colors.Black)
			L_NamePV.TextColor = (Colors.Black)
 
			P_PlayPV.Color = 0xFFF7F7F7
		End If
		
	End If

	recBook.Bool_Night = Bool_Night

	CallSubDelayed(Me,"ref_rec")
     	
	changeAlls
	
End Sub


Private Sub L_Plus_Click
	recBook.plus_lick
End Sub

Private Sub L_Mine_Click
	recBook.mine_lick
End Sub
   
Private Sub L_Speed_Click

	If speedSound = 1 Then
		speedSound = 1.125
	Else If speedSound = 1.125 Then
		speedSound = 1.25
	Else If speedSound = 1.25 Then
		speedSound = 1.5
	Else If speedSound = 1.5 Then
		speedSound = 1.75
	Else If speedSound = 1.75 Then
		speedSound = 2
	Else If speedSound = 2 Then
		speedSound = 0.75
	Else If speedSound = 0.75 Then
		speedSound = 1
	End If
 
	addsSpeed

End Sub


Sub addsSpeed
	
	Try
		
		If pphon.SdkVersion >=23 Then
   
			If speedSound = 1 Then
				L_Speed.Text="1X"
			Else If speedSound = 1.125 Then
				L_Speed.Text="1.15X"
			Else If speedSound = 1.25 Then
				L_Speed.Text="1.25X"
			Else If speedSound = 1.5 Then
				L_Speed.Text="1.5X"
			Else If speedSound = 1.75 Then
				L_Speed.Text="1.75X"
			Else If speedSound = 2 Then
				L_Speed.Text="2X"
			Else If speedSound = 0.75 Then
				L_Speed.Text="0.75X"
			End If
			
			func.MinimomFontLabel(L_Speed,15)
			recBook.addSpeed(speedSound)

		Else
			func.ToastERROR(func.gland(87))
			
		End If

	Catch
		Log(LastException)
		
		speedSound = 1
		L_Speed.Text="1X"

	End Try
	
	panSpeed.SetVisibleAnimated(500,True)
	recSpeed
	timerSpeed.Enabled = False
	timerSpeed.Enabled = True

	
End Sub

Sub timerSpeed_Tick
	timerSpeed.Enabled = False
	panSpeed.SetVisibleAnimated(500,False)
End Sub

Sub labSpeed_Click
	
	Dim labSpeed As Label = Sender
	speedSound = labSpeed.Tag
	addsSpeed
	
End Sub

Sub recSpeed
	For Each v As View In panSpeed.GetAllViewsRecursive
		If v Is Label Then
			Dim lab As Label = v
			If lab.Tag<>Null Then
				Dim ss As String = lab.Tag
				If ss=speedSound Then
					func.color_border(lab,0x884C9A7B,4dip)
					lab.textColor = Colors.White
				Else
					lab.textColor = 0xFFC3C3C2
					lab.Color=Colors.Transparent
				End If
			End If
		End If
	Next

End Sub

  
Private Sub L_Zoom_Click

	P_Bala.SetVisibleAnimated(400,False)
	P_Play.SetVisibleAnimated(400,False)
	lab_exit.SetVisibleAnimated(400,True)

	boolASc = False
	panScr.SetLayoutAnimated(500,panScr.Left,100%y,panScr.Width,panScr.Height)

	recBook.LZoomClick
	
End Sub
 
Private Sub lab_exit_Click
	
	P_Bala.SetVisibleAnimated(400,True)
	P_Play.SetVisibleAnimated(400,True)
	lab_exit.SetVisibleAnimated(400,False)
 	
	recBook.panexitClick
 	
End Sub

 
Private Sub L_Lock_Click

	If L_Lock.Text = Chr(0xF13E) Then
		L_Lock.Text=Chr(0xF023)
		Bool_Lock = True
		
		Seek_Play.Enabled = False
		
		func.SetRipple(L_Lock	,0x884C9A7B,0x880D603E,16)
		If Not(Bool_Night) Then
			L_Lock.TextColor = Colors.White
		End If
		
	Else
		
		L_Lock.TextColor = 0xFFC3C3C2
		func.SetRipple(L_Lock	,Colors.Transparent,0XAAEEEEEE,16)

		Seek_Play.Enabled = True
		
		Bool_Lock = False
		L_Lock.Text = Chr(0xF13E)
		
		
	End If
	
	recBook.Bool_Lock = Bool_Lock
	
End Sub
 
Private Sub downloadSooreh
	
	Dim idSure As Int = func.readPFM("idBook")
	
	Dim t1  As Boolean
	t1  = File.Exists(File.DirInternal,"abtahi/Book/"&idSure&".pdf")
 			 
	If Not( downloadPdf.IsInitialized ) Then downloadPdf.Initialize(Me,"download",content)

	If t1 Then
		download_pakhsh(recBook.positionBook1(iPotion))
	Else
		downloadPdf.download(idSure,recBook.positionBook1(iPotion))
	End If
  	
End Sub
	
Private Sub download_pakhsh(aye As Int)
	
	func.savePFM("idPdfbook",aye)
	
	ProgressDialogHide
	Log("done")
	CallSub2(actBook,"show_hide_frag",func.listInitialize(22,Me,""))

End Sub

Private Sub L_Search_Click
	searchBox(True,"")
End Sub
 
Private Sub lab_dl_Click
	
	If func.readPFM("dlBookH") = -1 Then
		func.ToastERROR(func.gland(110))
	Else
		recBook.Play_Text = L_Play.Text
		If File.Exists(File.DirInternal,"abtahi/Book/"&recBook.idSure&"/1.mp3") Then
			func.ToastERROR(func.gland(250))
		Else
			
			If recBook.IsInitialized And recBook.isPlaying Then
				func.ToastERROR(func.gland(342))
				Return
			End If

			recBook.checkPlayDownload(0)
		End If
	End If
	
 
End Sub

Sub lpatQ
	L_Play_Click
End Sub

Private Sub L_Play_Click
	click_plys
End Sub

Private Sub click_plys
	If func.readPFM("dlBookH") = -1 Then
		func.ToastERROR(func.gland(110))
	Else
		recBook.Play_Text = L_Play.Text
		plys
	End If
End Sub
    
Sub plys
 	If File.Exists(File.DirInternal,"abtahi/Book/"&recBook.idSure&"/1.mp3") Then
 		recBook.LPlayClick
 	Else
 		recBook.LPlayClick2
 	End If
End Sub
  
Private Sub click_svis(i As Boolean)
	p_loading.Visible = i
End Sub

Private Sub click_strb(i As Int)
	SetSecondaryProgressAudio(Seek_Play,i)
End Sub

Private Sub SetSecondaryProgressAudio(seek1 As View,pos As Int)
	Dim jo As JavaObject = seek1
	jo.RunMethod("setSecondaryProgress",Array As Object(pos))
End Sub

Private Sub click_recDl
	If File.Exists(File.DirInternal,"abtahi/Book/"&recBook.idSure&"/1.mp3") Then
		lab_dl.Typeface = Typeface.MATERIALICONS
		lab_dl.TextColor = 0xFF6D6D6E
		lab_dl.Text = Chr(0xE5CA)
	Else
		lab_dl.Typeface = Typeface.FONTAWESOME
		lab_dl.TextColor = 0xffc2c2c3
		lab_dl.Text = Chr(0xF0ED)
	End If
End Sub

Private Sub click_rec
	Try
		If L_Play.Text = Chr(0xE037) Then
			L_Play.Text=Chr(0xE034)
		Else
			L_Play.Text = Chr(0xE037)
		End If
	Catch
		Log(LastException)
	End Try
End Sub
 
Private Sub ref_rec
	recBook.ref_rec
End Sub
 
Private Sub seek_play_ValueChanged (Value As Int, UserChanged As Boolean)
	recBook.seek_play_ValueChanged(Value , UserChanged,Seek_Play,Lb_monde,Lb_kol)
End Sub

Private Sub timerofline_Tick
	recBook.timerofline_Tick(Seek_Play,Lb_monde,Lb_kol)
End Sub
 
Sub close
 	
	If ah.IsDrawerOpen2(Gravity.RIGHT) Then
		ah.CloseDrawer2(Gravity.RIGHT)

	Else If Bool_BackgroundNeshan Then
		P_BackgroundNeshan.RemoveView
		Bool_BackgroundNeshan = False
		
	Else if BoolSearch Then
		BoolSearch = False
		
		hideKey

		recBook.txtSearch = ""
		
		boxSearch.RemoveView
		box2Search.RemoveView

		CallSubDelayed(Me,"ref_rec")
 
	Else If Boolpavar Then
		Boolpavar = False
		pTarp.Visible = False
 		
	Else If BoolseClick Then
		BoolseClick = False
		pTarc.Visible = False
		
	Else
		
		timerofline.Enabled = False

		If downloadPdf.IsInitialized Then downloadPdf.close

		recBook.close
		recBook.close2
		
		If func.readPFM("typesSerchBk") = 1 Then
			CallSub(actBook,"finishAct")

 		Else
  
			If sooreh_Last_Neshan = 1 Or sooreh_Last_Neshan = 5 Then
				CallSub2(actBook,"show_hide_frag",func.listInitialize(21,Me,""))
			
			Else if sooreh_Last_Neshan = 2 Then
				CallSub2(actBook,"show_hide_frag",func.listInitialize(14,Me,""))
			
			Else if sooreh_Last_Neshan = 3 Then
				CallSub2(actBook,"show_hide_frag",func.listInitialize(18,Me,""))

			Else if sooreh_Last_Neshan = 4 Then
				CallSub2(actBook,"show_hide_frag",func.listInitialize(20,Me,""))

			Else if sooreh_Last_Neshan = 7 Then
				CallSub2(actBook,"show_hide_frag",func.listInitialize(26,Me,""))

			Else if sooreh_Last_Neshan = 6 Then
				CallSub(actBook,"finishAct2")
			
			End If
		End If
 		
	End If
 	
End Sub

public Sub onKey (KeyCode As Int)

	If KeyCode = KeyCodes.KEYCODE_BACK Then
		close
		
	else If KeyCode = KeyCodes.KEYCODE_VOLUME_DOWN Then
		pphon.SetVolume(pphon.VOLUME_MUSIC,pphon.GetVolume(pphon.VOLUME_MUSIC) - 1,True)
	Else If KeyCode = KeyCodes.KEYCODE_VOLUME_UP Then
		pphon.SetVolume(pphon.VOLUME_MUSIC,pphon.GetVolume(pphon.VOLUME_MUSIC) + 1,True)
	End If
  	
End Sub