Базис + AutoHotkey

Добрый день.
Предлагаю тут развивать тему скриптов AutoHotkey для базиса

Я ужа давно работаю в мебельщике с помощью PieMeny написанное на AutoHotkey. Ну и пару своих скриптов... Снял пару роликов на эту тему на ютьюбе. Кому интересно оставлю тут ссылочки

и

Интересно может кто-то еще использует AutoHotkey в работе? Хотелось бы посмотреть примеры использования.

Официальный сайт | Русскоязычная документация

Я попробовал выложить на гугл диск актуальную версию из второго видео, но гугл диск почему-то считает этот архив зло пакостным поэтому если кому надо пишите в телеграмме(@BNikitaG) поделюсь

[sergio1982]

PHP код:

f1::
    i := 6 ; номер строки сверху минус один.
    WinExist("A")
    SetKeyDelay, 20, 10  
    InputBox, size, какую высоту текста задать, ввод цифры нужной высоты текста
    if ErrorLevel
        Return  
    WinActivate 
    ControlSend, TVirtualStringTree2, {LCtrl Down}{Home}{LCtrl Up}{Down %i%}   
    Sleep 150
    ControlFocus, TSpTBXEdit1  
    SetKeyDelay, 50, 20  
    Send, %size%
    Send, {Enter}{Escape 2}  
    Return 


[PravCom]

Сообщение от sergio1982

PHP код:
f1::

не помогло

[sergio1982]

PHP код:

f1::
    i := 6 ; номер строки сверху минус один.
    WinExist("A")
    SetKeyDelay, 20, 10  
    InputBox, size, какую высоту текста задать, ввод цифры нужной высоты текста
    if ErrorLevel
        Return  
    WinActivate 
    ControlSend, TVirtualStringTree2, {LCtrl Down}{Home}{LCtrl Up}{Down %i%}    
    Sleep 150 
    ControlSendRaw, TSpTBXEdit1, %size% 
    ControlSend, TSpTBXEdit1, {Enter}  
    Sleep 50 
    Send, {Escape 2}
    Return 


[PravCom]

Сообщение от sergio1982

PHP код:

не сработал

[sergio1982]

PHP код:

f1::
    i := 6 ; номер строки сверху минус один.
    WinExist("A")
    SetKeyDelay, 20, 10  
    InputBox, size, какую высоту текста задать, ввод цифры нужной высоты текста
    if ErrorLevel
        Return  
    WinActivate 
    ControlSend, TVirtualStringTree2, {LCtrl Down}{Home}{LCtrl Up}{Down %i%}    
    ControlGetPos, X, Y, , , TSpTBXEdit1  ;  TEdit1
    CoordMode, Mouse, Window 
    SetKeyDelay, 50, 30 
    MouseClick, , X+0, Y+0, 1, 0
    SendRaw %size% 
    Send {Enter}   
    Send, {Escape 2}
    Return 


[PravCom]

Сообщение от sergio1982

PHP код:

увы... Может Вы подскажите, где копать, я сам покопаю?

[sergio1982]

Да кто его знает, самому смотреть надо. На 8ом работает, в 22 не знаю что.
Попробуйте такой тест. В MsgBox должно быть число, если оно есть, удалите MsgBox. Если заработает удаляйте задержки.

PHP код:

f1::
    i := 6 ; номер строки сверху минус один.
    WinExist("A")
    SetKeyDelay, 20, 10  
    InputBox, size, какую высоту текста задать, ввод цифры нужной высоты текста
    if ErrorLevel
        Return  
    WinActivate 
    Sleep 250
    ControlSend, TVirtualStringTree2, {LCtrl Down}{Home}{LCtrl Up}{Down %i%}    
    Sleep 250
    ControlGetPos, X, Y, , , TSpTBXEdit1  ;   TEdit1   
    MsgBox % X
    Sleep 250
    CoordMode, Mouse, Window  
    SetKeyDelay, 50, 30  
    Sleep 250
    MouseClick, , X+0, Y+0, 1, 0
    Sleep 250
    SendRaw %size% 
    Sleep 250
    Send {Enter}   
    Sleep 250
    Send, {Escape 2}
    Return 


[PravCom]

Сообщение от sergio1982

Попробуйте такой тест.

выходит пустое окошко без сообщений

[sergio1982]

Значит в 22ом нужен клик перед вводом числа.
Он не находит TSpTBXEdit1, попробуйте заменить на TEdit1.
Иначе надо смотреть почему так происходит.

[PravCom]

Сообщение от sergio1982

Значит в 22ом нужен клик перед вводом числа.
Он не находит TSpTBXEdit1, попробуйте заменить на TEdit1.

пустое окошко, а после него запускается команда "редактирование текста", скриншотом удалось засечь...
может дело в гор. клавишах на эту команду - у меня на неё гор. клавиши CTRL + Home - убрал гор. клавишу - не помогло