Модераторы: Avada, CaptainFlint, Nik, d-view, Моторокер
Код: Выделить всё
Set hintF3 "View File"
ControlSetHint /B:1 17 hintF3Код: Выделить всё
ControlSetHint /B:1 17 "My Hint" & auLF & "line 2"Мне показалось, что для уверенного срабатывания указатель мыши надо подводить к нижней половине кнопки...Orion9 писал(а):срабатывает даже не через раз, а больше
Можно по аналогии с ShowPopupMenu использовать функцию с ключом /F.yozhik писал(а):Эх, похоже да, не работают в ControlSetHint с ф-ми кнопками ни переменные, ни вывод пользовательских Func, ни спец-символы (auTAB, etc.), ни даже конкатенация (&). А как же теперь?
Код: Выделить всё
ControlSetHint /B:1 17 %'"My Hint" & auLF & "line 2"'Да, потому что первый же пробел за ним в командной записи трактуется разделителем параметров.yozhik писал(а):А вот такое показывает только половину, т.е. всё после "My Hint" уже не показывает:
Код: Выделить всё
If Not IsPressed (0x11) Then
TitleLaunch
Else
ShowTitle = 0
EndIf Код: Выделить всё
ControlSetHint /F /B:1 17 "FButtonsHintText"
ControlSetHint /F /B:2 17 "FButtonsHintText"
Func FButtonsHintText()
Local tip = "No Info"
If IsPressed (0x11) Then
tip = "CTRL"
else
tip = "CTRL выключен"
EndIf
Return tip
EndFuncПробую сейчас на Win11 Pro, может, в этом дело. Но на другой системе сейчас не могу проверить. Но, вероятно, какая-то проблема все же есть, поскольку как верно заметил sa при заходе "снизу" вероятность появления тултипа возрастаетLoopback писал(а):Не могу подтвердить. Фокус тотала ничто не перехватывает? Подсказки не будут отображаться на несфокусированном окне.
Спасибо, забрал.) Сегодня вечером как раз и заценюВариант подсветки для AkelPad. Скромная-сырая-недоделанная — но поскольку это состояние перманентно, то что есть, то есть:
Ой-ё-ёй, забыл совсем за давностью. Прошу великодушного пардону за напрасный шумLoopback писал(а):надо обернуть в вычисляемую строку
Всё работает просто замечательно.Соглашусь, надо добавить проверку.Orion9 писал(а):Вот что еще хотелось бы по этому поводу отметить: если функция возвращает пустой текст, то хинт по идее не должен всплывать совсем.
Наверно можно, только этим закрывается потенциальная возможность добавить еще параметры в ControlSetHint, останутся только ключи. В принципе никто ведь не мешает сделать под каждый вызов свою функцию.Orion9 писал(а):Можно еще к функции добавить обработку параметра, хотя бы одного?
Вероятно нет, у меня в виртуалке на Win11 23H2 никаких аномалий. На основной системе с Win10 нормально, на другой с высоким разрешением и масштабом 200% тоже, так что даже разным масштабным коэффициентом не объяснить. Вообще, если на этих кнопках работает ControlSetMouseAction, то должно работать и здесь, код определения окна и прямоугольника кнопки идентичный.Orion9 писал(а):Пробую сейчас на Win11 Pro, может, в этом дело.
Да, уже убедился. Достаточно чуть-чуть сдвинуть указатель в нижней части и хинт всплывает исправно даже с клавишами модификаторами.sa писал(а):Откуда идёт заход не имеет значения: важно, где остановить указатель – в верхней (плохо) или нижней (хорошо) половине кнопки.
Код: Выделить всё
#Requires AutoHotkey v2
#SingleInstance Prompt
tc_ini := EnvGet("COMMANDER_INI")
tc_path := EnvGet("COMMANDER_PATH")
if StrLen(tc_ini) = 0
{
MsgBox "Переменная %COMMANDER_INI% не определена",, "Iconx"
Return
}
ini := IniRead(tc_ini, "Shortcuts")
Ready := ""
Loop Parse, ini, "`n", "`r"
{
aVals:=StrSplit(A_LoopField, "="," `t")
aKeys:=StrSplit(aVals[1], "+"," `t")
OutputVar := aKeys[1]
OutputVar := StrReplace(OutputVar, "C", "Ctrl+")
OutputVar := StrReplace(OutputVar, "A", "Alt+")
OutputVar := StrReplace(OutputVar, "S", "Shift+")
Ready .= OutputVar . (aKeys.Length > 1 ? aKeys[2] : "") . " = " . aVals[2] . "`n"
}
if A_Args.Length > 0
{
fb := ""
Loop Parse, Ready, "`n"
{
if InStr(A_LoopField, A_Args[1])
{
fb .= A_LoopField . "`n"
}
}
Ready := fb
}
Ready := Sort(Ready)
try FileAppend Ready, "*"
Код: Выделить всё
ControlSetHint /F /B:1 17 "FButtonsHintText"
ControlSetHint /F /B:2 17 "FButtonsHintText"
Func FButtonsHintText()
Local script, hotkey
Local pipe, tip = "No Info"
if IsPressed (0x10) Then hotkey = "Shift"
if IsPressed (0x11) Then hotkey = "Ctrl"
if IsPressed (0x12) Then hotkey = "Alt"
script = %COMMANDER_PATH% & ConfigPath & "Shortcuts.ahk"
If Not FileExist(AutoHotkeyPath) Then
MsgBox("Не найден " & AutoHotkeyPath, "Title.ini")
tip = "Не найден AutoHotkey " & AutoHotkeyPath
Return tip
Endif
If Not FileExist(script) Then
MsgBox("Не найден " & script, "Title.ini")
tip = "Не найден скрипт " & script
Return inf
Endif
If StrLen(hotkey) = 0 Then
ProcessExecGetOutput pipe %AutoHotkeyPath% '"%script%"'
Else
ProcessExecGetOutput pipe %AutoHotkeyPath% '"%script%" %hotkey%'
EndIf
If StrLen(pipe) = 0 Then Return tip
Return pipe
EndFunc
Да нормальная подсветка.) Только мне показалось, что зря жирным сделаны функции, непривычно как-то.ариант подсветки для AkelPad. Скромная-сырая-недоделанная — но поскольку это состояние перманентно, то что есть, то есть:
Да, не нужно это, согласен. Можно через обертку. А с хинтом надо смотреть...Наверно можно, только этим закрывается потенциальная возможность добавить еще параметры в ControlSetHint, останутся только ключи. В принципе никто ведь не мешает сделать под каждый вызов свою функцию.
Помимо вкуса это ещё ж и от шрифта зависит. Если разница в толщине между начертаниями невелика и сбалансирована, то норм. У меня, к примеру, Iosevka Curly.Orion9 писал(а):зря жирным сделаны функции, непривычно как-то
Код: Выделить всё
ShowHint("text" [, x, y])Код: Выделить всё
ControlSetHint [/F] [/O] [/R] [/D:<ms>] [/H:<area>] [/B:<1..7>] <id> <text>Код: Выделить всё
ControlSetHint /B:1 17 "My hint"
ControlSetHint /B:1 17 %'"My hint" & auLF & "Line 2"'
ControlSetHint /F /B:1 17 "MyFunc"
Func MyFunc()
Local s = "My hint" & auLF & "Line 2"
Return s
EndFuncКод: Выделить всё
SetHintParam("CSH" | "SH", <param_id>, <param1> [, <param2> ... <param5>])Код: Выделить всё
SetHintParam("SH", "Font", 9, "Courier New")
SetHintParam("SH", "BackColor", 0x00FF00)Точно, дело именно в этом. Неудивительно, учитывая что контрол с кнопками также включает в себя командную строку, и если ее отключить, как раз и будет такой эффект, т.к. вдвое уменьшенная высота контрола будет ещё раз делиться пополам. Так что при расчете нужно учитывать, показывается ли в данный момент командная строка.sa писал(а):Кажется, проблемы возникают при отключённой командной строке.
Это нормально. Flasher, конечно, расписал всё как с куста в справке, но много ли пойдет так далеко? Не каждый сборщик станет этим заморачиваться, тут нужен особый вид любви:Кстати, CSMA ведь тоже этому подвержена, но за столько лет никто этого не заметил.
[/cut]Ну да, с этим шрифтом смотрится получше. Но мне бы хотелось совсем убрать жирный текст, как это сделать? А то я в этом деле совсем не разбираюсь, AkelPad юзаю "как-есть" с их сайта, так и не нашел время в нем поковыряться.)Помимо вкуса это ещё ж и от шрифта зависит. Если разница в толщине между начертаниями невелика и сбалансирована, то норм. У меня, к примеру, Iosevka Curly.
Спасибо! Это дело нужное...))Пока подготавливается справка, пускай конспект повисит здесь:
Эх, какая фича-то, оказывается была: на нижние половинки функциональных кнопок можно было свои команды навесить (а теперь ещё и снабдить подсказками), в то время, как верхние половинки работали бы по умолчанию!Loopback писал(а):Кстати, CSMA ведь тоже этому подвержена, но за столько лет никто этого не заметил.
"Слонёнка"-то на 131 странице я и не приметил!Orion9 писал(а):Нужна последняя версия библиотеки
Собственно, с этого всё и начиналось, для этого в первую очередь и делалось. Это уже потом разрослось до универсального решения.Orion9 писал(а):По-сути, можно повесить полезные менюшки повсюду "где хошь", например на той же F3
Ну, фича-то сомнительная, попадать в нужную половину кнопки вслепуюsa писал(а):Эх, какая фича-то, оказывается была: на нижние половинки функциональных кнопок можно было свои команды навесить
Да и работало только при скрытой командной строке. Но и так достаточно вариантов остаётся - средняя и правая кнопки + модификаторы.Таки пришлось поковыряться. Жирный и курсив там отключается легко, а вот сделать, чтобы можно было переключаться между двумя подсветками на одном .aucfg файле, как оказалось, не так уж. Отличия от авторского варианта у вас безусловно есть, и мне синий цвет определения функций даже больше заходит, т.ч. будем пользоваться и хранить обе подсветки.)Но мне бы хотелось совсем убрать жирный текст, как это сделать? А то я в этом деле совсем не разбираюсь, AkelPad юзаю "как-есть" с их сайта, так и не нашел время в нем поковыряться.)
Настолько универсального, что пора Гислеру делать отдельную команду для связи с плагином Autorun, чтобы не задействовать сторонние средства, типа TCFS2 в качестве триггера для зарегистрированных функций.)Loopback писал(а):Собственно, с этого всё и начиналось, для этого в первую очередь и делалось. Это уже потом разрослось до универсального решения.