labelမွာစာအမ်ားျကီးေရးခ်င္သူေတအတြက္

labelမွာစာအမ်ားျကီးေရးခ်င္သူေတအတြက္scrollကိုလဲပိုမိုထည့္ထားပါတယ္နမူနာအေနနဲ႔helperထဲကကုဒ္ရွင္းတမ္းကိုထည့္တာေတာင္အမ်ားျကီးပိုေနပါေသးတယ္ကလိျကေပေတာ့
main
####
SetActivityTitle("Hello World")
SetActivityColor(0,cGray)
AddPanel("pnlMain",0,0,100%x,100%y,"")
AddButton("btn1",10%x,10%y,80%x,10%y,"pnlMain")
SetText("btn1","Read Text File")
Reading=false
AddPanel("pnl1",0,0,100%x,100%y,"")
SetVisible("pnl1",false)
AddscrollView("scr1",0,0,100%x,100%y,"pnl1")
getPanel("scr1","pnl2")
Setheight("pnl2",9999%y)
AddLabel("lbl1",0,0,100%x,9999%y,"pnl2")
SetTextColor("lbl1",cblue)
event
####
Sub Activity_Pause(UserClosed)
End Sub
Sub Activity_Resume
End Sub
Sub Button_Click(Who)
str=FileReadString(FileDirRootExternal,"Basic_lession.txt")
SetText("lbl1",str)
SetVisible("pnl1",true)
SetVisible("pnlMain",false)
Reading=true
End Sub
sub Activity_keypress(key)
if key=4 then
if Reading=true then
SetVisible("pnl1",false)
SetVisible("pnlMain",true)
Reading=false
else
activityfinish
end if
end if
end sub
Sub Label_Click(Who)
End Sub
Sub Panel_Click(Who)
End Sub

No automatic alt text available.No automatic alt text available.

Comments