offline reader app

offline reader app

......main......

SetActivitytitle("Offline Reader Example")
SetActivityColor(0,cGray)

x1=-50%x
SetTimer1enabled(false)
SetTimer1Interval(5)
hidden=true

AddPanel("pnl",0,0,100%x,100%y,"")
AddLabel("lbl",0,0,100%x,100%y,"pnl")
AddPanel("pnl1",0,0,100%x,100%y,"")
AddLabel("lbl1",0,0,100%x,100%y,"pnl1")

AddPanel("pnl2",x1,0,50%x,100%y,"")
AddListView("l",0,0,100%x,100%y,"pnl2")
SetColor("l",0,cBlack)
Add("l","Bmp_Lesson")
Add("l","Scripter_Lesson")
Add("l","Sync")
Add("l","New_UnRead")

AddButton("b",0,0,5%x,5%y,"")
Bitmapinit(DirAssets,"Menu.png")
setBackgroundimage("b")

AddMenuItem("Search")
AddMenuItem("About")
AddMenuItem("Exit")
.................................................................................
............Event.................

Sub Timer1_Tick
if hidden=true then
x1=x1+10
if x1>=0 then
x1=0
hidden=false
SetTimer1Enabled(false )
end if
else
x1=x1-10

if x1<=-50%x then
x1=-50%x
hidden=true
SetTimer1Enabled(false)
end if
end if

Setleft("pnl2",x1)
Setleft("pnl1",x1+50%x)
End Sub
End Sub

Sub Button_Click(Who)
SetTimer1enabled(true)
End Sub
Sub Button_LongClick(Who)
End Sub

Sub Label_Click(Who)
End Sub

Sub Panel_Click(Who)
End Sub

Sub Menu_Click(Which)
select which
case "Search"
m=inputBox("Start word","Search","","Yes","")
if m=-1 then
getText("m") & "%"
else
MsgBox("Not Found!")
case "About"
a="ေက်ာ့္ apk ကုိသုံးတဲ့တြက္" &CRLF & "ေက်းဇူးတင္ပါတယ္"
MsgBox(a,"About")
case "Exit"
b=messageBox("Want To Exit","Are You Sure?","Yes","No","")
if b = -1 then
activityfinish
end select
end if
end if
End Sub

Sub ListView_ItemClick(who, pos, value)
SetTimer1enabled(true)
select (pos)
case 0
AddWebView("w",0,0,100%x,100%y,"pnl")
WebViewloadurl("w","http://www.bmpprogramming.blogspot.com/?feed=rss")
current="pnl"
case 1
AddWebView("w1",0,0,100%x,100%y,"pnl1")
WebViewloadurl("w1","http://www.nnlscripter.blogspot.com/?feed=rss")
current="pnl1"
end select
End Sub

Sub WebView_PageFinished(who, url)
End Sub

Sub Activity_KeyPress(key)
if key=4 then
q=messageBox("Are You Sure?","Exit","Yes","No","")
if q=-1 Then
ActivityFinish
else
if key= 82 then
OpenMenu
ActivityMain("a")
end if
end if
end if
end sub
.......................................