B4A=true
Group=Book
ModulesStructureVersion=1
Type=Class
Version=11.8
@EndOfDesignText@
Sub Class_Globals
 
 	Dim content As Panel
	
	Dim lab_back As Label
	Private recNeshan As AX_RecyclerView

	Dim Label1 As Label
	
	Private sql2 As SQL
	Private rs2  As ResultSet

	Private list_id As List
	Private list_title As List
	Private listMatn As List

	
	
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

	list_title.Initialize
	list_id.Initialize
	listMatn.Initialize
 
	If sql2.IsInitialized=False Then
		sql2.Initialize(File.DirInternal,"note_book.db",True)
	End If

	rs2 = sql2.ExecQuery2("SELECT id,title,matn FROM ybook where en_book=? order by id desc",Array As String(func.readPFM("ennameBook")))
 
	If rs2.RowCount>0 Then
		Do While rs2.NextRow
 
			list_id.add(rs2.GetInt("id"))
			list_title.add(rs2.GetString("title"))
			listMatn.add(rs2.GetString("matn"))
   
		Loop : rs2.Close
		
	Else
		
		If func.readPFM("backNOB") = -1 Then
			lplus_Click
		End If

	End If
	
End Sub


Sub addView
	
	content.LoadLayout("neshanlayout")
	func.SetRipple(lab_back ,0x337FD3B1,0x884C9A7B,16)

	Label1.Text = func.gland(137)
	Label1.Typeface = Typeface.CreateNew(Typeface.LoadFromAssets(func.font3),Typeface.STYLE_BOLD)
	func.MinimomFontLabel(Label1,14)

	Dim pplus As Panel
	pplus.Initialize("")
	content.AddView(pplus,5%x,97%y-60dip,60dip,60dip)
	func.color_border(pplus,0xFFE07A5F,2000)
	
	Dim lplus As Label
	lplus.Initialize("lplus")
	pplus.AddView(lplus,0,0,60dip,60dip)
	lplus.Text=Chr(0xE145)
	lplus.TextSize=30
	lplus.TextColor=Colors.White
	lplus.Gravity=Bit.Or(Gravity.CENTER_VERTICAL,Gravity.CENTER)
	lplus.Typeface=Typeface.MATERIALICONS
	func.SetRipple(lplus,0xFF4C9A7B,0xFF487D66,1000)

End Sub

Sub lplus_Click
	func.savePFM("sdfsd",1)
 	CallSub2(actBook,"show_hide_frag",func.listInitialize(28,Me,""))
 End Sub

 
Private Sub recNeshan_GetItemCount As Int
	Return list_id.Size
End Sub
 
Private Sub recNeshan_onCreateViewHolder (Parent As Panel,ViewType As Int)
 
	Dim pan As Panel
	pan.Initialize("pan")
	Parent.AddView(pan,5%x + 60dip,5dip,90%x-60dip,60dip)

	Dim lab1 As Label
	lab1.Initialize("")
	pan.AddView(lab1,5dip,5dip,pan.Width-20dip,50dip)
	
	Dim lab2 As Label
	lab2.Initialize("L_Delete")
	Parent.AddView(lab2,5%x,12.5dip,45dip,45dip)

End Sub

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


	Dim pan As Panel=Parent.GetView(0)
	Dim lab1 As Label=pan.GetView(0)
	Dim lab2 As Label=Parent.GetView(1)
   	
	pan.Tag = Position
	pan.Elevation = 2dip
	func.SetRipple(pan,Colors.White,0x99eeeeee,25)
  	
	func.SetRipple(pan,Colors.White,0XAAEEEEEE,20)
 
	'***************************************
	'***************************************
    
	lab2.Text = Chr(0xE872)
	func.SetRipple(lab2 ,0xFF4C9A7B,0xFF0A7048,16)
	lab2.Typeface = Typeface.MATERIALICONS
	lab2.Gravity = Bit.Or(Gravity.CENTER,Gravity.CENTER_VERTICAL)
	lab2.TextSize = 25
	lab2.TextColor = Colors.White
	lab2.Tag = Position
	
	func.setEllipsize(lab1,"END")
	lab1.Text = list_title.Get(Position)
	lab1.Typeface= Typeface.LoadFromAssets(func.font3)
	lab1.Gravity=Bit.Or(Gravity.RIGHT,Gravity.CENTER_VERTICAL)
	lab1.textColor = 0xFF4F2800
	lab1.TextSize = 14

	pan.Height = 60dip
	Parent.Height = pan.Top+pan.Height+5dip

End Sub


Sub pan_Click
	
	Dim ll As Panel = Sender
	Log(ll.tag)
  
  	
	func.savePFM("idBookY",list_id.Get(ll.tag))
	func.savePFM("titleBookY",list_title.Get(ll.tag))
	func.savePFM("matnBookY",listMatn.Get(ll.tag))
  
 	CallSub2(actBook,"show_hide_frag",func.listInitialize(29,Me,""))

End Sub

Sub L_Delete_Click
	
	Dim ll As Label = Sender
	
	sql2.ExecNonQuery("DELETE FROM ybook where id = '"&list_id.Get(ll.tag)&"' " )

  
	list_title.Clear
	list_id.Clear
	listMatn.Clear

	rs2 = sql2.ExecQuery2("SELECT id,title,matn FROM ybook where en_book=? order by id desc",Array As String(func.readPFM("ennameBook")))
	Do While rs2.NextRow
 
		list_id.add(rs2.GetInt("id"))
		list_title.add(rs2.GetString("title"))
		listMatn.add(rs2.GetString("matn"))
   
	Loop : rs2.Close
	
	CallSubDelayed(Me,"refRecBook")

End Sub


Sub refRecBook
	recNeshan.Adapter2.NotifyDataSetChanged
	recNeshan.Adapter2.NotifyItemRemoved(0)
 End Sub




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

public Sub onKey (KeyCode As Int)

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