добавил третью раскладку клавиатуры (особенно полезно для жителей Украины, Беларуси, Казахстана, ...), выкладываю версии Рус-Eng-Укр и Рус-Eng;
в версии Рус-Eng-Укр прописан обратный порядок переключения языка (Eng(1033) -> Укр(1058) -> Рус(1049)), для того чтобы происходил прямой порядок переключения (Eng(1033) -> Рус(1049) -> Укр(1058)), необходимо заменить "PostMessage, 0x50, 2, 1,, A" на "PostMessage, 0x50, 2,,, A";
сделал квадратные флаги и закрепил по середине над кареткой, таким образом флаг не будет мешать вводу и редактированию текста;
для режима Caps Lock сделал небольшую зеленую рамку и привязал Caps Lock к клику ПКМ по флагу;
если скрипт будет использоваться на планшете или ноутбуке с небольшим экраном и масштабом 150%, то выкладываю версии Рус-Eng и Рус-Eng-Укр для масштаба 150%;
также отключил отображение в трее, по ненадобности.
В случае, если необходим не украинский, а другой язык третьей раскладкой, необходимо просто заменить флаг (Ua.png) и "Ukrainian" в "If (InputLayout()="Ukrainian")".
Флаги такого же вида, как были использованы в скрипте, можно найти по ссылке: http://www.freeflagicons.com/buy/square … amed_icon/. Также их необходимо уменьшить до размера 16*16 для обычного скрипта, и до размера 24*24 для скрипта 150%.
А вообще это попытка улучшить скрипт с 1-й страницы? Согласен с Flasher, что интереснее варианты с привязкой индикатора к текстовому курсору (каретке). Есть ряд таких программ и скрипт. Общий недостаток - они не отображают индикатор, если из приложения нельзя получить координаты каретки, хотя в этом случае по идее нужно просто определять координаты контрола выше по иерархии и выводить относительно его координат.
]]>#NoEnv
#Singleinstance, force
SetWorkingDir, %A_ScriptDir%/res
SetBatchLines,-1
CoordMode,Mouse,Screen
CoordMode,tooltip,Screen
CoordMode,Caret,Screen
SetKeyDelay,0
SetWinDelay,20
OnExit, Exit
RegRead, xxxx, HKEY_LOCAL_MACHINE, SOFTWARE\Scriptss, xdirectory
RegRead, yyyy, HKEY_LOCAL_MACHINE, SOFTWARE\Scriptss, ydirectory
if (xxxx="")
{
xxxx=555
RegWrite, REG_SZ, HKEY_LOCAL_MACHINE, SOFTWARE\Scriptss, xdirectory, %xxxx%
}
if (yyyy="")
{
yyyy=111
RegWrite, REG_SZ, HKEY_LOCAL_MACHINE, SOFTWARE\Scriptss, ydirectory, %yyyy%
}
Gui, +hwndhGui +AlwaysOnTop -Caption +ToolWindow +LastFound
Gui, Add, Picture, x0 y0 w20 h16 vStatic1, Ru1.png
Gui, Add, Picture, x0 y0 w20 h16 vStatic2, En1.png
Gui, Show, x%xxxx% y%yyyy% h16 w20 NA, lang053
hGui:=WinExist()
loop
{
MouseGetPos,,,mwin
oldlang:=lang
lang:=InputLayout()
if (oldlang!=lang)
If (lang = "Russian")
{
Menu, Tray, Icon, Ru.ico, 1, 1
GuiControl, hide, static2
GuiControl, Show, static1
}
Else If (lang = "English")
{
Menu, Tray, Icon, En.ico, 1, 1
GuiControl, hide, static1
GuiControl, Show, static2
}
Gui, +hwndhGui +AlwaysOnTop -Caption +ToolWindow +LastFound
sleep, 50
}
#if (mwin=hGui)
*~$lbutton::
MoveWin(hGui)
return
#if
MoveWin(hwnd,key="lbutton")
{
MouseGetPos,oldmmx,oldmmy
while GetKeyState(key,"P")
{
sleep,10
MouseGetPos,mmx,mmy
WinGetPos,wx,wy,ww,wh,ahk_id %hwnd%
wx:=wx+mmx-oldmmx
wy:=wy+mmy-oldmmy
WinMove,ahk_id %hwnd%,,%wx%,%wy%
oldmmx:=mmx
oldmmy:=mmy
}
return
}
InputLayout()
{
WinGetClass, Class, % "ahk_id" hID := WinExist("A")
if !id := DllCall("GetWindow", Ptr, hid, UInt, GW_OWNER := 4, Ptr)
id:=hID
ThreadID := DllCall("GetWindowThreadProcessId", "Int", id, "Int", 0)
HKL := DllCall("GetKeyboardLayout", "uint", ThreadID, "UShort")
VarSetCapacity(sKbd, 260, 0)
DllCall("GetLocaleInfo", "uint", HKL
, "uint", 0x1001
, "str", sKbd
, "uint", 260)
Return sKbd
}
Exit:
DllCall("SystemParametersInfo", UInt, "0x57", UInt, 0, UInt, 0, UInt, 0)
IfWinExist, lang053
{
WinGetPos, xxxx, yyyy
}
RegWrite, REG_SZ, HKEY_LOCAL_MACHINE, SOFTWARE\Scriptss, xdirectory, %xxxx%
sleep, 60
RegWrite, REG_SZ, HKEY_LOCAL_MACHINE, SOFTWARE\Scriptss, ydirectory, %yyyy%
sleep, 60
ExitappПапка с флагами прилагается ниже.
]]>Нужно отметить, что этот код отдельно от прилагаемых файлов не работает, хотя тот же ini можно было бы создавать автоматически, как это принято. Также код блокирует Ctrl. Удивительно, что такое нельзя было сразу заметить.
Вообще код на публичный не претендует. Мало кому понравится, когда их привычный указатель вдруг превратиться в багряную мигалку, которая после выхода из скрипта может отображаться вплоть до восстановления (через control main.cpl,,1).
Gui, Show, %xPoss% %yPoss% h16 w20 NA,lang053Вот готовый код.
#NoEnv
#Persistent
#Singleinstance, force
SetWorkingDir, %A_ScriptDir%/res
SetBatchLines,-1
CoordMode,Mouse,Screen
CoordMode,tooltip,Screen
CoordMode,Caret,Screen
SetKeyDelay, -1, -1
SetWinDelay,20
OCR_IBEAM := 32513, OCR_NORMAL := 32512, OCR_APPSTARTING := 32650,OCR_HAND := 32649,OCR_WAIT := 32514
SetTimer, LocaleWatch, 100
IniRead, xxxx, Position.ini, xdirectory, xxxx
IniRead, yyyy, Position.ini, ydirectory, yyyy
Gui, +AlwaysOnTop -Caption +ToolWindow +LastFound
Gui, Add, Picture, x0 y0 w20 h16 vStatic1, Ru1.png
Gui, Add, Picture, x0 y0 w20 h16 vStatic2, En1.png
Gui, Show, x%xxxx% y%yyyy% h16 w20 NA,lang053
Menu, Tray, NoStandard
Menu, Tray, Add, Выход, sub3
hGui:=WinExist()
loop
{
MouseGetPos,,,mwin
oldlang:=lang
lang:=InputLayout()
if (oldlang!=lang)
If (lang = "Russian")
{
Menu, Tray, Icon, Ru.ico, 1, 1
GuiControl, hide, static2
GuiControl, Show, static1
}
Else If (lang = "English")
{
Menu, Tray, Icon, En.ico, 1, 1
GuiControl, hide, static1
GuiControl, Show, static2
}
Gui, +AlwaysOnTop -Caption +ToolWindow +LastFound
sleep, 50
}
#if (mwin=hGui)
lbutton::
MoveWin(hGui)
return
#if
MoveWin(hwnd,key="lbutton")
{
MouseGetPos,oldmmx,oldmmy
while GetKeyState(key,"P")
{
sleep,10
MouseGetPos,mmx,mmy
WinGetPos,wx,wy,ww,wh,ahk_id %hwnd%
wx:=wx+mmx-oldmmx
wy:=wy+mmy-oldmmy
WinMove,ahk_id %hwnd%,,%wx%,%wy%
oldmmx:=mmx
oldmmy:=mmy
}
return
}
InputLayout()
{
WinGetClass, Class, % "ahk_id" hID := WinExist("A")
if !id := DllCall("GetWindow", Ptr, hid, UInt, GW_OWNER := 4, Ptr)
id:=hID
ThreadID := DllCall("GetWindowThreadProcessId", "Int", id, "Int", 0)
HKL := DllCall("GetKeyboardLayout", "uint", ThreadID, "UShort")
VarSetCapacity(sKbd, 260, 0)
DllCall("GetLocaleInfo", "uint", HKL
, "uint", 0x1001
, "str", sKbd
, "uint", 260)
Return sKbd
}
$sc1D::
If DllCall("GetKeyboardLayout", "Int", DllCall("GetWindowThreadProcessId", "Int", WinExist("A"), "Int", "0"))=0x4190419
{
ControlGetFocus, CtrlFocus, % "ahk_id" WinExist("A")
PostMessage, 0x50, 0, 0x4090409, %CtrlFocus% ;английский
}
else
{
ControlGetFocus, CtrlFocus, % "ahk_id" WinExist("A")
PostMessage, 0x50, 0, 0x4190419, %CtrlFocus% ;русский
}
return
LocaleWatch:
MouseGetPos,,, WinID
ThreadID := DllCall("GetWindowThreadProcessId", UInt, WinID, UInt, 0)
InputLocaleID := DllCall("GetKeyboardLayout", UInt, ThreadID)
if (InputLocaleID = Prev_InputLocaleID)
Return
bool := (InputLocaleID = 0x4090409)
hArrow := DllCall("LoadCursorFromFile", Str, (bool ? "EN" : "RU") . "_ARROW.ani")
hIbeam := DllCall("LoadCursorFromFile", Str, (bool ? "EN" : "RU") . "_IBEAM.ani")
hAPPSTARTING := DllCall("LoadCursorFromFile", Str, (bool ? "EN" : "RU") . "_APPSTARTING.ani")
hWAIT := DllCall("LoadCursorFromFile", Str, (bool ? "EN" : "RU") . "_WAIT.ani")
hHAND := DllCall("LoadCursorFromFile", Str, (bool ? "EN" : "RU") . "_HAND.ani")
DllCall("SetSystemCursor", UInt, hArrow, Int, OCR_NORMAL)
DllCall("SetSystemCursor", UInt, hIbeam, Int, OCR_IBEAM)
DllCall("SetSystemCursor", UInt, hAPPSTARTING, Int, OCR_APPSTARTING)
DllCall("SetSystemCursor", UInt, hWAIT, Int, OCR_WAIT)
DllCall("SetSystemCursor", UInt, hHAND, Int, OCR_HAND)
Prev_InputLocaleID := InputLocaleID
Return
hArrow := DllCall("LoadCursorFromFile", Str, "GR_ARROW.ani")
hIbeam := DllCall("LoadCursorFromFile", Str, "GR_IBEAM.ani")
hAPPSTARTING := DllCall("LoadCursorFromFile", Str, "GR_APPSTARTING.ani")
hWAIT := DllCall("LoadCursorFromFile", Str, "GR_WAIT.ani")
hHAND := DllCall("LoadCursorFromFile", Str, "GR_HAND.ani")
DllCall("SetSystemCursor", UInt, hArrow, Int, OCR_NORMAL)
DllCall("SetSystemCursor", UInt, hIbeam, Int, OCR_IBEAM)
DllCall("SetSystemCursor", UInt, hAPPSTARTING, Int, OCR_APPSTARTING)
DllCall("SetSystemCursor", UInt, hWAIT, Int, OCR_WAIT)
DllCall("SetSystemCursor", UInt, hHAND, Int, OCR_HAND)
Prev_InputLocaleID := 1
sub3:
DllCall("SystemParametersInfo", UInt, "0x57", UInt, 0, UInt, 0, UInt, 0)
IfWinExist, lang053
{
WinGetPos, xxxx, yyyy ; Использует окно, найденное выше.
}
IniWrite, %xxxx%, Position.ini, xdirectory, xxxx
IniWrite, %yyyy%, Position.ini, ydirectory, yyyy
sleep, 60
ExitappС флагами готовый скрипт здесь.
]]>