B4A=true
Group=Book
ModulesStructureVersion=1
Type=Class
Version=11.8
@EndOfDesignText@
Sub Class_Globals
  
	Dim content As Panel

	Private sql2 As SQL
	Private rs2  As ResultSet

	Dim sql As SQL
	Dim Cursor As ResultSet

 	Dim List_id  		  As List
	Dim List_arabic_name  As List
 
	Dim permit As permitClass
 	
End Sub

Public Sub Initialize
End Sub
  
Public Sub onCreateView (Parent As Panel)
 	
	content = Parent
	content.Color = 0xFFFBFDFF

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

 	List_id.Initialize
	List_arabic_name.Initialize
	
	permit.Initialize(Me,content)

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

	Dim labb As Label
	Dim lab1 As Label
	Dim lab2 As Label
	Dim lab3 As Label
	Dim lab4 As Label
	Dim lab5 As Label
	Dim lab6 As Label
	
	labb.Initialize("labb")
	lab1.Initialize("lab1")
	lab2.Initialize("lab2")
	lab3.Initialize("lab3")
	lab4.Initialize("lab4")
	lab5.Initialize("lab5")
	lab6.Initialize("lab6")
  
	Parent.AddView(lab1,0,0,100%x,4%y+35dip)
	Parent.AddView(labb,7%x,2%y,35dip,35dip)
	
	Dim sv As ScrollView
	sv.Initialize(2000dip)
	Parent.AddView(sv,0,lab1.Top+lab1.Height,100%x,99%y-(lab1.Top+lab1.Height))
	Dim r As Reflector
	r.Target = sv
	r.RunMethod2("setVerticalScrollBarEnabled", False, "java.lang.boolean")
	r.RunMethod2("setOverScrollMode", 2, "java.lang.int" )

	sv.Panel.AddView(lab2,5%x,lab1.Top+lab1.Height+3%y,90%x,45dip)
	sv.Panel.AddView(lab3,25%x,lab2.Top+lab2.Height+1%y,50%x,45dip)
	sv.Panel.AddView(lab4,5%x,lab3.Top+lab3.Height+3%y,90%x,50dip)
	sv.Panel.AddView(lab5,5%x,lab4.Top+lab4.Height+0.5%y,90%x,45dip)
	sv.Panel.AddView(lab6,25%x,lab5.Top+lab5.Height+1%y,50%x,45dip)
 
 
	lab1.Color = 0xFF4C9A7B
	
	
	addLab2(lab2,func.gland(148))
	lab2.Height = func.heightLabel(lab2,func.gland(148))

	lab3.Top = lab2.Top+lab2.Height+1%y
	addLab(lab3,func.gland(151))
	lab3.Height = func.heightLabel(lab3,func.gland(151))

	lab4.Top = lab3.Top+lab3.Height+3%y
	addLab2(lab4,func.gland(149))
	lab4.Height = func.heightLabel(lab4,func.gland(149))

	lab5.Top = lab4.Top+lab4.Height+0.5%y
	addLab3(lab5,"android / "&func.gland(150)&" / Download / anvarvahy2 / all_note_book")
	lab5.Height = func.heightLabel(lab5,"android / "&func.gland(150)&" / Download / anvarvahy2 / all_note_book")

	sv.panel.Height = lab5.Top+lab5.Height+2%y

	lab6.Top = lab5.Top+lab5.Height+1%y
	addLab(lab6,func.gland(152))
	lab6.Height = func.heightLabel(lab6,func.gland(152))

	lab6.visible = False
	
	labb.Typeface= Typeface.MATERIALICONS
	labb.Text=Chr(0xE314)
	labb.Gravity=Bit.Or(Gravity.CENTER,Gravity.CENTER_VERTICAL)
	labb.textColor = Colors.White
	labb.TextSize = 20
	func.SetRipple(labb,0x337FD3B1,0x884C9A7B,16)
 
	CallSubDelayed(Me,"checkPermit")

End Sub

Sub checkPermit
	permit.PermissionRequest
End Sub
 
 
Sub addLab(lab_sabt2 As Label,s1 As String)
	
	lab_sabt2.Typeface= Typeface.CreateNew(Typeface.LoadFromAssets(func.font3),Typeface.STYLE_BOLD)
	lab_sabt2.Text=s1
	lab_sabt2.Gravity=Bit.Or(Gravity.CENTER,Gravity.CENTER_VERTICAL)
	lab_sabt2.textColor = Colors.Black
	func.SetRipple(lab_sabt2,0xFFCDFFD9,0xFF5BDF7A,25)
	lab_sabt2.TextSize = 14
	
End Sub

Sub addLab2(lab_sabt2 As Label,s1 As String)
	
	lab_sabt2.Typeface= Typeface.LoadFromAssets(func.font3)
	lab_sabt2.Text=s1
	lab_sabt2.Gravity=Bit.Or(Gravity.RIGHT,Gravity.CENTER_VERTICAL)
	lab_sabt2.textColor = Colors.Black
	lab_sabt2.TextSize = 14
  
End Sub


Sub addLab3(lab_sabt2 As Label,s1 As String)
	
	lab_sabt2.Typeface= Typeface.LoadFromAssets(func.font3)
	lab_sabt2.Text=s1
	lab_sabt2.Gravity=Bit.Or(Gravity.LEFT,Gravity.CENTER_VERTICAL)
	lab_sabt2.textColor = Colors.Black
	lab_sabt2.TextSize = 14
  
End Sub

Sub lab3_Click
	backUp
End Sub

  
Sub backUp
	
	If File.Exists(func.choose2DIR,"anvarvahy2/all_note_book") = False Then
		File.MakeDir(func.choose2DIR,"anvarvahy2/all_note_book")
	End If

	ProgressDialogShow2(func.gland(146),False)
 	
	Sleep(10)
 	
	For i5 = 0 To List_id.Size-1
		Dim name_db As String= "bardasht_"&List_id.Get(i5)
		Dim fileName As String = func.gland(147)&" "&List_arabic_name.Get(i5)&".txt"
  
		Dim sBar As String
 	
		rs2 = sql2.ExecQuery("SELECT bar from '"&name_db&"' ")
	
		For i6 = 0 To rs2.RowCount -1
		
			rs2.Position = i6
			sBar = sBar &CRLF&CRLF&"✧-✧-✧-✧-✧-✧-✧•❃•✧-✧-✧-✧-✧-✧-✧" &CRLF&CRLF& rs2.GetString("bar")

		Next
		
		Sleep(10)
		
		If sBar.Length<>0 Then File.WriteString(func.choose2DIR&"/anvarvahy2/all_note_book",fileName,sBar)

	Next
 
	ProgressDialogHide
	
	func.ToastERROR(func.gland(153))
	
	Sleep(50)
	
 	
End Sub

Sub labb_Click
	close
End Sub

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

 
public Sub onKey (KeyCode As Int)

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