09/11/07 23:23:59 fIrrtQ9y
SHIFT+CTRLで英数モード変換
[SHIFT]を1回押すと完全に英数モードになります。親指シフトに戻すには[CTRL]を押します。
英数モードでは半角英数文字しか打てませんが、[ENTER]で改行もできます。
[CTRL]キーは漢字ON/OFFキーと同じになるので、[CTRL]キーを押すたびに
英数半角←→漢字モードが入れ替わりますが、[CTRL]+(なんとか)キーも一応動きます。
VK_CONTROL関数とVK_SHIFT関数を変更します。
func TABLE_ALLMODE VK_CONTROL
ifsw CSW_CTRLSWAP_ENABLE
# 交換する場合
TESTSYSFLAG SYSFLAG_SCANVALID
IF_TRUE 20 # 内蔵キーボードなら元の処理
# [英数]キーとして実行
PUSHIMM VK_DBE_ALPHANUMERIC
CALL _subSync
LABEL 20
endif
IF_UP 10
WINCMD WINCMD_IMESW
SETSYSFLAG SYSFLAG_IME
SETGSTATE STATE_CTRL
EXIT FALSE
LABEL 10
# up
RESETGSTATE STATE_CTRL
EXIT FALSE
endfunc