Модераторы: Avada, CaptainFlint, Nik, d-view, Моторокер
Код: Выделить всё
SetHotkeyAction /H:F1 F1HintText
Func F1HintText()
ShowHint(FirstHint())
sleep(500)
If IsPressed (0x10) Then ShowHint(SecondtHint())
EndFunc
Код: Выделить всё
ControlSetMouseAction /L /K:C /B:1 17 ShowSetEnviroments
Global Envrs
ProcessExecGetOutput /OEM Envrs %COMSPEC% "/c SET"
If Not StrPos(Envrs, "COMMANDER_HANDLE") > 0 Then
SetEnv SET_SNAPSHOT %Envrs%
Endif
SetEnv COMMANDER_PID %AUTORUN_TCPID%
SetEnv COMMANDER_HANDLE %AUTORUN_TCHANDLE%
Func ShowSetEnviroments()
EnvrsHint(SET_SNAPSHOT, 60)
Sleep(500)
If IsPressed (0x10) Then EnvrsHint(Envrs, 60)
If IsPressed (0x11) Then EnvrsHint(SET_SNAPSHOT, 90)
EndFunc
Func EnvrsHint(SetVar, Length)
Local out, hint, line, i
ProcessExecGetOutput /OEM out %COMSPEC% "/c SET"
i=1
while i < 200
line=StrPart(out, auCRLF, i)
If ERROR = 1 Then Break
If StrPos(line, "SET_SNAPSHOT") > 0 Or StrPos(SetVar, line) > 0 Then
i = i + 1
Continue
Endif
If StrLen(line) > Length Then
line = StrLeft(line, Length)
Endif
hint = hint & line & auLF
i = i + 1
Wend
i = StrLen(hint) - 1
ShowHint(StrMid(hint, 1, i))
EndFuncЭто да, не люблю трогать такие вещи. Хотя что-то базовое еще придется трогать. Но это не до ближайшей беты, иначе тестирование затянется навечно.Orion9 писал(а):Особенно когда в них меняют внутренний механизм уже более-менее рабочих функций.
Тут немного другой случай, дело совсем не в перфекционизме. Но после выхода ближайшей беты надеюсь прийти к более равномерному выпуску версий.Orion9 писал(а):Это я к тому, что нет необходимости 1,5-2 года доводить до ума очередную версию готового релиза, все-равно до конца безупречной она не будет.
Попробовал, интересное решение. Возможно, возьму на вооружение, но только с тем же модификатором, который изначально вызывает хинт (в данном случае Ctrl). Перескакивать на другой модификатор лично мне что-то не очень удобно.Orion9 писал(а):А тем временем, довёл до ума функцию показа только тех переменных окружения, которые создаются во время работы/старта ТС плагином Autorun.
. Нельзя ли сделать так, чтобы после появления подсказки для заданного элемента окна, она не исчезала при перемещении мышки, пока её указатель находится внутри данного элемента (например, в пределах функциональной кнопки или заголовка)? По аналогии с подсказкой для кнопок панели инструментов.Код: Выделить всё
ControlSetHint /F /D:100 /H:2 0 "TitleHintText"
Func TitleHintText()
ShowHint(GetInfoData())
EndFuncХотел утром ответить что да, потом посмотрел - а почему бы и нетsa писал(а):Наверное, я слишком многого хочу
На мой взгляд, не стоит. Для каких-то задач , наверное, пригодится, но этот ключ нарушает привычную логику. Попробовал сейчас в деле, т.ч. исхожу не только из теории.Вроде выглядит и неплохо, но не уверен, стоит ли делать так по умолчанию
Я подозревал, что с Autorun всё возможноLoopback писал(а):а почему бы и нет
.Да не, если и нарушает, то только когда используются разные подходы одновременно. Если на всех контролах будет одинаково, то нормально. Но я что-то не уверен, что мне больше нравится новый вариант. Вообще, может и не нужна эта опция для каждого контрола отдельно, сделать одну общую на всё...Orion9 писал(а):но этот ключ нарушает привычную логику
При включенной опции /O этот метод работать не будет, т.к. фокус уходит к подсказке.Orion9 писал(а):А что имеется в виду "с опцией /O работать не будет"?
Если бы, но впечатление, конечно же, обманчивоеsa писал(а):Я подозревал, что с Autorun всё возможно
Не в каждом случае можно легко достигнуть результата.
Очевидно, что со стороны меньше возможностей контроля. Многие вещи, которые легко делаются изнутри программы, намного сложнее и "костыльнее", если навешивать их извне. Особенно в случае с Delphi. Но не думаю, что это критично.sa писал(а):Работает немного иначе, чем в варианте с тоталовскими подсказками
Где-то что-то я опять прозевал... а где эта опция /O ?Loopback писал(а):При включенной опции /O этот метод работать не будет, т.к. фокус уходит к подсказке.
