B4A=true
Group=Book\matnBook
ModulesStructureVersion=1
Type=Class
Version=11
@EndOfDesignText@
Sub Class_Globals
  
	Private pphon As Phone
	
	Private pdfhi As Hitex_PdfViewer
	
	Dim pos As Int 'Position Of Jump
 
	
	
End Sub

Public Sub Initialize
End Sub
  
Public Sub onCreateView (Parent As Panel)
	
	
		
	ProgressDialogShow2(func.gland(54),False)

	Parent.Color = Colors.White
	
	Parent.LoadLayout("pdfLayout")
 
	Dim idSure As Int = func.readPFM("idBook")

	pdfhi.LoadAdvanced(File.DirInternal,"abtahi/Book/"&idSure&".pdf",0,Null,False,False,True,0)
 	
 End Sub

 
Private Sub pdfhi_LoadComplete (Pages As Int)
	pos = func.readPFM("idPdfbook")
	CallSubDelayed(Me,"jump")
End Sub

Private Sub jump
	pos = pos
	ProgressDialogHide
	Log(pos)
	pdfhi.JumpTo(pos)
End Sub
 
Private Sub close
	CallSub2(actBook,"show_hide_frag",func.listInitialize(16,Me,""))
End Sub

public Sub onKey (KeyCode As Int)

	If KeyCode = KeyCodes.KEYCODE_BACK Then
		close
	else If KeyCode = KeyCodes.KEYCODE_VOLUME_DOWN Then
		pphon.SetVolume(pphon.VOLUME_MUSIC,pphon.GetVolume(pphon.VOLUME_MUSIC) - 1,True)
	Else If KeyCode = KeyCodes.KEYCODE_VOLUME_UP Then
		pphon.SetVolume(pphon.VOLUME_MUSIC,pphon.GetVolume(pphon.VOLUME_MUSIC) + 1,True)
	End If
  	
End Sub