B4A=true
Group=Book
ModulesStructureVersion=1
Type=Class
Version=11.8
@EndOfDesignText@
Sub Class_Globals
 
	Dim sql As SQL
	Dim Cursor As ResultSet
 
	Dim List_idFake  		  As List
	Dim List_id  		  As List
	Dim List_arabic_name  As List
	Dim List_en_name  As List
 
	Private recNeshan As AX_RecyclerView
	
	Dim content As Panel
	Private lab_back As Label
	Private lab_share As Label

	Private Label1 As Label
	
	Private ed_search As ACEditText
	Dim ime As IME
 	
End Sub

Public Sub Initialize
End Sub
  
Public Sub onCreateView (Parent As Panel)
  	
	content = Parent
	content.Color = 0xFFFBFDFF
 
	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

	ime.Initialize("ime")
	ime.AddHandleActionEvent(ed_search)

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

 
	List_idFake.Initialize
	List_id.Initialize
	List_arabic_name.Initialize
	List_en_name.Initialize
 
	Cursor = sql.ExecQuery("SELECT id,idindex,name,enname FROM book where lang = '"&func.readNIS("lan2FaEn",1)&"' order by idindex asc")
	Do While Cursor.NextRow
 		List_arabic_name.add((Cursor.GetString("name")))
		List_idFake.add((Cursor.GetInt("id")))
		List_id.add((Cursor.GetInt("idindex")))
		List_en_name.add((Cursor.GetString("enname")))
	Loop : Cursor.Close
	
	
End Sub

Sub addView
	
	content.LoadLayout("gridelayout")
	func.SetRipple(lab_back ,0x337FD3B1,0x884C9A7B,16)
 
	lab_share.Text = ""
	lab_share.Color = Colors.Transparent
	
	Dim lab As Panel
	lab.Initialize("lab_share")
	content.AddView(lab,lab_share.Left,lab_share.Top,lab_share.Width,lab_share.Height)
	func.color_border(lab ,0x337FD3B1,16)
 
	Dim lab2 As Label
	lab2.Initialize("")
	lab.AddView(lab2,4dip,4dip,lab_share.Width-8dip,lab_share.Height-8dip)
	Dim bd As BitmapDrawable
	bd.Initialize(LoadBitmap(File.DirAssets, "file-transfer.png"))
	bd.Gravity = Gravity.FILL
	lab2 .Background = bd
   	
	Label1.Text = func.gland(143)
	
	ed_search.RequestFocus
	ed_search.Color=Colors.Transparent
	ed_search.hint = func.gland(64)

	Label1.Typeface = Typeface.CreateNew(Typeface.LoadFromAssets(func.font3),Typeface.STYLE_BOLD)
	ed_search.Typeface = Typeface.LoadFromAssets(func.font3)
	func.MinimomFontLabel(Label1,14)

End Sub

Private Sub recNeshan_onCreateViewHolder (Parent As Panel,ViewType As Int)

	Dim pan As Panel
	pan.Initialize("pan")
	Parent.AddView(pan,1.25%x,5dip,30%x,60dip)

	Dim lab2 As Label
	lab2.Initialize("")
	pan.AddView(lab2,1%x,5dip,28%x,50dip)
  

End Sub

Private Sub recNeshan_GetItemCount As Int
	Return List_idFake.Size
End Sub
 
Private Sub recNeshan_onBindViewHolder (Parent As Panel,Position As Int)
	
	Dim pnl As Panel=Parent.GetView(0)
	Dim lab2 As Label=pnl.GetView(0)
	 
	lab2.Text =List_idFake.Get(Position)&"- "& List_arabic_name.Get(Position)
	lab2.Typeface = Typeface.LoadFromAssets(func.font3)
	lab2.Gravity = Bit.Or(Gravity.CENTER,Gravity.CENTER_VERTICAL)
 	lab2.TextColor = Colors.Black
	func.MinimomFontLabel(lab2,14)
	
	pnl.Tag = Position
	pnl.Elevation = 4dip
	func.SetRipple(pnl,Colors.White,0x99eeeeee,25)

	pnl.Width=30%x
	Parent.Width=32.5%x
	pnl.Height=60dip
	
	Parent.Height=80dip

 

End Sub

Sub pan_Click
	
	Dim ll As Panel = Sender
	Dim ii As Int = ll.Tag
	
	CallSub2(actBook,"show_hide_frag",func.listInitialize(32,Me,""))

	func.savePFM("idIndBop", List_id.Get(ii))
	func.savePFM("nameBookP", List_arabic_name.Get(ii))
	func.savePFM("ennameBP", List_en_name.Get(ii))

 
End Sub

 
Sub ref_rec
	recNeshan.Adapter2.NotifyDataSetChanged
End Sub

 
Sub hideKey
	ime.HideKeyboard
End Sub

Sub ime_HandleAction As Boolean
	hideKey
	Return True
End Sub
   

Sub ed_search_TextChanged (Old As String, New As String)
	
	If List_idFake.IsInitialized Then
		
		List_idFake.Clear
		List_id.Clear
		List_arabic_name.Clear
		List_en_name.Clear
  		
		Cursor = sql.ExecQuery("SELECT idindex,name,id,enname FROM book where lang = '"&func.readNIS("lan2FaEn",1)&"' and name LIKE '%"&New&"%' order by idindex asc")

		Do While Cursor.NextRow
			List_arabic_name.add((Cursor.GetString("name")))
			List_idFake.add((Cursor.GetInt("id")))
			List_id.add((Cursor.GetInt("idindex")))
			List_en_name.add((Cursor.GetString("enname")))
		Loop : Cursor.Close
		
		CallSubDelayed(Me,"ref_rec")
	
	End If
	
End Sub


 
Sub lab_share_Click
	CallSub2(actBook,"show_hide_frag",func.listInitialize(33,Me,""))
End Sub
  
Sub lab_back_Click
	close
End Sub

Sub close
 	 
	If ed_search.Text="" Then
		CallSub2(actBook,"show_hide_frag",func.listInitialize(14,Me,""))
	Else
		hideKey

		ed_search.Text=""
	End If
  		
End Sub

 
public Sub onKey (KeyCode As Int)

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