B4A=true
Group=Book
ModulesStructureVersion=1
Type=Class
Version=11.8
@EndOfDesignText@
Sub Class_Globals
 
	Dim content As Panel
  
 	Private Lbtn As Label
	Private lab_back As Label
	Private labPosht As Label
	
	Private sql2 As SQL
	
	Private L_ShowMtn    As Label
  	
	Private sv4 As ScrollView

	Private L_Background As Label
	Private L_mine As Label
	Private L_Plus As Label
	
	Private int_plus   As Int

	Private Bool_Night As Boolean

	Private Label1 As Label
	
	
	
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


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

End Sub


Sub addView
	
	content.LoadLayout("add_note1")
	func.SetRipple(lab_back ,0x337FD3B1,0x884C9A7B,16)
  
	func.SetRipple(Lbtn,0xFF4C9A7B,0xFF487D66,10dip)
	
	Label1.Text = func.gland(137)
	Lbtn.Text =func.gland(139)

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

	
	sv4.Initialize2(10000dip,"sv4")
	content.AddView(sv4,0%x,labPosht.Top+labPosht.Height+1%y,100%x,95%y - 100dip-(labPosht.Top+labPosht.Height+1%y) )
	Dim r As Reflector
	r.Target = sv4
	r.RunMethod2("setVerticalScrollBarEnabled", True, "java.lang.boolean")
	r.RunMethod2("setOverScrollMode", 2, "java.lang.int" )
 	
	func.SetScrollbarColor(sv4)

	L_ShowMtn.Initialize("")
	sv4.Panel.AddView(L_ShowMtn,3%x,3%y,94%x,40dip)
	L_ShowMtn.Gravity=func.setGravity("checkBook")
	L_ShowMtn.Typeface= Typeface.LoadFromAssets(func.readPFM("fontFarsi"))
   
	L_ShowMtn.Text = CRLF&func.readPFM("titleBookY") &CRLF& CRLF& func.readPFM("matnBookY" )&CRLF
   
	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

 	changeBack(True)

 	func.setJustificationMode(L_ShowMtn)
	L_ShowMtn.Height = func.heightLabel(L_ShowMtn,L_ShowMtn.Text) + 5dip
 	sv4.Panel.Height = L_ShowMtn.top + L_ShowMtn.Height + 10dip

End Sub

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



Private Sub L_Plus_Click
	
	If int_plus<>30 Then
		int_plus=int_plus+1
		L_ShowMtn.TextSize=int_plus
		func.savePFM("sizeFarsi",int_plus)
	
		func.setJustificationMode(L_ShowMtn)
		L_ShowMtn.Height = func.heightLabel(L_ShowMtn,L_ShowMtn.Text) + 5dip
		sv4.Panel.Height = L_ShowMtn.top + L_ShowMtn.Height + 10dip
	End If

End Sub

Private Sub L_mine_Click
	
	If int_plus<>14 Then
		int_plus=int_plus-1
		L_ShowMtn.TextSize=int_plus
		func.savePFM("sizeFarsi",int_plus)

		func.setJustificationMode(L_ShowMtn)
		L_ShowMtn.Height = func.heightLabel(L_ShowMtn,L_ShowMtn.Text) + 5dip
		sv4.Panel.Height = L_ShowMtn.top + L_ShowMtn.Height + 10dip
	End If

End Sub

Private Sub L_Background_Click
	changeBack(False)
 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
  	 

	If Bool_Night=False Then
		
		func.SetRipple(L_Background	,0x884C9A7B,0x880D603E,16)
		Bool_Night = True
		
		content.color = 0xFF3F473B
		func.color_border1(L_ShowMtn,0xFF3F473B,10dip,2,0xffB0BEC5)
 
		L_ShowMtn.TextColor = Colors.White
   		
		func.savePFM("Bool_Night",1)
	Else
		func.savePFM("Bool_Night",-1)
		
		func.SetRipple(L_Background	,Colors.Transparent,0XAAEEEEEE,16)
		Bool_Night = False
	
		content.color = 0xFFFBFDFF
		func.color_border1(L_ShowMtn,0xFFFFFFFF,10dip,2,0xffB0BEC5)
 
		L_ShowMtn.TextColor = (Colors.Black)
  		 
	End If
	
End Sub




Sub lab_back_Click
	close
End Sub
 
Sub close
	func.savePFM("backNOB",1)
 	CallSub2(actBook,"show_hide_frag",func.listInitialize(27,Me,""))
End Sub

public Sub onKey (KeyCode As Int)

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