Browse Source

キーボードの設置

main
みてるぞ 1 year ago
parent
commit
bbbc867960
2 changed files with 23 additions and 6 deletions
  1. +1
    -1
      modules/char.mod.hsp
  2. +22
    -5
      modules/keyboard.mod.hsp

+ 1
- 1
modules/char.mod.hsp View File

@@ -47,7 +47,7 @@ Draw \


found = NoteFind (StrMid (text.cnt_, cnt * 3, 3)) found = NoteFind (StrMid (text.cnt_, cnt * 3, 3))


If (found = -1) {
If found = -1 {
found = UNKNOWN found = UNKNOWN
} }




+ 22
- 5
modules/keyboard.mod.hsp View File

@@ -1,15 +1,32 @@
#module \ #module \
Keyboard Keyboard


#defcfunc local \
New
insNum++
#deffunc local \
Show
showing = True
text = ""

Return

#deffunc local \
Hide
showing = False


Return insNum - 1
Return


#deffunc local \ #deffunc local \
Set \
GetChar
if showing = False {
Return ""
}


; text += charDict

Return ""

#deffunc local \
Draw


#global #global



Loading…
Cancel
Save