#include "mod_ime.hsp"
#define WM_COMMAND $00000111
oncmd gosub *ON_WM_COMMAND, WM_COMMAND
#define global ctype HIWORD(%1) ((%1 >> 16 ) & 0xFFFF)
a = "文字列"
b = "1234"
input a, 100, 21
hi1 = objinfo ( stat, 2 )
input b, 100, 21
hi2 = objinfo ( stat, 2 )
imeset 1
stop
*ON_WM_COMMAND
//mes ""+HIWORD(wparam)
if HIWORD(wparam) = 0x100 {
switch lparam
//文字列のみ
case hi1
imeset 1
swbreak
//数値のみ
case hi2
imeset 0
swbreak
swend
}
return