App in keyboard ကီးဘုတ္ဆိုလို႔ Frozen keyboard လိုဟာျကီးလဲမထင္လိုက္နဲ႕ဦး :) ေဆာ့ဝဲထဲမွာဘဲသံုးလို႔ရမယ္ေပါ့ဗ်ာ ပံုစံအမ်ဳိးမ်ဳိးနဲ႕ကလိႏိုင္သေလာက္ စိတ္ကူးရွိသေလာက္ကလိရတာေပါ့ဗ်ာ

App in keyboard
=============
ကီးဘုတ္လုပ္နည္းေမးထားတာေတြ႕လို႔ပါ အားေနတဲ႕အခ်ိန္ေလးကလိေပးလိုက္ပါတယ္ ။ကီးဘုတ္ဆိုလို႔ Frozen keyboard လိုဟာျကီးလဲမထင္လိုက္နဲ႕ဦး :) ေဆာ့ဝဲထဲမွာဘဲသံုးလို႔ရမယ္ေပါ့ဗ်ာ ပံုစံအမ်ဳိးမ်ဳိးနဲ႕ကလိႏိုင္သေလာက္ စိတ္ကူးရွိသေလာက္ကလိရတာေပါ့ဗ်ာ ဒါကေတာ့အစမ္းေလးေပးက်ိတာ ျကိဳက္ရင္ေနာက္ထပ္ ထပ္ေပးတာေပါ့ဗ်ာ;
-ဒီသင္ခန္းစားကေန message ပို႔မယ့္ ေဆာ့ဝဲ မ်ဳိးကိုခပ္လန္းလန္းေလးဖန္တီးႏိုင္တာေပါ့ဗ်ာ :)

main
====
AddPanel("pnl",0,0,100%x,100%y,"")
SetColor("pnl",0,cblack)

AddButton("1",2%x,37%y,20%x,12%y,"pnl")
SetText("1","ဆ")
SetColor("1",30,cgold)
SetTextColor("1",cblack)

AddButton("2",25%x,37%y,20%x,12%y,"pnl")
SetText("2","တ")
SetColor("2",30,cgold)
SetTextColor("2",cblack)

AddButton("3",47%x,37%y,20%x,12%y,"pnl")
SetText("3","န")
SetColor("3",30,cgold)
SetTextColor("3",cblack)

AddButton("4",69%x,37%y,20%x,12%y,"pnl")
SetText("4","မ")
SetColor("4",30,cgold)
SetTextColor("4",cblack)

AddButton("5",3%x,50%y,20%x,12%y,"pnl")
SetText("5","အ")
SetColor("5",30,cgold)
SetTextColor("5",cblack)

AddButton("6",26%x,50%y,20%x,12%y,"pnl")
SetText("6","ပ")
SetColor("6",30,cgold)
SetTextColor("6",cblack)

AddButton("7",48%x,50%y,20%x,12%y,"pnl")
SetText("7","က")
SetColor("7",30,cgold)
SetTextColor("7",cblack)

AddButton("8",69%x,50%y,20%x,12%y,"pnl")
SetText("8","င")
SetColor("8",30,cgold)
SetTextColor("8",cblack)

AddButton("edt1",1%x,10%y,70%x,10%y,"pnl")
Setinputtype("edt1",3)
SetTextColor("edt1",cblack)
SetColor("edt1",10,cgold)
Setgravity("edt1",17)

AddButton("Del",75%x,10%y,20%x,10%y,"pnl")
SetText("Del","ဖ်က္ရန္")
SetColor("Del",30,cgold)
SetTextColor("Del",cblack)

event
=====
Sub Button_Click(Who)
select who

Case "Del"
c=GetText("edt1")
d=StringLength(c)
if d<>0 then
d=d-1
end if
e=SubString(c,0,d)
SetText("edt1",e)

case"1"
SetText("edt1",GetText("edt1") &" ဆ")

case"2"
SetText("edt1",GetText("edt1") & "တ")

case"3"
SetText("edt1",GetText("edt1") & "န")

case"4"
SetText("edt1",GetText("edt1") & "မ")

case"5"
SetText("edt1",GetText("edt1") & "အ")

case"6"
SetText("edt1",GetText("edt1") & "ပ")

case"7"
SetText("edt1",GetText("edt1") & "က")

case"8"
SetText("edt1",GetText("edt1") &"င" )

end select
end sub