Код: Выделить всё
if A_Args.Length > 0
{
ToolTip STDOUT
KeyWait "RButton", "D"
}
try FileAppend STDOUT, "*", "CP0"
Ну почему же... Для описанной вами задачи должно быть предусмотрено какое-то решение, чтобы не проверять скорость и ловкость своих рук и не использоать баг как фичуsa писал(а):Не думаю, что тут стоит заниматься какими-то добавлениями или доработками
[/cut]Значит, будут "бороться с таким поведением!"Orion9 писал(а):не использоать баг как фичу
Ну, а куда деваться? Вся наша жизнь борьбаsa писал(а):Значит, будут "бороться с таким поведением!"
Код: Выделить всё
[em_informers_update]
button=
cmd=%COMMANDER_PATH%\Scripts\Ahk\AutoHotKey32.exe "%COMMANDER_PATH%\Ini\Title\Title.ahk" -tc-force
param=
iconic=1
[em_informers_relaunch]
button=
cmd=%COMMANDER_PATH%\Scripts\Ahk\AutoHotKey32.exe "%COMMANDER_PATH%\Ini\Title\Title.ahk" -tc
param=
iconic=1
[em_informers_tooltip]
button=
cmd=%COMMANDER_PATH%\Scripts\Ahk\AutoHotKey32.exe "%COMMANDER_PATH%\Ini\Title\Title.ahk" -tooltip
param=
iconic=1
Код: Выделить всё
Global Envrs
ProcessExecGetOutput /OEM Envrs %COMSPEC% "/c SET"
ControlSetMouseAction /L /K:C /B:1 17 ShowSetEnviroments
Func ShowSetEnviroments
Local out, hint, line, i
ProcessExecGetOutput /OEM out %COMSPEC% "/c SET"
i=1
while 1
line=StrPart(out, auLF, i)
If ERROR = 1 Then Break
If StrPos(Envrs, line) > 0 Then
i = i + 1
Continue
Endif
If StrLen(line) > 50 Then
line = StrLeft(line, 50)
Endif
hint = hint & line & auLF
i = i + 1
Wend
ShowHint(hint)
EndFuncКод: Выделить всё
ControlSetMouseAction /L K:C 1 ShowCtrlHint
Func ShowCtrlHint()
Local hint
hint = RequestCopyDataInfo("LP") & RequestCopyDataInfo("LN")
ShowHint(hint)
EndFuncКод: Выделить всё
SetMessageAction "BarMessage" SetBarLines
Func SetBarLines()
Local lines
IniRead lines %COMMANDER_INI% "Buttonbar" "BarLimitLines" 1
If lines = 1 Then
IniWrite %COMMANDER_INI% "Buttonbar" "BarLimitLines" 2
Else
IniWrite %COMMANDER_INI% "Buttonbar" "BarLimitLines" 1
Endif
SendCommand 2901
SendCommand 2901
EndFuncКод: Выделить всё
[Macros]
hasLimitLines=tcini(Buttonbar, BarLimitLines, 1)
[Items]
bbltd=if(hasLimitLines, set_tcini(Buttonbar, BarLimitLines, 2), set_tcini(Buttonbar, BarLimitLines, 1)) msg($0B, 0, 0) tcm(2901) tcm(2901) msg($0B, 1, 0) run_item(update)Код: Выделить всё
Func SetBarLines()
Local lines
IniRead lines %COMMANDER_INI% "Buttonbar" "BarLimitLines" 1
If lines = 1 Then
IniWrite %COMMANDER_INI% "Buttonbar" "BarLimitLines" 2
Else
IniWrite %COMMANDER_INI% "Buttonbar" "BarLimitLines" 1
Endif
SendMessage(AUTORUN_TCHANDLE, 11, 0, 0)
SendMessage(AUTORUN_TCHANDLE, 1075, 2901, 0)
SendMessage(AUTORUN_TCHANDLE, 1075, 2901, 0)
SendMessage(AUTORUN_TCHANDLE, 11, 1, 0)
EndFuncКод: Выделить всё
bbltd3=msg($0B, 0, 0) msg(regmsg(BarMessage), 0, 0) msg($0B, 1, 0) run_item(update)
bbltd4=msg(regmsg(BarMessage), 0, 0) run_item(update)
Такое ощущение, что функция ShowCtrlHint не запускаетсяOrion9 писал(а):Такое ощущение, что новая функция RequestCopyDataInfo не работает
Потому что слеш в установке модификатора потерян: ControlSetMouseAction /L K:C 1 ShowCtrlHint.Ну так после блокировки перерисовки окно все равно как-то надо перерисовать, тем более после таких изменений.Orion9 писал(а):Теперь при вызове из TCFS2 наблюдаются попытки что-то загладить и перерисовать, но смотрятся они очень плохо, словно не дорабатывают до конца.
Не знаю, честно говоря, сильно думать в этом направлении не очень хочетсяOrion9 писал(а):Можно ли в Autrun добится того же эффекта гладкости, что и в TCFS2, есть варианты?
Неудивительно, что TCFS2 справляется лучше, она делалась именно для целей работы с окнами ТС. Можно ли сделать что-то - наверно можно, но это время на тесты и исследования. Можете пока попробовать релизовать то же самое на ahk, чтобы понять, чего ему не хватет. А я, пожалуй, лучше сосредоточусь на допиливании основного модуля, а то последнему релизу уже полтора года.Да уж... Такое ощущение, что без двух кружек крепкого кофе мне больше за Autorun лучше не садитьсяLoopback писал(а):Такое ощущение, что функция ShowCtrlHint не запускается
Пытался той же командой run_item(update) из TCFS2, но она не срабатывает полноценно, хотя что-то пытается делать вроде.)Loopback писал(а):Ну так после блокировки перерисовки окно все равно как-то надо перерисовать, тем более после таких изменений.
А если в Autorun добавить свою функцию Redraw, поможет это как-то решить проблему? Там вроде всего одна api-функция вызывается, если не ошибаюсь.Loopback писал(а):Не знаю, честно говоря, сильно думать в этом направлении не очень хочется
Кажется, я как-то пробовал: результат был таким же. Еще тогда обратил на это внимания, что в TCFS2 всё работает как надо, а через вызов перерисовки из ahk не совсем. Но надо будет еще попробовать.Loopback писал(а):Можете пока попробовать релизовать то же самое на ahk, чтобы понять, чего ему не хватет.
Это хорошо. Вы только не загоняйте себя во временные рамки. Как уже было сказано - главное, чтобы теплилась жизньLoopback писал(а):А я, пожалуй, лучше сосредоточусь на допиливании основного модуля, а то последнему релизу уже полтора года.
А всякие сроки и и дэдлайны - это всегда лишний стресс.)Разве только перенести команду 2901 из функции в вызов TCFS2?Orion9 писал(а):Всё работает, но...
Код: Выделить всё
TCFS2.exe /ef "msg($0B, 0, 0) msg(regmsg(BarMessage), 0, 0) tcm(2901) tcm(2901) msg($0B, 1, 0) run_item(update)"Могу для пробы сделать обёртку для RedrawWindow. Не знаю, поможет ли.Orion9 писал(а):А если в Autorun добавить свою функцию Redraw, поможет это как-то решить проблему?
Про дедлайны и речи не идет. Просто надо было немного по-другому делать. А то получается, что было много исправленных багов, но версию выложить не могу из-за сырости. Хорошо хоть плагины можно править независимо.Orion9 писал(а):А всякие сроки и и дэдлайны - это всегда лишний стресс.)
Да, это рабочее решение.) Только получается, что функцию Autorun, в таком случае, не будет большого смысла вызывать (только лишь для того, чтобы считать и записать в ini-файл). Поэтому пришлось прокачать её до 80-го уровняsa писал(а):Разве только перенести команду 2901 из функции в вызов TCFS2?Код: Выделить всё
TCFS2.exe /ef "msg($0B, 0, 0) msg(regmsg(BarMessage), 0, 0) tcm(2901) tcm(2901) msg($0B, 1, 0) run_item(update)"
Код: Выделить всё
Global BarTimer = 0
SetMessageAction "BarMessage" SetBarLines
Func SetBarLines()
Local lines, j, T1, T2, fs2, timeout = 10
If StrPos(ExtraPayload, "Bar") > 0 Then
BarTimer = 0
Return
Endif
IniRead lines %COMMANDER_INI% "Buttonbar" "BarLimitLines" 1
If lines = 1 Then
IniWrite %COMMANDER_INI% "Buttonbar" "BarLimitLines" 2
Else
IniWrite %COMMANDER_INI% "Buttonbar" "BarLimitLines" 1
Endif
fs2 = FileExist(%COMMANDER_PATH% & "\Utilites\TCFS2\TCFS2.exe")
If fs2 Then
ShellExec /SW_HIDE /WAIT:2000 "%COMMANDER_PATH%\Utilites\TCFS2\TCFS2.exe" _
'/ef "msg($0B, 0, 0) tcm(2901) tcm(2901) msg($0B, 1, 0) run_item(update)"'
Else
#SendMessage(AUTORUN_TCHANDLE, 11, 0, 0)
SendMessage(AUTORUN_TCHANDLE, 1075, 2901, 0)
SendMessage(AUTORUN_TCHANDLE, 1075, 2901, 0)
#SendMessage(AUTORUN_TCHANDLE, 11, 1, 0)
Endif
If lines = 1 Then
BarTimer = 1
For j = timeout To 1 Step -1
If BarTimer = 0 Then Break
ExtraPayload = " > Bar: " & j & " sec."
T1 = GetUptime()
While GetUptime() < T1 + 1000
If BarTimer = 0 Then Break
Sleep(50)
WEnd
Next
If j > 1 Then
ExtraPayload = " > Pinned"
Else
ExtraPayload = ""
Endif
Sleep(750)
If BarTimer > 0 Then
IniWrite %COMMANDER_INI% "Buttonbar" "BarLimitLines" 1
If fs2 Then
ShellExec /SW_HIDE /WAIT:2000 "%COMMANDER_PATH%\Utilites\TCFS2\TCFS2.exe" _
'/ef "msg($0B, 0, 0) tcm(2901) tcm(2901) msg($0B, 1, 0) run_item(update)"'
Else
SendCommand 2901
SendCommand 2901
Endif
EndIf
BarTimer = 0
ExtraPayload = ""
EndIf
EndFunc
Для пробы - можноLoopback писал(а):Могу для пробы сделать обёртку для RedrawWindow. Не знаю, поможет ли.
Почему не можете? Беты никто не отменялLoopback писал(а):А то получается, что было много исправленных багов, но версию выложить не могу из-за сырости.
Я что-то подобное предполагал, потому и не стал предлагать чтение/правку ini-файла переносить также в строку для TCFS2. Скрипт работает, только у себя для развёрнутого вида панели инструментов указал количество строк 0 вместо 2.Orion9 писал(а):Теперь она не только переключает строки на главной панели
О! Это дельная поправкаsa писал(а):Скрипт работает, только у себя для развёрнутого вида панели инструментов указал количество строк 0 вместо 2.
Я тоже себе так поставил.)[/cut]
Эксперементировал и забыл убрать.) Хотя мне такой вариант даже больше нравится: хинт появляется почти мгновенно и ничем не мешает, если не считать двойной клик, но это мелочи.)sa писал(а):Ну и задержку появления подсказки для заголовка (/D:10) вернул к первоначальной /D:350.
Жаль, что от тоталовской она чуть-чуть отличается: нельзя изменить цвет рамки и убрать отбрасываемую тень. Но я этих делах не эксперт (субклассинг и прочие системные штучки), поэтому взял модуль "как есть" )sa писал(а):Подсказка непосредственно из Title.ahk тоже вызывается теперь в привычном стиле. Это приятно!
Код: Выделить всё
fCoins()
{
coin_usd := "https://api.coingate.com/api/v2/rates/merchant/USD/RUB"
coin_eur := "https://api.coingate.com/api/v2/rates/merchant/EUR/RUB"
usd_temp := A_Temp . "\coin_usd.json"
eur_temp := A_Temp . "\coin_eur.json"
try
{
FileDownload(coin_usd, usd_temp)
FileDownload(coin_eur, eur_temp)
}
catch
{
Global STDOUT .= "Coingate #Download Error`n"
}
else
{
try
Global USD := Format("{:.2f}", FileRead(usd_temp, "CP0"))
catch
Global STDOUT .= "Coingate #Error Reading File:`n" . usd_temp . "`n"
try
Global EUR := Format("{:.2f}", FileRead(eur_temp, "CP0"))
catch
Global STDOUT .= "Coingate #Error Reading File:`n" . usd_temp . "`n"
}
}
Код: Выделить всё
Global CBR := 1, Meteo := 1, Metar := 1, Yandex := 0, Coins := 1
Coins := IniRead(config_ini, "Sources", "Coingate", Coins)
if Coins = 1
fCoins()
if Yandex = 1
fYandex()
if !(Yandex = 1 or Coins = 1) and CBR = 1
fCBR()
Код: Выделить всё
[Sources]
Coingate=0