Total Commander

Set hintF3 "View File"
ControlSetHint /B:1 17 hintF3

ControlSetHint /B:1 17 "My Hint" & auLF & "line 2"

Orion9 писал(а):срабатывает даже не через раз, а больше

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

Loopback писал(а):Не могу подтвердить. Фокус тотала ничто не перехватывает? Подсказки не будут отображаться на несфокусированном окне.

Вариант подсветки для AkelPad. Скромная-сырая-недоделанная — но поскольку это состояние перманентно, то что есть, то есть:

Loopback писал(а):надо обернуть в вычисляемую строку

Orion9 писал(а):при заходе "снизу" вероятность появления тултипа возрастает

Orion9 писал(а):Вот что еще хотелось бы по этому поводу отметить: если функция возвращает пустой текст, то хинт по идее не должен всплывать совсем.

Orion9 писал(а):Можно еще к функции добавить обработку параметра, хотя бы одного?

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, останутся только ключи. В принципе никто ведь не мешает сделать под каждый вызов свою функцию.

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>])

• Reload — перезагружает параметры из конфига TC заново
• Delay — (только для CSH) задержка появления подсказки, в мс
• Font — шрифт, порядок параметров: size, face, weight, style, charset
• BackColor, DarkBackColor — цвет фона: 0xRRGGBB
• Text, DarkText — цвет текста: 0xRRGGBB
• Border, DarkBorder — цвет рамки: 0xRRGGBB

SetHintParam("SH", "Font", 9, "Courier New")
SetHintParam("SH", "BackColor", 0x00FF00)

Orion9 писал(а):Да, уже убедился. Достаточно чуть-чуть сдвинуть указатель в нижней части и хинт всплывает исправно

sa писал(а):Кажется, проблемы возникают при отключённой командной строке.

Кстати, CSMA ведь тоже этому подвержена, но за столько лет никто этого не заметил.

Помимо вкуса это ещё ж и от шрифта зависит. Если разница в толщине между начертаниями невелика и сбалансирована, то норм. У меня, к примеру, Iosevka Curly.

Пока подготавливается справка, пускай конспект повисит здесь:

Loopback писал(а):Кстати, CSMA ведь тоже этому подвержена, но за столько лет никто этого не заметил.

Orion9 писал(а):Нужна последняя версия библиотеки

Orion9 писал(а):По-сути, можно повесить полезные менюшки повсюду "где хошь", например на той же F3

sa писал(а):Эх, какая фича-то, оказывается была: на нижние половинки функциональных кнопок можно было свои команды навесить

Loopback писал(а):Ну, фича-то сомнительная, попадать в нужную половину кнопки вслепую

Но мне бы хотелось совсем убрать жирный текст, как это сделать? А то я в этом деле совсем не разбираюсь, AkelPad юзаю "как-есть" с их сайта, так и не нашел время в нем поковыряться.)

Loopback писал(а):Собственно, с этого всё и начиналось, для этого в первую очередь и делалось. Это уже потом разрослось до универсального решения.