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))

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



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

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

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

Return

#deffunc local \
Hide
showing = False

Return insNum - 1
Return

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

; text += charDict

Return ""

#deffunc local \
Draw

#global


Loading…
Cancel
Save