63 行
668 B
Plaintext
63 行
668 B
Plaintext
#module \
|
|
Keyboard
|
|
|
|
#deffunc local \
|
|
Show
|
|
showing = True
|
|
text = ""
|
|
|
|
Return
|
|
|
|
#deffunc local \
|
|
Hide
|
|
showing = False
|
|
|
|
Return
|
|
|
|
#defcfunc local \
|
|
GetChar \
|
|
local l_ids,\
|
|
local l_touchInfo
|
|
if showing = False {
|
|
Return ""
|
|
}
|
|
|
|
MTList l_id
|
|
|
|
If stat = 0 {
|
|
Return ""
|
|
}
|
|
|
|
MTInfo l_touchInfo, l_id.0
|
|
|
|
If l_touchInfo.2 < 1920 - 480 {
|
|
Return ""
|
|
}
|
|
|
|
NoteSel charDict
|
|
;text += l_
|
|
NoteUnsel
|
|
|
|
;text += charDict
|
|
|
|
Return ""
|
|
|
|
#deffunc local \
|
|
Draw
|
|
If showing = False {
|
|
Return
|
|
}
|
|
|
|
Color COLOUR_BLACK
|
|
BoxF 0, 1920 - 480, 1080, 1920
|
|
|
|
Repeat 50
|
|
Pos 1080 - 96 * (cnt / 5 + 1), 1920 - 480 + 96 * (cnt \ 5)
|
|
CelPut BUFFER_CHAR, cnt, 3, 3
|
|
Loop
|
|
|
|
Return
|
|
|
|
#global
|
|
|