note app ေရးၾကည့္တာပါ ခ်ဲ႕ထြင္ေလ့လာၾကည့္ပါ

====main====

AddPanel("pnl1",0,0,100%x,10%y,"")
AddSpinner("sp",0,0,100%x,10%y,"pnl1")
Add("sp","New Note")
filemakeDir("sdcard","MyNote")
if rootcmd("ls sdcard/MyNote") = "" then
MsgBox("No Note")
else
AddscrollView("sv",0,11%y,100%x,89%y,"")
getPanel("sv","pnl2")
Setheight("pnl2",getListSize(rootcmd("ls sdcard/MyNote"))*10%y)
for i=0 to getListSize(rootcmd("ls sdcard/MyNote"))-1
AddButton("btn"&i,0,i*10%y,100%x,10%y,"pnl2")
SetText("btn"&i,getListItem(rootcmd("ls sdcard/MyNote"),i))
next
for i=0 to getListSize(rootcmd("ls sdcard/MyNote"))-1
AddEditText("edt"&i,0,0,100%x,100%y,"")
SetText("edt"&i,fileReadString("sdcard/MyNote",getListItem(rootcmd("ls sdcard/MyNote"),i)))
SetVisible("edt"&i,false)
next
end if

====event====

Sub Activity_Pause(UserClosed)
End Sub

Sub Activity_Resume
End Sub

Sub Button_Click(Who)
for i=0 to getListSize(rootcmd("ls sdcard/MyNote"))-1
select Who
case "btn"&i
SetVisible("pnl1",false)
SetVisible("pnl2",false)
SetVisible("edt"&i,true)
end select
next
End Sub
Sub Button_LongClick(Who)
for i=0 to getListSize(rootcmd("ls sdcard/MyNote"))-1
select Who
case "btn"&i
a=MessageBox("Do you want to Delete "&getListItem(rootcmd("ls sdcard/MyNote"),i),"Delete","Ok","Cancel","")
if a=-1 then
rootcmd("rm sdcard/MyNote/"&getListItem(rootcmd("ls sdcard/MyNote"),i))
startactiviti("main")
end if
end select
next
End Sub

Sub Edit_Change(Who, Old, New)
End Sub

Sub Edit_Enterpressed(who)
End Sub

Sub Panel_Click(Who)
End Sub

Sub Spinner_ItemClick(who, pos, value)
select value
case "New Note"
startactiviti("pnew")
end select
End Sub

====pnew====
====main====

AddEditText("edt",0,0,100%x,100%y,"")
Sethint("edt","Enter Your Text Here . . .")

====event====

Sub Save
a=inputBox("","Enter Name","Ok","Cancel","")
if a=-1 then
if getinput="" then
Save
else
fileWriteString("sdcard/MyNote",getinput&".txt",getText("edt"))
startactiviti("main")
end if
end if
End Sub

Sub Activity_KeyPress(Key)
if key=4 then
save
end if
End Sub

Sub Activity_Pause(UserClosed)
End Sub

Sub Activity_Resume
End Sub

Sub Edit_Change(Who, Old, New)
End Sub

Sub Edit_Enterpressed(who)
End Sub