ShowyEdge

; Gui 展示输入法状态
CustomColor := "0352ff" ; 可以为任意 RGB 颜色，这里还是蓝色
MyInput := 0 ; 定义显隐变量
Gui +LastFound +AlwaysOnTop -Caption +ToolWindow ; +ToolWindow 避免显示任务栏按钮和 alt-tab 菜单项.
Gui, Color, %CustomColor%
Gui, Show, x0 y400 w3 h500 NoActivate ; x/y/w/h 调整位置和大小，NoActivate 让当前活动窗口继续保持活动状态.

;=====================================================================o
; 按键修饰符

; CapsLock 短按切换输入法，先按其他功能键再按 CapsLock 为切换大小写；CapsLock 与其他某个键同按时，CapsLock 映射为 ctrl，如 CapsLock + w => ctrl + w
; https://zhuanlan.zhihu.com/p/389784449

; 切换是否显示输入法状态
UpdateOSD(arg) {
  Gui +LastFound
  if (arg) {
    Gui, Hide
  } else {
    Gui, Show, NoActivate
  }
}

#InstallKeybdHook
; 禁用大写功能，防止误触
SetCapsLockState, alwaysoff
*Capslock::
  Send {LControl Down}
  KeyWait, CapsLock
  Send {LControl Up}
  if ( A_PriorKey = "CapsLock" )
  {
    ; ctrl + shift 切换输入法
    Send {ctrl down}{shift down}
    Send {shift up}{ctrl up}
    MyInput := !MyInput
    UpdateOSD(MyInput)
  }
  ; CapsLock + [ 进入 normal 模式，并切换到英文输入法，系统配置的切换到英文快捷键是 ctrl + 0
  if ( A_PriorKey = "[")
  {
    ; Send {Esc}
    Send ^0
    MyInput := 1
    UpdateOSD(MyInput)
    return
  }
return

CustomColor := "0352ff" ; 可以为任意 RGB 颜色
MyInput := 1 ; 定义显隐变量。1: 英文，隐藏，2: 中文，显示

MyGui := Gui()
MyGui.Opt("+LastFound +AlwaysOnTop -Caption +ToolWindow") ; +ToolWindow 避免显示任务栏按钮和 alt-tab 菜单项
MyGui.BackColor := CustomColor
MyGui.Show("x0 y400 w3 h500 NoActivate") ; NoActivate 让当前活动窗口继续保持活动状态。
MyGui.Hide()

updateInput(arg := MyInput) {
  global MyInput
  MyInput := !arg
  MyGui.Opt("+LastFound")
  if (MyInput) {
    MyGui.Hide()
  } else {
    MyGui.Show("NoActivate")
  }
}

getIMEKBL(win_id := "") { ; 获取激活窗口键盘布局
	if (win_id = "")
		win_id := WinExist("A") ; 获取当前活动窗口 ID
	thread_id := DllCall("GetWindowThreadProcessId", "UInt", win_id, "UInt", 0)
	IME_State := DllCall("GetKeyboardLayout", "UInt", thread_id)
	switch IME_State
	{
		case 134481924:
			return 0
		case 67699721:
			return 1
		default:
			return 1
	}
}

checkInput() {
	LastKBLCode := getIMEKBL()
	If (LastKBLCode != MyInput)
		updateInput()
}

checkInput()
SetTimer checkInput, 100

;=====================================================================o
; 按键修饰符
; CapsLock 短按切换输入法，先按其他功能键再按 CapsLock 为切换大小写；CapsLock 与其他某个键同按时，CapsLock 映射为 ctrl，如 CapsLock + w => ctrl + w
; https://zhuanlan.zhihu.com/p/389784449

; #InstallKeybdHook
; 禁用大写功能，防止误触
SetCapsLockState "AlwaysOff"
*Capslock::
{
  Send "{LControl Down}"
  KeyWait "CapsLock"
  Send "{LControl Up}"
  if ( A_PriorKey = "CapsLock" )
  {
    Send "{alt down}{shift down}"
    Send "{alt up}{shift up}"
  }
  ; CapsLock + [ 进入 normal 模式，并切换到英文输入法，系统配置的切换到英文快捷键是 ctrl + 8
  if ( A_PriorKey = "[")
  {
    ; Send {Esc}
    Send "^8"
    return
  }
}