B4A=true
Group=Book
ModulesStructureVersion=1
Type=Class
Version=10.5
@EndOfDesignText@
Sub Class_Globals
	
	Private Timr As Timer
	Private Ti As Timer
	Private I1 As Float
	Private tt As String

	Dim content As Panel
 	
	Private sql2 As SQL
	Private rs2  As ResultSet
 
	Private lab_lan As Label
	Private lab_menu As Label
	
	Private Label5 As Label
  	
	Private Label19 As Label
	Private Label18 As Label
	Private Label15 As Label
	Private Label13 As Label
	Private Label12 As Label
	Private Label10 As Label
	Private Label9  As Label
	Private Label1  As Label
	Private Label2  As Label
 
	Private cpm1 As ArcProgressMaster
	
	Private panLast 	As Panel
	Private panFehrest 	As Panel
	Private panNeshan 	As Panel
	Private panDownload As Panel
	Private panSearch 	As Panel
	Private panBardasht 	As Panel
	
	Private panScr 	As Panel
  
	Dim ah As AHNavigationDrawer

	Dim ImageView1 As ImageView
	
	Private l_asas As Label
	

	Private Label3 As Label
	Private Label4 As Label
	Private labcpm1 As Label
 
	Private Label7 As Label
	Private Label8 As Label
	
	Private Label16 As Label
	Private ImageView6 As ImageView
 	
	Private Retrofit As Amir_Retrofit
	Private Manager_add   As Amir_RetrofitManager
	Private Builder_add   As Amir_RetrofitBuilder

	Private pTar As Panel
	
	Dim badge1 As Badger
	Dim badge4 As Badger
	Dim badge2 As Badger
	
	Private popup2 As ACPopupMenu

	Dim labBdg As Label

	Private customDialog As customMaterialDialog
	Private boolWarning As Boolean

	'**********************
	
	Private iScroll As Int
	Private iScroll2 As Int
	
	Private panApp As Panel

	Private listNameApp  As List
	Private listPicApp   As List
	Private listShareApp 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("")
	Parent.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
  	
'	**********
	close(func.gland(5))
'	**********

	If sql2.IsInitialized=False Then
		sql2.Initialize(File.DirInternal,"fav.db",True)
	End If
 
	If func.readPFM("what_ghari_sot")="-1" Then
		func.savePFM("what_ghari_sot","3")
	End If
	
	If func.readPFM("what_ghari_tar")="-1" Then
		func.savePFM("what_ghari_tar","2")
	End If

	If func.readPFM("int_type")="-1" Then
		func.savePFM("int_type",0)
	End If
    
	'	**********
	
	boolWarning = False

	Builder_add.Initialize
	Builder_add.baseUrl(urls.baseUrl).WithManager
	Builder_add.addGsonConverterFactory
	Builder_add.addHeader(CreateMap("Content-Type":"application/json"))
	Retrofit.Initialize(Builder_add)
	Manager_add = Retrofit.Utils.GetRetrofitManager(Retrofit)

	tsetUpdate2
	
End Sub
 

Sub addView
	
	Private ScrollView1 As ScrollView

	ah.Initialize2("ah",content,70%x,ah.GRAVITY_RIGHT)
	ah.NavigationPanel.Color=0xFFF9F9F9
	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("menuquranlayout1")
 	
	ScrollView1.Initialize(1000dip)
	panScr.AddView(ScrollView1,0,2%y,100%x,panScr.Height)
	Dim r As Reflector
	r.Target = ScrollView1
	r.RunMethod2("setVerticalScrollBarEnabled", False, "java.lang.boolean")
	r.RunMethod2("setOverScrollMode", 2, "java.lang.int" )

	ScrollView1.Panel.LoadLayout("menuQuranLayout")
	
	panNeshan.Top   = panFehrest.Top+panFehrest.Height+2%y
	panSearch.Top   = panNeshan.Top+panNeshan.Height+2%y
	panBardasht.Top = panSearch.Top+panSearch.Height+2%y
	panDownload.Top = panBardasht.Top+panBardasht.Height+2%y

 
	panApp.Top = panDownload.Top+panDownload.Height+2%y
	ScrollView1.Panel.Height = panApp.Top+panApp.Height+15dip

	func.SetRipple(lab_menu,0x337FD3B1,0x884C9A7B,16)
	func.SetRipple(lab_lan ,0x337FD3B1,0x884C9A7B,16)
 	  
	Dim Gradient1 As GradientDrawable
	Dim Clrs(5) As Int
	Clrs(0) = 0xff4c9a7b
	Clrs(1) = 0xff56a183
	Clrs(2) = 0xff60a78b
	Clrs(3) = 0xff69ae93
	Clrs(4) = 0xff73b59b
	Gradient1.Initialize("LEFT_RIGHT",Clrs)
	Gradient1.CornerRadius = 25
	
	Dim Gradient2 As GradientDrawable
	Dim Clrs1(5) As Int
	Clrs1(0) = 0xff4c9a7b
	Clrs1(1) = 0xff4c9a7b
	Clrs1(2) = 0xff4c9a7b
	Clrs1(3) = 0xff4c9a7b
	Clrs1(4) = 0xff4c9a7b
	Gradient2.Initialize("LEFT_RIGHT",Clrs1)
	Gradient2.CornerRadius = 25
 
	Label18.Text = func.gland(119)
	Label19.Text = func.gland(120)
 	
	func.SetRipple3(panLast 	,Gradient1,Gradient2)
	
	func.setGrv(panFehrest 	)
	func.setGrv(panNeshan 	)
	func.setGrv(panDownload )
	func.setGrv(panSearch 	)
	func.setGrv(panBardasht )
  
'	****************
'	****************
	Dim lan2FaEn As String = (func.readNIS("lan2FaEn",1))

	Try
	
		Private sql As SQL
		Private sql3 As SQL
		Private rs As ResultSet


		Dim lastJHA As String= func.readPFM("lastJBook")
		Dim booksa As String = func.readPFM("ennameBook")
	
		If lastJHA = -1 Then lastJHA = 1
		If booksa = -1 Then booksa = "parvazrooh"

		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

		Dim idBook,pagesa,names,pages As String
		
		
		rs = sql.ExecQuery2("SELECT  idBook,page from '"&booksa&"' where id=?",Array As String(lastJHA))
		Do While rs.NextRow
			idBook  = (rs.GetInt("idBook"))
			pagesa  = (rs.GetInt("page"))
		Loop : rs.Close
		
		If sql3.IsInitialized=False Then
			sql3.Initialize(File.DirInternal,"quransooreh.db",True)
		End If

		rs = sql3.ExecQuery2("SELECT name,page FROM book  where lang = '"&func.readNIS("lan2FaEn",1)&"' and idindex=?",Array As String(idBook))
		Do While rs.NextRow
			names  = (rs.GetString("name"))
			pages  = (rs.GetInt("page"))
		Loop : rs.Close
		
		Dim hjh As Double = (pagesa / pages) * 100
		hjh = Round(hjh)

		cpm1.BottomText = ""
		cpm1.BottomTextSize = 1
		cpm1.TextColor = Colors.Transparent
		cpm1.UnfinishedStrokeColor = Colors.Gray
		cpm1.FinishedStrokeColor =Colors.Yellow
		cpm1.Progress = hjh
		cpm1.StrokeWidth = 10
		cpm1.Max = 100
		cpm1.TextSize = 1
		cpm1.SuffixText = ""
		cpm1.SuffixTextSize = 1
	
		labcpm1.Text = hjh&"%"
		func.MinimomFontLabel(labcpm1,20)
		labcpm1.Typeface = Typeface.LoadFromAssets(func.font3)
  
		func.setEllipsize(Label3,"END")
		Label3.Text =  names
		Label4.Text = func.gland(121)&" " & pagesa
 	
		Label3.Visible = False
	Catch
		Log(LastException)
	End Try
	
	Label3.Typeface = Typeface.LoadFromAssets(func.font3)
	Label4.Typeface = Typeface.LoadFromAssets(func.font3)



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

	Label2.Text = func.gland(65)

	Label5.Text = func.gland(70)
	Label15.Text = func.gland(73)
	Label13.Text = func.gland(74)
	Label12.Text = func.gland(75)
	Label10.Text = func.gland(76)
	Label9.Text = func.gland(77)

	Label1.Text = "پرواز روح"
	Label7.Text = func.gland(124)
	
	Label8.Visible = False
	
	Label16.Text = func.gland(125)
 
	Label5.Typeface = Typeface.LoadFromAssets(func.font3)
	Label13.Typeface = Typeface.LoadFromAssets(func.font3)
	Label10.Typeface = Typeface.LoadFromAssets(func.font3)
	Label8.Typeface = Typeface.LoadFromAssets(func.font3)
	Label16.Typeface = Typeface.LoadFromAssets(func.font3)
	
	
	Label9.Typeface = Typeface.CreateNew(Typeface.LoadFromAssets(func.font3),Typeface.STYLE_BOLD)
	Label12.Typeface = Typeface.CreateNew(Typeface.LoadFromAssets(func.font3),Typeface.STYLE_BOLD)
	Label15.Typeface = Typeface.CreateNew(Typeface.LoadFromAssets(func.font3),Typeface.STYLE_BOLD)
	Label18.Typeface = Typeface.CreateNew(Typeface.LoadFromAssets(func.font3),Typeface.STYLE_BOLD)
	Label7.Typeface = Typeface.CreateNew(Typeface.LoadFromAssets(func.font3),Typeface.STYLE_BOLD)
	Label3.Typeface = Typeface.CreateNew(Typeface.LoadFromAssets(func.font3),Typeface.STYLE_BOLD)
	Label2.Typeface = Typeface.LoadFromAssets(func.font3)
	Label1.Typeface = Typeface.CreateNew(Typeface.LoadFromAssets(func.font3),Typeface.STYLE_BOLD)
  
	ImageView1.Height = 23%x
	ImageView1.Width = 21.5%x
	
	ImageView1.Bitmap = LoadBitmap(File.DirAssets, "ketab.png")
	
	ImageView6.Bitmap = LoadBitmap(File.DirAssets, "book3.png")

'	***********************
 
	func.MinimomFontLabel(Label5,14)

	func.MinimomFontLabel(Label3,14)
	func.MinimomFontLabel(Label4,14)
	func.MinimomFontLabel(Label2 ,14)
	func.MinimomFontLabel(Label5 ,14)
	func.MinimomFontLabel(Label15,14)
	func.MinimomFontLabel(Label13,14)
	func.MinimomFontLabel(Label12,14)
	func.MinimomFontLabel(Label10,14)
	func.MinimomFontLabel(Label9 ,14)
	func.MinimomFontLabel(Label1 ,14)
	func.MinimomFontLabel(Label7 ,14)
	func.MinimomFontLabel(Label8 ,14)
	func.MinimomFontLabel(Label16 ,14)
	func.MinimomFontLabel(Label18 ,14)
	func.MinimomFontLabel(Label19 ,14)
  

'	***********************
 
	Label10.Visible = False
	Label13.Visible = False
	Label16.Visible = False
	Label19.Visible = False
 	
	Label7.top = 5.5%x
	Label9.top = 5.5%x
	Label12.top = 5.5%x
	Label15.top = 5.5%x
	Label18.top = 5.5%x

	Label9.Gravity = Bit.Or(Gravity.CENTER_VERTICAL,Gravity.RIGHT)
	Label12.Gravity = Bit.Or(Gravity.CENTER_VERTICAL,Gravity.RIGHT)
	Label15.Gravity = Bit.Or(Gravity.CENTER_VERTICAL,Gravity.RIGHT)
	Label18.Gravity = Bit.Or(Gravity.CENTER_VERTICAL,Gravity.RIGHT)

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

	listNameApp.Initialize
	listPicApp.Initialize
	listShareApp.Initialize
	
	listNameApp.add("قرآن وحی")
	listNameApp.add("پرواز روح")
	listNameApp.add("زندگینامه معصومین")
	listNameApp.add("عقاید شیعه")
	listNameApp.add("آداب اسلامی")
	listNameApp.add("حکایات شنیدنی")
	listNameApp.add("ملاقات با امام زمان")
	listNameApp.add("سوالات مهدوی")
	listNameApp.add("امام زمان")
	listNameApp.add("انوار زهرا")
	
 
	
	listShareApp.add("https://myket.ir/app/com.mafatih.pasandideh")
	listShareApp.add("https://myket.ir/app/com.pas.abtahiBook.parvaz")
	listShareApp.add("https://myket.ir/app/com.pas.abtahiBook.zendeginameh")
	listShareApp.add("https://myket.ir/app/com.pas.abtahiBook.aghed")
	listShareApp.add("https://myket.ir/app/com.pas.abtahiBook.adab")
	listShareApp.add("https://myket.ir/app/com.pas.abtahiBook.hekayat")
	listShareApp.add("https://myket.ir/app/com.pas.abtahiBook.molaghat")
	listShareApp.add("https://myket.ir/app/com.pas.abtahiBook.mahdavi")
	listShareApp.add("https://myket.ir/app/com.pas.abtahiBook.emamzaman")
	listShareApp.add("https://myket.ir/app/com.pas.abtahiBook.fazael")


	listPicApp.add("1.png")
	listPicApp.add("2.png")
	listPicApp.add("3.png")
	listPicApp.add("4.png")
	listPicApp.add("5.png")
	listPicApp.add("6.png")
	listPicApp.add("7.png")
	listPicApp.add("8.png")
	listPicApp.add("9.png")
	listPicApp.add("10.png")

	Dim LabApp As Label
	Dim Recycler As  AX_RecyclerView
	Dim ScaleVP As Amir_RVScaleViewPager
 	
	iScroll = 0
	
	LabApp.Initialize("")
	panApp.AddView(LabApp,0,0,100%x  ,40dip)
	LabApp.Typeface=Typeface.LoadFromAssets(func.font3)
	LabApp.Gravity=Bit.Or(Gravity.CENTER,Gravity.CENTER_VERTICAL)
	LabApp.textColor =  Colors.Black
	LabApp.TextSize = 14
	LabApp.Text = func.gland(420)

	Recycler.Initializer("Amir").NoLayout
	panApp.AddView(Recycler,0,40dip,100%x ,30%x)
	Recycler.Tag = "recycler"
	
	ScaleVP.Initializer("Amir",Recycler).MaxVisibleItemCount(3) _
	 .Horizontal.Build
 
	ScaleVP.CenterSnapHelper
	Recycler.DefaultAdapter
 	
'	****************	
'	****************	

 
		
	badge1.TextSize = 14
	badge2.TextSize = 14
	badge4.TextSize = 14
 	
	labBdg.Visible = False
 	
	badge1.Hide
	badge4.Hide
	badge2.Hide
 	
  
	func.savePFM("typesSerchBk",-1)

	popup2.Initialize("popup2",lab_lan)
	popup2.AddMenuItem(1,"فارسی",Null)
	popup2.AddMenuItem(3,"العربیة",Null)
	popup2.AddMenuItem(2,"English",Null)
	
	If File.Exists(File.DirInternal,"popup2d") = False Then
		File.WriteString(File.DirInternal,"popup2d",1)
		lab_lan_Click
	End If
	
	
	pTar.Initialize("pTar")
	content.AddView(pTar,0,0,100%x,100%y)
	pTar.Color = 0xCCeeeeee
	func.setGrv2(pTar,0xCCeeeeee)
	pTar.Elevation = 10dip
	pTar.Visible = False
	
	customDialog.Initialize(content,Me)
	
End Sub
 
' ********************

Sub timerR_Tick
	For Each v As View In panApp.GetAllViewsRecursive
		If v Is AX_RecyclerView Then
  			
			If (iScroll = listNameApp.Size-1) Then
				iScroll2 = -1
			Else If iScroll = 0 Then
				iScroll2 = 1
			End If
		
			iScroll = iScroll + iScroll2
			
			Dim lab As AX_RecyclerView = v
			lab.SmoothScrollToPosition(iScroll)
			
		End If
	Next
End Sub

Sub resetT
	CallSub(actBook,"resetT")
End Sub

Sub startT
	CallSub(actBook,"startT")
End Sub
 
Private Sub Amir_onPageSelected (Position As Int)
 	
	iScroll = Position
	startT
	
End Sub

Private Sub Amir_onCreateViewHolder (Parent As Panel,ViewType As Int)
	
	Dim Panel As Panel
	Panel.Initialize("panApp")
	Parent.AddView(Panel,5dip,10dip,35%x,28%x)
	
	Dim lab_image As ImageView
	lab_image.Initialize("")
	Panel.AddView(lab_image,8.5%x,3%x,18%x,18%x)

	Dim lab_title As Label
	lab_title.Initialize("")
	Panel.AddView(lab_title,0,21%x,35%x,7%x)
 	
	Dim lab_share As Label
	lab_share.Initialize("lab_share")
	Panel.AddView(lab_share,35%x-30dip,0,30dip,30dip)

End Sub

Private Sub Amir_onBindViewHolder (Parent As Panel,Position As Int)
	
	Dim Panel As Panel = Parent.GetView(0)
	Dim lab_image As ImageView=Panel.GetView(0)
	Dim lab_title As Label=Panel.GetView(1)
	Dim lab_share As Label=Panel.GetView(2)

	Dim Color As ColorDrawable
	
	Color.Initialize(0xaae2eddd,10dip)
	Panel.Background=Color
	Panel.Elevation=3dip
	Panel.Tag = Position
   		 
	lab_share.Text = Chr(0xE80D)
	lab_share.Typeface=Typeface.MATERIALICONS
	lab_share.TextSize=20
	lab_share.TextColor=0xAA595959
	lab_share.Gravity=Bit.Or(Gravity.CENTER,Gravity.CENTER_VERTICAL)
	func.SetRipple(lab_share,0x004C9A7B,0xFF4C9A7B,10dip)
	lab_share.Tag = Position

	lab_image.Bitmap = LoadBitmap(File.DirAssets, listPicApp.Get(Position))
	lab_image.Gravity = Gravity.FILL

	lab_title.Text = listNameApp.Get(Position)
	lab_title.Typeface=Typeface.LoadFromAssets(func.font3)
	lab_title.TextSize=12
	lab_title.TextColor=Colors.Black
	lab_title.Gravity=Bit.Or(Gravity.CENTER,Gravity.CENTER_VERTICAL)

	Parent.Width=Panel.Left+Panel.Width+1%x
	Parent.Height=Panel.Top+Panel.Height+15dip
 	
End Sub

Private Sub Amir_GetItemCount As Int
	Return listNameApp.Size
End Sub

Sub lab_share_Click
	
	Dim pan As Label = Sender
 		
	Dim Position As Int = pan.Tag
 	
	Dim link As  String = listShareApp .Get(Position)
	Dim title As String = listNameApp.Get(Position)
 	
	func.TextShare("‌"&CRLF&title&CRLF&CRLF&link)

End Sub

Sub panApp_Click
	Dim pan As Panel = Sender
 		
	Dim Position As Int = pan.Tag
 	
	Dim int1 As PhoneIntents
	StartActivity(int1.OpenBrowser(listShareApp.Get(Position)))

End Sub
 
' ********************
Sub lab_lan_Click
	popup2.Show
End Sub
 
Sub popup2_ItemClicked (Item As ACMenuItem)
	
	If Item.Id = 1 Then
		func.savePFM("lanFaEn","persian")
		func.savePFM("lan2FaEn",1)
		
	Else If Item.Id = 2 Then
		func.savePFM("lanFaEn","english")
		func.savePFM("lan2FaEn",3)
		
	Else If Item.Id = 3 Then
		func.savePFM("lanFaEn","arabic")
		func.savePFM("lan2FaEn",2)
		
	End If
	
	func.resetSettings
	func.savePFM("idBookSearch",9999)
	func.savePFM("lastSeenBook",-1)
	

	CallSub(actBook,"close3")
	
End Sub


Sub Slide_Menu

	Dim P_Menu As Panel
	Dim P_Menu1 As Panel
 
	Dim sv_menu_nav As ScrollView
 
	P_Menu.Initialize("p_menu")
	ah.NavigationPanel.AddView(P_Menu,0,0,70%x,100%y)
	func.color_border(P_Menu,Colors.White,0)
	P_Menu.Elevation=6dip
    
	Dim pan1 As Panel
	pan1.Initialize("")
	P_Menu.AddView(pan1,0,0,70%x,35%y)
	func.color_border(pan1,0xFF4C9A7B,0)
	
	Dim img As ImageView
	img.Initialize("")
	pan1.AddView(img,35%x-8%y,3%y,16%y,16%y)
	img.Bitmap = LoadBitmap(File.DirAssets, "logo.png")
	img.Gravity = Gravity.FILL
	
	Dim lb_item As Label
	lb_item.Initialize("")
	pan1.AddView(lb_item,1%x,16%y,68%x,9%y)
	lb_item.Text="ملاقات با امام زمان"
	lb_item.TextColor=Colors.White
	lb_item.Gravity=Bit.Or(Gravity.CENTER_VERTICAL,Gravity.CENTER)
	lb_item.Typeface=Typeface.LoadFromAssets(func.font3)
	func.MinimomFontLabel(lb_item,14)
	
	P_Menu1.Initialize("")
	P_Menu.AddView(P_Menu1,0,25%y+10dip,70%x,100%y-(25%y+10dip))
	
	func.color_border(P_Menu1,Colors.White,20dip)

	sv_menu_nav.Initialize2(1000dip,"sv_menu_nav")
	P_Menu1.AddView(sv_menu_nav,0,0,65%x,100%y-(pan1.Top+pan1.Height+10dip))

	Dim r As Reflector
	r.Target = sv_menu_nav
	r.RunMethod2("setVerticalScrollBarEnabled", False, "java.lang.boolean")
	r.RunMethod2("setOverScrollMode", 2, "java.lang.int" )
  	
	Dim list_name As List
	Dim list_icon As List

	list_name.Initialize
	list_name.AddAll(Array As String(func.gland(425), func.gland(10),func.gland(8),func.gland(11) _
	,func.gland(119),func.gland(420),func.gland(325)))
	
 	 
	list_icon.Initialize
	list_icon.AddAll(Array As String("m2.png" ,"m4.png","m5.png","m3.png" _
	,"m8.png","m10.png","m9.png"))
  
	Dim ttop As Int=15dip
	
	For i=0 To list_name.Size-1
		Dim pnl As Panel
		pnl.Initialize("morepnl")
		sv_menu_nav.Panel.AddView(pnl,0.5%x,ttop,64%x,50dip)
		pnl.Tag=i
		func.SetRipple(pnl,Colors.Transparent,0xaaeeeeee,10dip)
 
		Dim lb_item As Label
		lb_item.Initialize("lb_item")
		pnl.AddView(lb_item,0,0,59%x-25dip,50dip)
		lb_item.Text=list_name.Get(i)
		lb_item.TextColor=Colors.Black
		lb_item.Gravity=Bit.Or(Gravity.CENTER_VERTICAL,Gravity.RIGHT)
		lb_item.Typeface=Typeface.LoadFromAssets(func.font3)
		func.MinimomFontLabel(lb_item,14)

		If i = 5 Then
			badge2.Initialize("",lb_item,"",Colors.Red,False)

		else if i = 0 Then
			badge1.Initialize("",lb_item,"",Colors.Red,False)

		else if i = 1 Then
			badge4.Initialize("",lb_item,"",Colors.Red,False)

		End If

 
		Dim lb_icon1 As ImageView
		lb_icon1.Initialize("lb_icon1")
		pnl.AddView(lb_icon1,62%x-25dip,12.5dip,25dip,25dip)
		lb_icon1.Bitmap= LoadBitmap(File.DirAssets,  list_icon.Get(i))
		lb_icon1.Gravity = Gravity.FILL
		
		ttop=ttop+60dip

	Next
	
	sv_menu_nav.Panel.Height=ttop + 10dip
 	
	Dim pan1 As Panel
	pan1.Initialize("")
	P_Menu.AddView(pan1,0,0,2dip,100%y)
	func.color_border(pan1,0xFF4C9A7B,0)

	Dim lb_icon As Label
	lb_icon.Initialize("lb_icon")
	P_Menu.AddView(lb_icon,3%x,100%y-60dip,64%x,50dip)
	lb_icon.Text="نسخه"& " "& Application.VersionName
	lb_icon.TextColor=Colors.Black
	lb_icon.Gravity=Bit.Or(Gravity.CENTER_VERTICAL,Gravity.CENTER)
	lb_icon.Typeface=Typeface.LoadFromAssets(func.font3)
	func.MinimomFontLabel(lb_icon,12)

End Sub
 
Sub morepnl_click
	
	Dim ll As Panel = Sender
	
	Dim iii As Int = ll.Tag
	
	Log(iii)
  
	Select iii
		Case 0
			startAct(actNotific)
		Case 1
			downloadAp
		Case 2
			func.savePFM("setting","Book1")
			resetT
			CallSub2(actBook,"show_hide_frag",func.listInitialize(4,Me,""))
		Case 3
			popup1
		Case 4
			resetT
			CallSub2(actBook,"show_hide_frag",func.listInitialize(32,Me,""))
		Case 5
			startAct(actApps)
		Case 6
			startAct(Support)
	End Select
	
End Sub

Sub startAct(act As Object)
	
	func.savePFM("typesSerchBk",-1)

	Manager_add.CancelAll
	StartActivity(act)
 
End Sub
 
Sub downloadAp

	Try
		Dim p As PhoneIntents
		StartActivity(p.OpenBrowser("myket://details?id="&Application.PackageName))
'		StartActivity(p.OpenBrowser("bazaar://details?id="&Application.PackageName))
	Catch
		Log(LastException)
	End Try
 	
End Sub
   
Sub popup1
	Try
		func.TextShare("https://myket.ir/app/"&Application.PackageName)
'		func.TextShare("https://cafebazaar.ir/app/"&Application.PackageName)
	Catch
		Log(LastException)
	End Try
End Sub

Sub nazar
	Try
		
		Dim i As Intent
		i.Initialize(i.ACTION_VIEW, "myket://comment?id=" & Application.PackageName)
		StartActivity(i)

'		Dim i As Intent
'		i.Initialize(i.ACTION_EDIT, "bazaar://details?id=" & Application.PackageName)
'		i.SetPackage("com.farsitel.bazaar")
'		StartActivity(i)

	Catch
		Log(LastException)
	End Try
End Sub
  
 #Region numNotific
 
Sub tsetUpdate2
  
	Dim params As Map
	params.Initialize
  		
	Dim Book1 As String = func.readPFM("num2Notific")
  
	If Book1 = -1 Then
		
		DateTime.DateFormat = "yyyy-MM-dd"
		DateTime.TimeFormat = "H:mm"
		Dim ssss As String = DateTime.Date(DateTime.Now)&" "&DateTime.Time(DateTime.Now)
		
		func.savePFM("num2Notific",func.ENumbers(ssss))
		
		Book1 = ssss
		
	End If
  	
	Log(func.ENumbers(Book1))
   	
	Dim params As Map
	Dim params1 As Map
	params.Initialize
	params1.Initialize
 	
	params.Put("id3",func.Android_Id)
	params.Put("id2",func.ENumbers(Book1))
	
	params.Put("types",func.readPFM("kkktypes"))
 
	params1.Put("request_params",params)
	Retrofit.Json("send3",urls.get_numDS,Retrofit.toJson(params1))
  	
End Sub
  
Sub send3_onNext (ResponseBody As Amir_ResponseBody)
	
	Try
  		
		Dim parser As JSONParser
		parser.Initialize(ResponseBody.String)
		Dim root As Map = parser.NextObject
		Dim response As Map = root.Get("response")
		Dim code As Int = response.Get("code")
		
    		
		If code = 200 Then
 
			Dim message As Map = response.Get("message")
			Dim speech As Int = message.Get("speech")
			Dim notifi As Int = message.Get("notifi")
			Dim Support1 As Int = message.Get("support")
			Dim version As Int = message.Get("update")
 
			Log("speech: "&speech)
			Log("notifi: "&notifi)
			Log("support: "&Support1)
			Log("version: "&version)
			
    
			If notifi > 0 Then
				badge1.Show
				badge1.Text = func.PersianNumbers(notifi)
			Else
				badge1.Hide
			End If
			
			If Support1 > 0 Then
				badge2.Show
				badge2.Text = func.PersianNumbers(Support1)
			Else
				badge2.Hide
			End If
			
			Dim kjk As Int = 0
			If version > Application.VersionCode Then
				kjk = 1
				badge4.Show
				badge4.Text = func.PersianNumbers(1)
			Else
				badge4.Hide
			End If
			
			labBdg.Text = func.PersianNumbers(notifi + Support1 + kjk)
			func.MinimomFontLabel(labBdg,18)

			If Support1 > 0 Or notifi > 0 Or kjk = 1 Then
				labBdg.Visible = True
			Else
				labBdg.Visible = False
			End If
 			
			Try
				Dim msg_update As Map = message.Get("msg_update")
				Dim idm As String = msg_update.Get("id")
				Dim mtn As String = msg_update.Get("mtn")
				Dim title As String = msg_update.Get("title")
				Dim types As String = msg_update.Get("types")
			
				Log(func.readPFM("idm") & " || " & idm)
 			
				If func.readPFM("idm") = -1 Then
					func.savePFM("idm",idm)
				End If
			
				If func.readPFM("idm") < idm Then
					func.savePFM("idm",idm)
					pTar.Visible = True
					addPant(title,mtn,types,idm)
				Else
					pTar.RemoveAllViews
					pTar.Visible = False
				End If
			Catch
				Log(LastException)
			End Try
  
		End If

	Catch
		Log(LastException)
	End Try
  	
End Sub
Sub send3_onError (Error As String)
	Log(Error)
End Sub
 
#End Region

Sub addPant(titles As String,mtn As String,types As Int,idm As Int)
	
	pTar.RemoveAllViews
	
	Dim panBack  As Panel
	
	Dim labTitle As Label
	Dim labLine  As Label
	Dim labMtn   As Label
	     
	Dim labconf1 As Label
	Dim labconf2 As Label
	Dim labcacel As Label
	
	
	panBack.Initialize("")
	
	labTitle.Initialize("")
	labLine.Initialize("")
	labMtn.Initialize("")
	 
	labconf1.Initialize("labconf1")
	labconf2.Initialize("labconf2")
	labcacel.Initialize("labcacel")
  	
	pTar.AddView(panBack,7%x,10%y,86%x,50dip)
	func.color_border(panBack,Colors.White,10dip)
	
	panBack.AddView(labTitle,5%x,5dip,76%x,45dip)
	panBack.AddView(labLine,3%x,labTitle.Top+labTitle.Height+5dip,80%x,1dip)
	panBack.AddView(labMtn,5%x,labLine.Top+labLine.Height+5dip,76%x,45dip)
	
 	
	labTitle.Typeface = Typeface.CreateNew(Typeface.LoadFromAssets(func.font3),Typeface.STYLE_BOLD)
	labTitle.Text= func.setThing0(titles,"Ꞅ")
	labTitle.Gravity=Bit.Or(Gravity.RIGHT,Gravity.CENTER_VERTICAL)
	labTitle.textColor = Colors.Black
	labTitle.TextSize = 15

	labLine.Color = 0xFFBCBCBC
	
	labMtn.Typeface = Typeface.LoadFromAssets(func.font3)
	labMtn.Text= func.setThing0(mtn,"Ꞅ")
	labMtn.Gravity=Bit.Or(Gravity.RIGHT,Gravity.CENTER_VERTICAL)
	labMtn.textColor = Colors.Black
	labMtn.TextSize = 14

	func.heightView(labMtn,mtn,5dip)


	panBack.AddView(labconf1,18%x,labMtn.Top+labMtn.Height+1.5%y,20%x,40dip)
	panBack.AddView(labcacel,48%x,labMtn.Top+labMtn.Height+1.5%y,20%x,40dip)
	panBack.AddView(labconf2,33%x,labMtn.Top+labMtn.Height+1.5%y,20%x,40dip)
 
	If types = 1 Then
		labconf2.Visible = False
		labconf1.Visible = True
		labcacel.Visible = True
	Else
		labconf2.Visible = True
		labconf1.Visible = False
		labcacel.Visible = False
	End If
	
	labconf1.Typeface = Typeface.LoadFromAssets(func.font3)
	labconf1.Text= func.gland(31)
	labconf1.Gravity=Bit.Or(Gravity.CENTER,Gravity.CENTER_VERTICAL)
	labconf1.textColor = Colors.White
	labconf1.TextSize = 14

	labconf2.Typeface = Typeface.LoadFromAssets(func.font3)
	labconf2.Text=func.gland(61)
	labconf2.Gravity=Bit.Or(Gravity.CENTER,Gravity.CENTER_VERTICAL)
	labconf2.textColor = Colors.White
	labconf2.TextSize = 14

	labcacel.Typeface = Typeface.LoadFromAssets(func.font3)
	labcacel.Text=func.gland(341)
	labcacel.Gravity=Bit.Or(Gravity.CENTER,Gravity.CENTER_VERTICAL)
	labcacel.textColor = Colors.Black
	labcacel.TextSize = 14
	
	func.SetRipple(labconf1		,0xFF4C9A7B,0xFF5B5A5A,16)
	func.SetRipple(labconf2		,0xFF4C9A7B,0xFF5B5A5A,16)
	func.SetRipple(labcacel		,0xFFeeeeee,0xFFC8C2C2,16)

	panBack.Height = labcacel.Top+labcacel.Height+10dip
	
	panBack.Top = ( 100%y - panBack.Height ) / 2
	
'	**********************
'	**********************

	increase(idm)
	
End Sub

Sub increase(idm As Int)
	
	Dim params As Map
	Dim params1 As Map
	params.Initialize
	params1.Initialize
 	
	params.Put("id2",idm)

	params1.Put("request_params",params)
	Retrofit.Json("send4",urls.increase,Retrofit.toJson(params1))
	
End Sub

Sub send4_onNext (ResponseBody As Amir_ResponseBody)
	Log(ResponseBody.String)
End Sub

Sub send4_onError (Error As String)
End Sub

Sub pTar_Touch (Action As Int, X As Float, Y As Float)
	pTar.Visible = False
End Sub

Sub labcacel_Click
	pTar.Visible = False
End Sub

Sub labconf1_Click
	pTar.Visible = False
	downloadAp
End Sub

Sub labconf2_Click
	pTar.Visible = False
End Sub
  
Private Sub panSearch_Click
	func.savePFM("sooreh_Last_NeshanBook",4)
	resetT
	CallSub2(actBook,"show_hide_frag",func.listInitialize(20,Me,""))

End Sub

Private Sub panDownload_Click
	
	func.savePFM("sooreh_Last_NeshanBook",7)
	resetT
	CallSub2(actBook,"show_hide_frag",func.listInitialize(26,Me,""))

End Sub

Private Sub panNeshan_Click

	rs2 = sql2.ExecQuery("SELECT id FROM favebook where lang = '"&func.readNIS("lan2FaEn",1)&"'" )
	If rs2.RowCount > 0 Then
		func.savePFM("sooreh_Last_NeshanBook",3)
		
		func.savePFM("booklAs","1")
		resetT
		CallSub2(actBook,"show_hide_frag",func.listInitialize(18,Me,""))
	Else
		func.ToastERROR(func.gland(69))
	End If


End Sub

Private Sub panFehrest_Click

	resetT
	CallSub2(actBook,"show_hide_frag",func.listInitialize(21,Me,""))

End Sub

Private Sub panLast_Click

	Dim ss As String = func.readPFM("lastSeenBook")

	LogColor(ss,Colors.Blue)
	
	If ss<>-1 Then
		func.savePFM("sooreh_Last_NeshanBook",2)
		resetT
		CallSub2(actBook,"show_hide_frag",func.listInitialize(16,Me,""))
	Else
		func.ToastERROR(func.gland(69))
	End If

End Sub

Sub panBardasht_Click
	resetT
	CallSub2(actBook,"show_hide_frag",func.listInitialize(32,Me,""))
End Sub

Private Sub lab_menu_Click
	ah.OpenDrawer2(ah.GRAVITY_RIGHT)
End Sub
  
 #Region close
 
Sub close (ToastText As String)
	I1 = 0
	Ti.Initialize ("Ti",1000)
	Ti.Enabled = True
	Timr.Initialize ("Timr",400)
	Timr.Enabled = True
	tt = ToastText
End Sub
Sub Ti_Tick

	If I1 > 0 Then
		I1 = I1-0.49
	End If

End Sub
Sub Timr_Tick
	
	If I1 >= 2 Then
 		
		Warnning
		
	End If

End Sub

Private Sub Warnning
	
	Log(func.readNIS("nasar3D",0))
	
	If func.readNIS("nasar3D",0) < 11 Then
		func.savePFM("nasar3D",func.readNIS("nasar3D",0)+1)
		boolWarning = True
		customDialog.addDialog(func.gland(421),func.gland(422),func.gland(423),func.gland(424),"")
	Else
		Dialog_Negative
	End If
 
End Sub

Sub Dialog_Negative
	Manager_add.CancelAll
	CallSub(actBook,"finishAct2")
End Sub

Sub Dialog_Positive
	func.savePFM("nasar3D",12)
	nazar
End Sub


Sub TapToClose

	If boolWarning Then
		Dialog_Negative
	Else
		If I1 < 2 Then
			ToastMessageShow (tt,False)
			I1 = I1+1.3
		End If
	End If
		
End Sub
 
Sub close1
	
	If ah.IsDrawerOpen2(Gravity.RIGHT) Then
		ah.CloseDrawer2(Gravity.RIGHT)
	Else
		TapToClose
	End If
    	
End Sub

#End Region

public Sub onKey (KeyCode As Int)

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