Autorun

sa · Сообщение sa » Пт май 17, 2024 19:08

Orion9
По-моему, это не совсем то – в моём варианте, я могу, например, переключиться в окно браузера или редактора, а окно подсказки при этом не исчезнет (останется на переднем плане).

Orion9 · Сообщение **Orion9** » Сб май 18, 2024 00:12

sa
Понятно. Тут уже Loopback нужно просить, чтобы он добавил ключ прикрепления/"поверх все окон" для функции тултипа

Еще как вариант можно использовать вызов самого ahk-скрипта напрямую, добавив в него строки для показа собственного тултипа. Если вдруг нужен такой вариант, то можно провести небольшую модификацию:
[cut]

Код: Выделить всё

  if A_Args.Length > 0
  {
     ToolTip STDOUT
     KeyWait "RButton", "D"
  }
  try FileAppend STDOUT, "*", "CP0"

[/cut]
Перед "try FileAppend" добавьте, и теперь при вызове скрипта с любым параметром будет всплывать тултип у указателя мыши, например у меня: "C:\Portable\T 11 03\Scripts\Ahk\AutoHotkey32.exe" Title.ahk -t

Правда тултип другого стиля, но это тоже можно будет поправить, если вам будет нужно.

sa · Сообщение sa » Сб май 18, 2024 07:32

Orion9
Не думаю, что тут стоит заниматься какими-то добавлениями или доработками, я-то слепил этот вариант из того, что было. А за предложенные способы, спасибо!

Orion9 · Сообщение **Orion9** » Сб май 18, 2024 11:37

sa писал(а):Не думаю, что тут стоит заниматься какими-то добавлениями или доработками

Ну почему же... Для описанной вами задачи должно быть предусмотрено какое-то решение, чтобы не проверять скорость и ловкость своих рук и не использоать баг как фичу

На счёт добавления новых ключей к тултипу Autorun я не уверен, а вот добавить в ahk-скрипт возможность, чтобы он сам показывал хинт при вызове с параметром, это можно и даже нужно. Просто я сразу об этом как-то не подумал потому, что:

[cut]Никогда не запускаю Windows без Total Commander

[/cut]
Т.о. можно будет вызывать подсказку где угодно и без окна ТС, т.ч. надо будет доделать.

sa · Сообщение sa » Сб май 18, 2024 14:21

Orion9 писал(а):не использоать баг как фичу

Значит, будут "бороться с таким поведением!"

Orion9 · Сообщение **Orion9** » Сб май 18, 2024 23:57

sa писал(а):Значит, будут "бороться с таким поведением!"

Ну, а куда деваться? Вся наша жизнь борьба

Развил тут немного тему посмотреть, что получится. Помимо возможности вызывать тултип, добавил еще форсированное обновление с интернета и перезапуск информеров.

[cut]MIME-Version: 1.0
Content-Type: application/octet-stream; name="Title.7z"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="Title.7z"

N3q8ryccAATQfJ3FWywAAAAAAAAjAAAAAAAAAE45vujgrlsrwF0Ad67T4iEQ/Sefl4dP2arUOOdT
xyvnZabrYjctGLoEBpE83A2do+6D2wPc9dPglmdXK7jftRmTjVBsmoWCZ8ROAKmvG+4KHUxhKBMH
i3GDnMo/HBPQ20dauIastPFpK9UPLOmZi7F9p3KGyubDxCB6G5Q4x32fWSRCoNM7N+j3GX9h1DU6
6gOhRE4KJdM+Zeh8/sHRrBeYwQdJ6PEYZvHHBt1ONmD+rAa5Bxf2pv7295kDvYB26Sfj/QhWBEWl
Q+iMNypgIPWGjzABMVq84mQsWncrUDbRC4vcsjjkCSm3a4MI+mtXcwN82JeIZJqg0KLX0xpnQoCy
y6XVuaJU6PlK4McToVHn78uxDvKIDzWTN0FAf8h+6vWAKXl9qMhIS+ANcA42TlC132ZeEATuP5fU
EHW+wouBffbIdHQMnH6kPV63X5bVvOpUPZAXR85jSvjJR6+7YRS7rOaCZMLg8dbZNQ+7asUWXYiy
BVIIK6al8/VOmP9Es2D6EYVk0xxbzdHoa5KN8vOdZWUzb/STfOv8X0izOxqvDuah+GOaRmyJB4rL
fHhNoRLGpEhN2e+HTlalMphANvnYeqFWCVycOxASCIz/uAOIlVvTkZ/Cyx5/O7AbKYiUJpkZZats
m4GUrwsqBNP5yyW18SOtYj4gSAIvKRx75JuFeSl+xr3jCLp9nLCrrEYR8Sdg2wyuuMegRyF71ctn
PBZnc24EwWDby94XkiBEAiCCZY5lZQ/y5nG/viZNimDWYlCED23yfdFETci0GXhitwyAhmtqO1D0
DmtY9J1wnqli16/UNgS6srKHh+TRrA1U17/lqRApLkNwJWYew9Ay07idxNcwRa26gdKgMMG/sXse
xZvB2/9HCh4Dl1yFwukfxvRKGo3mSsq3Z9/Emqxvur4lQo6niEwTXFyFXZk2jIpQx2Mdi2TMB2ub
CMsrQhifxbJpkpwpaPcGtMXZiBO8/uG2dGpJy9F/u3UG/syu1V5AUuwluFU15mKmtJ7R3HlrEfa2
WlvpNR+60wjYau+nBa83iRd9kKB1ecr7I2L1Z6sbcanaKf1EDOJGSle5IRlms48cspCFMLLWQuBY
ojSrzE9sH6/+bWE05IQRqAUp6V0llmYcfwEiJd87mw3LdgJLLGYNLd7Bc8GcEcC1f6+fKurU2Det
iR+I0TfjT86skNdhSnDkZbl/iwH56LIpKukF5BCoZTk/DaKyZQb1CJl8ZAEaemoSHhJtPnVOrCse
n10itxMUd5XeLAhrhkI0r7nGcLzkN+gQBtfVcsNDFjPtdz1sV+P0L50UHzp0lwmqfY0AiCPYgS2V
0wNtN/4vlL6lHJILMOE973IeXBQZeS4v0aJrr7pJCoTKOAQZgo4wWVV1eVx84ZmhCo9fFKOapfog
ilhb7M1vdZaRcFBP9ObGlhElFtFf9mx+LXj1oqR4c+tkWdGwiw1ufWCyu+zBAKc0pJwiMsVEU+xf
a4tsKtsJQpDJTU+Lo0NofaBv6r1Z/zMphTchnkMZy948Pm4E1ZOlbuFOlF5aBeNFIg9O5IFhRiil
1CZ4Xk0Jq/JEQ/xkEJ7fRghXPR7inWBZjxDsZl+g7yfBWE6D1Onp7aXNkPdTrffYDEQ850EGuxvE
hWyR1JKHUiqot3fNllttkb4H5drSJJqAwctmoIA3KbE7t4mttmUvfEcAttoCLTJ8KpUeewA07cBH
u+uYsl34+o3Zyyp1OXWlFNzNYOf4IeVk4tJrThvrFrzQAhXsTReni1k7qBF9DESrmf+yPOJWMocj
LX1HX0XdPhci2YQYtyL8Q8TrooAVm3XoBJKmH5fSgNHRNYT5R9sDbkWdrDtXNy5w89qUPxRJXNTg
i6nu1EiKgiAABRa4RhzVJCPQ10cE1dfa3KWCm3I8HSes7lGXKuf72WtXecnlYvN/I1791i4WHpx8
DAX9A86iYhnbCGsDflKGBLMIcaHaXnkKIMqtWxnWFHY6pu+M3VgosAh7vyinQCZvFjXDeY6kxROx
nDtTlmmwyf5GEoy7osYvGmUszIqFxyBIheSY5xFxMkQwekqHRFCitqXSAq17msncGco3sJo6t4Lz
hPYaCgxjsiaoLtm2JzoO2c/CFsdBiILZ1XgTw9C8Lau/txrmn8pu9AgvJSm7m3Cqx56mIN3vgguH
i4XBxAtPgw1n63Zh8T2fJNBLVDGcDAxY1Ohi70rWfg+EKyToeF4PwNohHJkcVACeI3WT9iAoFL+k
Z7RxvYIh7gISEIZAf++U5bqFKotw3k6VzEX+UN6hYNvIx6WaccjSoRx9By9Q/OnI9gndPGi8eMDx
Hsypt3dnEJW38oX6gJYecp1Z2paVLefBX+x5jKftK1/qP9z9k9x0QubQ/xiQ6faOr95AXaHv/t1Y
/kpK8EmMpcCjmkJuJJST8wyowKJLPPYaJEk2UtH4J0TQNJgb8gJ27LW4MAL8nMiH4ujhmwdkonjq
OOvYq/p+4RG4ar89rkgXuJ6NLXN71ALHnIDASq2pCBZ9CtgMiwOhGegpkI52H7VkvrzujKqwGznj
Jse5ZMmwOCTnE4awnyM5wjP0I3Hbj3Qx34DpdWj3UhuhPR5pPPGc05qUiQjnua28TOMhFLnrwyC6
RZx09+pIj+CPDKQTR/urIcxcUqdZH9wbrMLdAjMbXCAM7VFp9FRfo8hCp5T2i0Hbpw5S2wZ5IAAy
8pWaeXukMiT0M8mkbPyeoPePugKOM62a/UgR6gJtaX0rhcQEsS3rVhcOA8xE6QRhylDxiC1W8iYP
ZUhJmieJBnllsshaUM7tOT7hJXiaromHg//eqfJBB5DFsH1HglZFiLaUeomxfHuOxFqpXICe9z03
4l0+u4hDJVlO+YxOVX7nvZWX/QrQf9EvCi8s/gLGIXCUgE6996WMMZr1MHoax1Q+3DnQ3cR603q8
6DcmHkFXWsOlkjDBoApsd6ZqyXf/HIEIhAoAVwN9yk7RyRBBF5dhwwlCN0bEGtOn+mM+JwICXhLc
BCSrnWMjqzrcdkyLIyPWXfUKGAQsH3rqFGkv2D0n5c23D7WJBLzPmj7ee6yis2p9zTOLfQLOX4Q8
DfXnwASpW7jIAYhJly0Goj3+SrYDGi1xtoumEl7ssEMoweXF6X8cque0RrG9uKpVz6remIdnQ10S
QN2MwKlPn5/nKkGbsC4ZgbBqYVKP+SLFEfOpwOBBJ73q5RpWyw/tA+F4zGlo+VZeHNaQLX3ngcpo
eGmYchzpNF8ZbZEeFNj6gLA9FSymaw9cqXAThJ556csjTEUFG4J0PKQGqJzfU7LVzt81PBFm/XCU
u9PlFqteJCPuUCZ2xZ2RXfHC0GOOd3HKMw9gFEtGq80ZJeiTs7E2GaDy4oLBeQLJxN4y6NxPtviv
OlumtoSXXVD+CKCfCwids/kU5A4uLMb6LRPy4Qd08hqGOeLxLobWiDGZ6/Ji1Onwgxyhomrqt2Z0
N2hl4eldpTr5AiL2c3jTQzk4WFPV8U9AW09vWv+C7tA0Ix5mWt0A4IdA4AB9aOAu2u+VyDEJTF68
XOCWbO+zfV+q5sFFOjWYF/Rao9xUZyuqO+N4Z5zjYWpgCK/r09Uqof05AadblgvIVdaHQslVQ2PB
oL+P92dRGMSkqyMJXj3y4YUlSm82NVWHJON0lnUb53wpidaEN6T8/523T9+TG0rc9C7e3KDZn78L
Eb/pDK2o8Ujjjd67bAJ/uxfZGa1hu5jtx2AXH+TVEZtYRO5/g0wSjNPA5k4+yft0Cmn+GgRmScBE
Ntyc9ksN/3T4NIovJAtv+JTvoNlAlE6u2IG8DF5PtgXeFlfrQm0Mp0aWUVDBeOb9Kbxp0JYCL6RK
2Ub5Aa3Q0iha8kIOWXMjtoPqdDRb6KxqVcjd2sGyod9UbdodtWGmHYZfX/pB47UJCa0SAO35AE9H
Q3ZIzzIWigk7Jj6vZN+7lkLwqdgqO/+8akV3WoIlU6WY1sRhBr6J0G8ywWpwiBqeZXhvSXPbmFZE
0ltIMw+1cw5hz1gubuCOiPuMOBqJQmECGF0Tk9fIhC61hn0wP279wzv08zI9V87elh+BXTIREXPd
JXKlu52KJZQd+WBV3JC3F4bxFQnWW9ixUFktzaPEkFfOuCa+JRyMb/P7CNOUdzujj25HjacxpN/x
FPXAjt+iwQoQzjxlPps95NYczfCk+fkJyP/K1Zscvy7wR4ljfpoLYuMpPFCZx/26JX5VpI8xgHpZ
HCzn4KWPBBUPZuKPvhzrHKxzgr+8d5Kz/J8/HzWCW+83CIRlSgs0JLwwXMhnqUWzq8BY4Ycl6Q8B
sUkjPiQPhw8F+yfrikVfjrWXPi7aMliTC7PgS5YhT3tFgVhtqwtuTVezZnienPkPcbDuUwTivHFC
kSWzaj9aGbXLJkybIbqR0o/iezkVRTtf15LB8bEk6Yg9irfdmyAlL3nqCrJA2u8lQe0bdSmTKzP2
Q/84kF2g83qt7K4XXflsSx+lQKYfFsyB37BgmB6z12XOxzhHVOVGiE6SZo1p4zI5cDzy0DXJ2Ngh
ND2OOuxmgNo4FIBVcNqoSOqnhTf0WxLjurFmQcEnLksl8X678JFn0iHL0L9T9w+YSBiBfPbEQkXD
kZKQk6w+q2IDXRPH1bEHZ605jJYQlFEntcfMrbqVLbl2TPSW9AwbuXr7e9L/jRnB1GXYEtloAYYt
7CgYkTTFuDoKIkWrIFTYZXTKYHjCsHEe39icZwAOYG7EKspWRU2WgsYL6M4BzyKYAF/+MiME0yr8
YaQYj3cRlRErcEZdwGKIJw8ORNoGjsv+n9aKQnnjZiPWDwBdv8oCM9twICjwbUoivGYtYS96ZAn8
I5nkk7rJ3uWPVc+2hBpBE2OtG6hCaPzpSa5gHUIJWK3+gbDAjXxOsX4CShKBPSpKdU5FLM67GC4f
MpyCSUEDvdgx8+UG5heTvS7sV7czuUVs4Y55+VzgNdubWYbbSWynFdKGwaFh43hQ9Fg/laK/R9RW
QjxYYNqtl0L9//OSpGPGpYKwdlDjllu0qftCOuk1HMoNWGBa5LenP/KX0c3qZy2rylwa6+0/fTaX
V3flXBWoXcFX02eFSYE3fRcs5EGqo48nKyMkoCo9FTm4QVA1+8VPkub+iAPftkPrqBDk1Q5vCoxR
Kh52NUwNvieK9jmphU1cVIDF4CtiK7KL43CmZgy/fMH56Hte9dlKivQGh26gUcGKoNvVvBluI/SR
26B02v9EW05Mr2qPTdIDoT1Rjv0vhVjOw8Q4ZPGGXKhqlqDlb3qKCYCoagdMcj4BiptWBkBDj4tZ
j0GSKxOlgc6jKHKQru0kenVioNnQoiTo7ckVGS5XXQzU4OyEYptzf35RvggTEPQzK6nDAFgTFRNd
K7TBo82Or6jwuGgFYOyB53izrAWIgA67T+dUJz723gO3bxqNpfE4UfMOalSvVK/i9BuKnTDe9IHd
uly2rGQRsi5KkVYuqECAWyMA9BQIR61OsXWW1omR0ae7GFu3AHuYXAaotWMbyS1F91fLlM5e3jnJ
bxxbwVE3bAXhJlAocsON+06w97QHSrUUQ9kDZIkliK8CFZzgdpjhc4RCAAHw866DTi0QW3NY482b
gGQj1tyHFM1ZlckL2Q4Dfp0DURjO4DKznQ5+SqjAePlIfORlu7eux2GLsCtLX2Vku1bz8+xRDe/C
U5yjZm3rHX0MzWnebM/QS87YH4+mdvoEjqvS4L4u7rWQ+veY+ryBUXS6Y+PkudB3AF6lVZOOOngl
Ocq/2e1FLNHuFyLa2JbWVy2j+rTUo5jqycKheYg/8eSCdQcYdIoO5A8msE5jUvYCbh7vEtyrXKCp
FHZijUq/Q5c960RE9iRr5iNxbwdKbCQTy/bjYX78IMixC4csJmg/OpWmEChSNrJt4qEcvk/e10wD
hNwZ5sxm5IG2TslIgYl8rEfW37BFsI1ltr5FeyBspxOZCVK657HQdEfP9qoclQjQNLFnIlnckGIk
M33cUnQ/h0b4jMugc5HHj5eEk7+KHf/eoTbHoGPC+etHT+wMp/bFhm30VelxHELQynKlHUWljGyi
IUzUFRRTSNhjYMmcNblcLn+Ur0ZgwVlOsn3ni284x/XLEPZOy7FyUqFg6snp1bILgHDVDimvZVaC
/F2q8Cze6NfOY+zTkEsiqJcN5O3eroeHoXcwRIFLfv0y9gVLgZbodKM6TCaH3lI3US5HVxDmCy3b
Wb9xlM/1t7e5QvbxUCBKjvK9K3EwCnuWh81GFeSm3tP4iP/d6X9gIMjGzHP/xvz4sx2JMM3oWx5u
Ia1J7GJK2Bpf/ELoAg/CMnafXgWhjaJQgXSnLgtP4KuWa5GiFzLQeyXeP9HOn8nJkj5hCYAj56W7
+2P265ITtBMUV1YfuZmvfmwaDCERBx9Dez58w2ta0RtRMxY9ZAIrAug3RFGnhzTuSTPmjB+F28gJ
tmFsT0JVh+01sMVLv/a/X8jrXQ61tmzKA/oe+Kl7aDlYFt8BO8TfnGuVltO1y/9G60SluI38jISd
DHsC6OyTqQS+f+UORsAZihxHVxN+qxhvadxsu00Ki6urPNxBH1BcT77MKBPcRqcYIAdxmjrxJqzr
01ZmYcS2Wu28Wl+/u18e5pyYuJAQcYiNCu6T3ZdxlJ4gBvVhN8XdJbOxqzRRB2RRNpyJ91O7AlRy
htP4KgLvynzxZjD9BZ5kqt4peYq7RBQt9y8jZECOwnQYtfq6D+R9EXUZLh0eXin25uzLUOoClgls
7R4PrfgoXcjde/suowjvX80fwyDv1xXHmUB3x8US/7TZV6vZXgnSTXzSNXQpYaZmZyfdP5+k5zoE
Z07edV813JWxxkCPe/sYGa8zeIZVdIZiLx6eGOLbdS1S9rh/YLcSocoEudY/HbFg9xUZnL9IEY7O
H7+m2Xbk0AQTjbRIGTF6N5BogAKgSXtwBZr5nMpFPE4sZiMWF2NbBGWD9uSaSxFpu7pN+xR8sKbB
BLbC8BnQLZnApNGtuUsR4ojthRGsjd0WmCrOrReriXsR9wC9x717mRyDml3SYjnM2sk+O6ODlV7Y
PYCaSnt40psHWWrss9Vk0mUAQZmhSRpDQxRXfcWwqvDu2mtYfxh7qcCyrApdW+nNB+3l0pqXBsTO
Q0R9olyXSAaSDvBgIqb6ps7WBpi1cmgWfNBRyyd8W7lp5r6c1hv0wypIiycxkt8jmxl2RjPwg1EX
ysk4q8g8hKa2hIQWoFnHl2FXUmNKzTzl0Z3P3xwbReVkocLhvTlub26l+S0kw0GdMzajvfzUjAqE
8HKvcV5faNTPDMpQ/nsiPMAUO1ebAr60HU8krT5T+FC9ktZVG14+E/yVasBFPk/e/H4BX2cIRtn/
BXH5Jcs7yavb2s2b//27SSgFxX9jNdCdsq8by/6JlOmTIYFa8QaO+kcutPzmiqVAKfcZ5Cr1uJ7h
0AXASVVL9gX67Hxuj6GyWjtTjxtxdLJZgsnSpr7lCiO4loVwXcS9xiLXTJ7DasBIN8SBjFS9aAII
rjuS9+nfZO2QTofOdgOM/wi6tMynXJeYp2xmJ6MdMTEXjXeK+SqS+iKRMXTKojagdroVdzVa77Dq
IwKVsl+Y60ZmcwnzZmPSaF4DE3/S7DMHd2F6MRY0Dh8Mau7pDKwdq7ESBh/QnILRo9dS85CEWwna
Z75/lB484jeDyR6F8zLIijVG4n8Wv5KBODe+KtJGrwWp9wLi2Ar8U8ysP+7gsPglYj2g6Y3Tnkyi
7AK1SHMelnbfe3uUDLNvjzX8vodNBShtp+08RtS4rd1G1NUMEFufugIuC9IvqoLpkH7o4BC9ZulW
BJwXeMFs6TnZ2k+8DxPJtsU1za/d/Ny6QcNAVMibFFNA4zPoFRm0IbhdX9j6TFVucHjPv63RtxfX
JeQHOESpPqn9Yu3jTITAUpdR/9MsFSmxQlScsY577vzoacZQfjPkqBAtDpdSZuU1e2dlewHSl1aP
1BPNZt4cphAzs1uVzkLFJG2ZucJOX3mYYf+pGwDJSAbrYNIJRG0MeHfGpzeUOfeAe10PfVWvuZRm
SbHtnlM0QxdUDfNek38143yQ/f+p4cLfSu3aFVCxzrImNlJF8E/hf1gvAyNrdbiW+fs8SqnTZbb+
/D7GTzNrXbhKvRGk4UICf+j4vRE6xQL+Ayf1hgP1Ck8f3tqUF0jk78BOLAZEJTxS8hN+gDvYruCb
4ZkaN06ThACd9MXF8mJxgAguKM3cJuF22K+2azHzzZCaMqi7y4D1x6FCu1uDBPiYZWMeToR7ULCb
1B2w8VKWEftg+Qa++EMshkALj8fbEp0ruDI6pzdMJfdOv9DFDBpzNxHi1EjsK/21pnAwBMyYo++2
dCy6nYnDEpS1sH/JPXdNseunp5gCLDX20Qw0al+I2QSqjxO6LWW9GYiC/KzytxywdrF7t3OHYUzR
jhtg5QzrzWIqjGG0VF5yUl0pX05e48Ne/A6yZn8HKMEWOxHULqMHo8QKA3aM+DL89ruI2USM2T5o
ndu8mp7rxdL7vRJfG9zCwysVCeM+7e4+pTrTHafNCWJYdPKknN697Xw5+TbPDwJTn7P+rrtWOSfI
uVw8tmulVrLqDh14pb7wTDIkTNykAKoh3fAhfyKJRlBE4zO19MUSKydvUnJLKg+z0ckGAbrOdeQe
MbvLlqv0oTU1rvCpRSvRD/ktsRioeG0YUEjAgcLfoRFUAKukY1e6gPMtAwhhPIdCHTc7jg2LbF9n
BCZfzEu1Jx+OLopWzHQixA4E+SdCHPwF6gmITc7ud1Z+lVsgZUUygtAGu8a30xXcQ2liy5AaxLQG
3Y4iP3MQt/yjkcmNuQXQ6o1buyxjX//QaVKiODSmceYmF9/9e2Ntp7C6xF3lUA8VGD3zEJcRKuRw
dvBHSC9SGXRY0MJJY7c+oV1wA7KUE4Iw3G2uQYJSnW3IbhEqVhPmdB7hwtdPgIbTpIbfLC1WYAJ1
pUZ83E7d9OKGYtHDqQ8V/miw+J91m170A2QROyv3TUKIlK7LH78197v7/qJaKYCU9ewVOHO4PiU9
GajFC4KFxiQ/1P0LGwa5nLckuPq85H47IzNbOjU/mNzIKqz6/IrGso3/ACIvgawVv3UAS/DFpGOn
s8GCok8rRH34BdKXa+iBvzDNbUFqBHTUlABBQRpJEIo9b60iwuP+3cp3HRw42+22R0+CnNvznvGn
//V+L0JbWnVV2QFjzT2jXJWTjBirRrCGMXSD4+6+MoWyE1vRgZzVRZ+4dR1N+7aRhbQv7N2Tj0Xo
fPYbwjm+A++iG3PKpvjZSZ1Qq4qyV/CigI3mQ3pJ3xwTfISbQcSilbE/JRmeCgZGj1MDt8jOH+Q1
tTZ7WTLKzBExhqTFATSmT0jDvruKyyEJ4afrhXTF/aPwaKJ3/zHMmiegx6CMk/6lDl+tTXzzyJd+
/6CZLy/9h6c9owKPJAtijfGuw9tZN91C5IVgBdQkSys/SCH2b+Gzqbcfk4wxeqZsghXrtSPl698r
gEXBimm8xlNEvPSF4JzV4sGwrraujcFYwBTXnvoucLt6tK55+DdehNyeC0MBp4vZseauyTJa3n1J
lQhyAIEne+dUrqJJ86GUtZvARK7r7DApgG6uctzf3v3SpzXTg1hg9MNeupraUBXc/dCQoXfh5n5a
oKUdtt/+qvMkB1bbdsF66QGcAn55KyxuEbcDf28kqhLN6AqmFB1x3mZC88jDAuRXi9YthsHhEQh3
NliOLb1SE6ocQoqgtaecCRb+R/Sm505mj+AnLc9ZOHtQsbrKldcaxfMOJYvmRcaa8FlV0YBxKFwn
KJvi0LcLd+mX+x1+c271PIlDC37RIhZLRpVwGNZJYKu0SBNFNNLoAAj66Z5HlxJQ4Y68z4T/j4/C
49jykRR2NEw81OnYE013z4+eT7TGXxy3dShkXWE/9TQAg37Ll90hXd2SYAX+KMa68bVo5EwA6BKF
fhIwER5B8GCemVOSXTCDnxLpYrA5MM2vK9QTf3iNldYUjhS/okjq0v73jpycnsXOWQCO0g6tOxzG
ruUF4IDcFHUd74E2OlvSvwPFGGzh3h0xU9tu6SdbCfIsl1Cl31+Zy8+pz3rwbmgo+1NYIOe30JOP
YQIzRC2Mp/BEuAYFLa+8rozv6NOKlQbjFkamj5SbqGvefsWFMLImqZfTDUXUmNa2FqXx1NEhw4To
eUbI2AtwD/BT9sKXS20QlakMXQ7w70Rh3N1c6VxOaWwSXeSR2/eZk76iszewcp9bN8HU7rm33Mme
+noHvOJ4FUukhOPxBo4Np6KgbT3S0lbIDCAN88A2R9HAUp4X6QLmBaE3ac5gvHstS12xS6QQomzR
qzDPufMrsjPrZiqsk5AO8Oe+c2bvwnL98Z3eOJWly90QNBRnHdhi+SJQs0a1M+oSIW4fEZjts1U+
BNiTVmDoyeux7vZaOVZdpayCuBXctngbDYk4x/eOhm1WoRxFoGdAFVLXtUxoN6LVKt8QDVdYeJ0+
wCnEHUMoSAHJCKxcauijJROmkDHER6ZOLDdDymO/ZznmopHuR27M3Ou5yulFYFy7wuIShhEIyroN
IL0H8eotBXL018lzjKLweBvJsLIj8ESErbXP9tUPHUORU6e9MjvaEoI9Mi+HzEsPPIudMVko90Eg
I5OYWdKd8MExEJ+HKzpgZYX+whpQG5Wvvi1/orEuoGDVWgfNn44pHPYR1cgqVmT2nbLgXcet5eEx
PlVsPYS0Uk76Ibp+oZo6K+Q+IwPpwp1ilDN6WaeTLtBdZhwAnkKj29ZDyhowVVdsCvzudehDZljo
guwhX2ddWyqIWI7yhUpAekbXYfORBehSIjNt5Sk8XLj9pY4qJ6qAXNwtEDKyGhxTcfCTo6x0/LFf
+lAAvMQrWZYrdPgi3VnPMiY5OYm5FlcI8WValaQyzX+QjHLemQONkCuyUNDG7kgLUTaYAdUXA6LY
vf43YIazP926gqt6wCKhsQSwL2+kyi/xDJPUh7/oJORNwbE9jF5BwGOJit6N9IkT+/wSoOvtLnLK
qTRWuZ16lTWKKvphLrqLcrRxJSwe13QotzICflrEsfhMuCPt7KMM9OKolOWG702I+iNIvBb4tszB
f1vKFYudNj49rBL3AJaIOaXt7cY2Tw1TiiGbdeLDkh+SOnWsM19s0driikUa7gapwu8FO2phWXCz
Ws6wIBPQcVIs+8d4zbMDtw+mF8aFRqzXEuQP+vx12R1IMumIBQeb+Uv3teh0wBKoWuV/p0F6vshf
2exWkZZMNTNok78jD5Bv12y5ieGVmlzF8UNAo1vSjTJV4rinbbEQxIVQKGLqfss3j/inmnwnBfix
qnkdd4fCx/BHolwl93nFh3+1ZZG1Cza49Vk152zTDEKKIdytYnYLHBAyXjpmEUM5ewh3tAZUKPcM
LCfWQhIDaTNBrU6jhAK8vuF1r5ll8mfRe9IPRlLNKypkwcbK/NmXpoSv14Ey/WrCn/XC0qbR87do
3SGViOeVhlp/HZ2D2uY2Z3FsH7MjSxfSpFUz3v3csRKhTUhCfuD5/vtufzb3/oriJXJzBlrdAlCq
LAWusHf2JBgxVHUefXBGZhIxbsFjJcdToe8mZskVFk8hUfB4yC3yf/ByKYRI4PKAQBExm2HFcl2Y
W2wgrumwdvG9OIb4VZzy65n2CH9sjjHzIS4WAD0/QSti+/5mnN1kbUleGITxPOGjJ6NAAvvWziTr
urinBYGJRB+g0iIhQLah/occgbfka3qiVSsq9uuaPU3u/f5JUcjnhDzxTsjLRrmmvBzE9Yd1jANB
Oo+LEuxeLEpRuysZe8elfV2qCkAjG53Z+jd7msUDMpzfUvhQSb1U1fjNTcfFJ6xuoT8AEBE9nfsR
qojhmkR7+w/ZAJJsrryef3avnvgE4Jn3T7LkOArbP7Fe2mj/N6bf5E7LJ4CivLzyx3Y7bfbu75R7
YHOOrk/ns7fYMRC/v3eVH+zHuiGNJPwaaUXQ2oXcRAbpW4KKJWHKpveE+dyBbeuenK/cZvD8iqAe
87npz5octW2ZlPJTI2VZwsBJMrSufbSDIECmdKHh4rt1X39Z7SBs1Nh6Bu55GyQzurmDW4k3nmvl
jdoDqv2MY3C0b6H+h2pAnMe+fampnxZhiaK+E41/NYcsaCSkwrMq2Ilcbw9vu+6iXvjt4wJVGv/U
vFDeP5PYZtVvWykMH94yv2MqT6QX8du0+ET6VmQZorBkROpIBM80B2JsGqV8oAPpN4KRemKtynM4
obyn/Jw8ReWS6kOZEUCWb9qQtivW+/pA0BiyQ2cRugSe1PYKcR78EL+5RJcHyJWig0QyD13a5nQ9
Hh8A/U4ByaGAjWrofmT5PtJRxMYdkVZFqSXrVfwokjgS5PZj2pWeDW0aTQSSQeVu+GbbwLlrLpEw
I91A6EXmqlv3fpeFXPNGu5wXSxCqnDmQS5yjDTlHzHGyoyghfBJe6RIIzPv9W6BATN5l5Pio6uYi
WgMBWH8in4fPKHXPAZujGRD35RZdJICb3Fs1oe1jegimw7KhCp7DoHmYlwPWUYhA4eXirmrxcd73
/rTMkhhZjgbetP235D38Aes3f3oX9xnS1oiH4X8OvoLlThGcHWxwoZBq9IzlWTKyYxmipOlXne5H
upwaBfNkORU5Islv6tUyxA1LLDex9AmBxQhWnz6ZuFrtZuKShLxOvXQ4D56FGrJE39Ppk7hmoP/D
sDMV9w5HRKZp+e0kluga/inljh1jiGpFErnNxF8RKef3lyS6pEYBHUO2Bkc9QRf7HiJ0oKCMHLlG
v+olw/cgBI5KgkjgF02SEnl2ccnwJLBzcQ9ewSm/1Pv8a+15EGWYufRc8P6nkL2BR0CV1BEguH6s
r8lXKbPfU8uTj9X6O94qBLP/h+tlNnnyLAdqHoDoE8Gf0bTLZY9UwAWsQLSA+ofKuS0OWDAd/sQg
PCFagAZH4UYaAlVeU+AMkfolg3SJRg2OWNj/9vVC03gHDmkkM2cff1ACNAk+a4wLdR1A8nV0JjRv
fdsnUdb8VUyWihsFUY9ZeY10ImKK4vDPlIswQBftEAhoyf0wBkQPxLhzWVXefoAjmEvgDZV2nGcT
Kab9jTFET/FA1zYVr93axpGWfrUSsnGjJ9BDsnB+L3awYkmbwPL+vk6fRHsaQiscsMRwOn1a1qTp
pECt0a5ctATb40SqQ7nnIr3xBCEbAMosP/2XO8aCRPWjwoiU7mTfOAu2oTl7iDA6kSyahogul0AA
Ls2c+5lXw2jVwrbodG9Th3pUcrwTb7w/Zxk/CaX12mjN320s+qVbfWNboabeQK6amiOHKgxGq1D8
NJ/qheEfm6d1+xKs8Gkrd3dblRS/nPgeTkdiSiT4rDlElIG2a83qupH6GiOrfuRP7Jkim82F8+hp
gEwPWWADRGZmuRCueBh9KgJvmd2tF4iX1L3hPA/XmP2+VXRL5gUBGvgb7LZr3Poix4+KwTMsLcDu
9/wN3DKgGsms+Qbl0whOx9+JQoJyhVSV4EoqrEDLY65F+105G2Frod92nMIvKEukj7wivxFGn1L2
zbAMo+QRps5mBpnQadbpw6xAodKRet2FAv6QYj8TQ0YTJHacg8zoX7qd8YO6PltY2rM4ogWySXtw
et/1ZFitRjTTRKx8hNA8+Z9mo/27TyQdEetIS11AMEO/+dLc44L9kNdCOIgz07dA9wdtocmpeBJ4
/F7cw7/mkIUy3+7ev0XaF6n03qP5glvfjXrLlKbYYoEbN66/+7qlDPWWHk/2K7IY1gwf1io99FRw
Y9+m6O0hvKn7MMV0Ey7Qv6RcC/93uNL5GLBam/HgHYdSaSpOoGHW1ojOPrTzkrMK58bgKA9XoO9S
pvnLZeZFwOP8SIRg0h8pIqNcwXIPa4PTOVppKtPahKZc6YzeBHfgIKHeFxhzLNwCUaOOsTHYtKgo
SbZs2duyh7P80Pvsqzj25tKMQBRfuJCFJDjU1K8tNNE+vULkJItlNBwXNKO83g1VgxaRiss1J+UR
kg39FHeRTVczdRMzB/t0L32VfM4TXnupMaKOmKf5brwKDq/YfzVUr7ceU7tcPFT+XV2D8mtO0iHv
cuH0EEBWFKfNKYf1vak6O6S0burozmKfyj9DoGEaZDGDAXv2kIXZi66pSSku+C5C+u2vOg83u7ZO
Tdk/C0O/2IDpOXs1RIRDL8Zw6hG+qX2TgDa9D3kaPEdVP6acVoB0mRDj5CUxk4L+XHJNpM9SfB4V
LO3YFIF3d+6Vjtk+Cm2nwW9up2ilA91CRGOTLDg9pP/jAbF+3FyOwKYyC9uSY5haL/KpuFcZ2OyY
6puvieg+/yKp0YhhnrNQgR65IslspdRi3nTbCQAg/sdcDs0KVvc2/E1FoHbtm8Uh/0pbtZxmfSnp
iscS76BvT2bJeHhKa8YhjLB/vHt7x7LsSAc6JpuQAOXMHdcqh9LqGsXPo041uMdNe4EdDChWlrqb
XVqw71ZFeBLRAoq66qm9U7eQ7iPnbM4A4003tTFg1ZH+xy9djQdnpRmsTHzSUULfoM0vtMk0Q8O+
bEb1d1jE2HXz8kWbRjo/6yq5rmci42q3vvIoFoVzSmiNwDk6xYBTHS02dAfZhbydff5LkZCHr8Qo
t+aM75AvMNdVU1qN0qOdYBhVRh7krpHupWXKCMWKW1mQv4rr6G2gIE997SZ2MXpDbRa2K9Wh8qyT
LjD3nctMPBlOes+5CZeXMmALwhVFBX0dYs9oltNT5cd7iZX5c+WsNObk0cqpeEWi1AT9lm3Rl314
h4kaFET0pCo0vOQiWzbb4GMlx/sGcUDlD1G83ODK6GMmjyclvEbAI7glD7rXNK8S79ckqnoEuAEj
sV9fVzQhdsjKm4LrrpBHlbnIObf22e51iJbTnODQl2AcQhsECbCkMTg9pf2HZy3sLCEvGpYZ/Fg4
inmNSXfdRgHv6BZuL2dbQaz/WwiFynQdCMic2ok/3NiEjoQVKK/ZhuDUNDGHqqn5Sez5x1TxKvV9
o8Qr9qTjcmEYAAAAAIEzB64P1wpVYxck0/6zcBaxYecAcJ71XnfQbD5jN9ADSu9i+uQreCoVuWDC
lw41vEZxuWhB++3swAX4qQhDp9fyBTHLGnFsMcdEmqRmfxn9ltQOidJemmj7f+NNrsZNcb4Y4Bck
EEk5jTBuohggQSYDQJkj/AcCT1yi7LSVWetdK9B2laAGuVYssbheHAsAAAAXBqvIAQmAkwAHCwEA
ASMDAQEFXQAQAAAMgMIKAai/gQwAAA==

[/cut]

К usercmd.ini нужно добавить:

[cut]

Код: Выделить всё

[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

[/cut]
Теперь подсказку можно вызывать напрямую без окна ТС. Один из вариантов - сделать обычный ярлык и повесить на него комбинацию клавиш.

Orion9 · Сообщение **Orion9** » Вс май 19, 2024 13:30

Надоело гоняться за переменными окружения, которые объявляются через Autorun при старте ТС. Сделал небольшую функцию, которая отображает только эти перемеменные при клике на F3 с зажатым Ctrl:

[cut="autorun.cfg"]

Код: Выделить всё

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

[/cut]
Правда при перезагрузке командой cm_Exit 9 результат уже "не торт", но тоже интересный.)

Orion9 · Сообщение **Orion9** » Пн май 20, 2024 10:49

Loopback
Такое ощущение, что новая функция RequestCopyDataInfo не работает, когда вызывается из тела другой функции, висящей на ControlSetMouseAction, например:

Код: Выделить всё

ControlSetMouseAction /L K:C 1 ShowCtrlHint
Func ShowCtrlHint()
Local hint
  hint = RequestCopyDataInfo("LP") & RequestCopyDataInfo("LN")
  ShowHint(hint)
EndFunc

Но при этом, вызов SetHotkeyAction /H:F2 ShowCtrlHint работает нормально. Даже более чем странный ControlSetHint /F /D:100 1 "ShowCtrlHint" - и тот свое дело делает.)

И еще один момент. Сделал простенькую функцию, для переключения количества строк на главной панели инструментов:

Код: Выделить всё

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

Всё работает, но... Если сделать то же самое через TCFS2 следующим образом, то результат выглядет более гладким и приятным:

Код: Выделить всё

[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

Теперь при вызове из TCFS2 наблюдаются попытки что-то загладить и перерисовать, но смотрятся они очень плохо, словно не дорабатывают до конца.

Код: Выделить всё

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)

Можно ли в Autrun добится того же эффекта гладкости, что и в TCFS2, есть варианты?

Loopback

Orion9 писал(а):Такое ощущение, что новая функция RequestCopyDataInfo не работает

Такое ощущение, что функция ShowCtrlHint не запускается

Потому что слеш в установке модификатора потерян: ControlSetMouseAction /L K:C 1 ShowCtrlHint.

Orion9 писал(а):Теперь при вызове из TCFS2 наблюдаются попытки что-то загладить и перерисовать, но смотрятся они очень плохо, словно не дорабатывают до конца.

Ну так после блокировки перерисовки окно все равно как-то надо перерисовать, тем более после таких изменений.

Orion9 писал(а):Можно ли в Autrun добится того же эффекта гладкости, что и в TCFS2, есть варианты?

Не знаю, честно говоря, сильно думать в этом направлении не очень хочется

Неудивительно, что TCFS2 справляется лучше, она делалась именно для целей работы с окнами ТС. Можно ли сделать что-то - наверно можно, но это время на тесты и исследования. Можете пока попробовать релизовать то же самое на ahk, чтобы понять, чего ему не хватет. А я, пожалуй, лучше сосредоточусь на допиливании основного модуля, а то последнему релизу уже полтора года.

Orion9 · Сообщение **Orion9** » Пн май 20, 2024 13:31

Loopback писал(а):Такое ощущение, что функция ShowCtrlHint не запускается Потому что слеш в установке модификатора потерян: ControlSetMouseAction /L K:C 1 ShowCtrlHint.

Да уж... Такое ощущение, что без двух кружек крепкого кофе мне больше за Autorun лучше не садиться

Loopback писал(а):Ну так после блокировки перерисовки окно все равно как-то надо перерисовать, тем более после таких изменений.

Пытался той же командой run_item(update) из TCFS2, но она не срабатывает полноценно, хотя что-то пытается делать вроде.)

Loopback писал(а):Не знаю, честно говоря, сильно думать в этом направлении не очень хочется Неудивительно, что TCFS2 справляется лучше, она делалась именно для целей работы с окнами ТС. Можно ли сделать что-то - наверно можно, но это время на тесты и исследования.

А если в Autorun добавить свою функцию Redraw, поможет это как-то решить проблему? Там вроде всего одна api-функция вызывается, если не ошибаюсь.

Loopback писал(а):Можете пока попробовать релизовать то же самое на ahk, чтобы понять, чего ему не хватет.

Кажется, я как-то пробовал: результат был таким же. Еще тогда обратил на это внимания, что в TCFS2 всё работает как надо, а через вызов перерисовки из ahk не совсем. Но надо будет еще попробовать.

Loopback писал(а):А я, пожалуй, лучше сосредоточусь на допиливании основного модуля, а то последнему релизу уже полтора года.

Это хорошо. Вы только не загоняйте себя во временные рамки. Как уже было сказано - главное, чтобы теплилась жизнь

А всякие сроки и и дэдлайны - это всегда лишний стресс.)

sa · Сообщение sa » Пн май 20, 2024 17:22

Orion9 писал(а):Всё работает, но...

Разве только перенести команду 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)"

Loopback

Orion9 писал(а):А если в Autorun добавить свою функцию Redraw, поможет это как-то решить проблему?

Могу для пробы сделать обёртку для RedrawWindow. Не знаю, поможет ли.

Orion9 писал(а):А всякие сроки и и дэдлайны - это всегда лишний стресс.)

Про дедлайны и речи не идет. Просто надо было немного по-другому делать. А то получается, что было много исправленных багов, но версию выложить не могу из-за сырости. Хорошо хоть плагины можно править независимо.

Orion9 · Сообщение **Orion9** » Пн май 20, 2024 23:38

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

Да, это рабочее решение.) Только получается, что функцию Autorun, в таком случае, не будет большого смысла вызывать (только лишь для того, чтобы считать и записать в ini-файл). Поэтому пришлось прокачать её до 80-го уровня

[cut]

Код: Выделить всё

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

[/cut]
Теперь она не только переключает строки на главной панели, но и сообщает об этом в заголовок

Если нажать на кнопку один раз, панель расширится до двух строк, что бывает удобно иногда, если кнопок на панели много или окно развернуто не во весь экран. Через 10 секунд панель сама свернется. Но иногда бывает нужно, чтобы панель оставалась в таком развернутом виде, пока вновь не будет принудительно свенута. Если в течении отведенных 10 секунд еще раз нажать на кнопку, это послужит сигналом, что панель нужно закрепить и оставить в таком (развернутом) виде. Ну, и наконец, если еще раз нажать на кнопку после всего этого, то панель снова свернется в одну строку.

Поскольку функция завязана на основной цикл заголовка, то добавлю весь файл aucfg.

[cut]MIME-Version: 1.0
Content-Type: application/octet-stream; name="Title.7z"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="Title.7z"

N3q8ryccAAR+k/Z+xg4AAAAAAABiAAAAAAAAAIi2id3gN8UOvl0AKByIJpXabDq7rAXN8pLbjJqH
lWhBCMHYPaEWzm7TE4PFqDlJ9O0UkmcUqHZ3bddkYW6wp9wBsKQMNV1stKBsHArdNxo+LR0Gr3Ni
TJClIZVJ5tNQHnJUxZYabgySetQ2piDQERwpn0/ClyFUKAzAlWaYnILO9OMNnE8XdyQ1voyGkI81
cBegE7vA/9OtdhWhiggwJ301usJwpK50k4hWSGpbM+0lVuaKm44ymQ2ULKOo/mFvxf4UYdGEpaT+
Jraujd2KYvueUOP9kd7unaxBgRPNTZbjoxjb9NYghpy6UjiG2C0hcj9gfUyIq3AtajgF/90SJGvt
H4SIyShS4aBgR6dPAhvH4ATw1uzuuzXwANowozeL+dKeReGwptEETzxCnc4zW9gT1Wl3ZzlVO2S9
u/8fW+14Nufbegn/OqCPwV0GnxHL6P0wS9id62RppLZGpcqv1uI+sOx/cFueFoUYZSyYsv0V4EJg
PQgzDmoz0nmT+6ZUa0pJdqzDc9R5DsalkbgH5TfuxQWDPZp8WqCOm1ON3K1+3/1H7HEHWrL1kDEs
HMIEiqugfgfKOTefW/OHZ6NEGqY0mFxwTtg0RB29a6bhjU73Y4b09wXT9PupqmqtHQvtGeu4+tId
s6ZTqRtMmdasnWl72veTd4mLAXQnUjmMBiLUt21LJZ6r+D/xVsXyu1MvW4JamqbpHrf0DY1hg66W
c6Aun5C+5ObXeoAiRjmTS96YW5pB+uPv19dWs0a+gG9VZFcsz6OwimEME/EoBLMaNtxnA093j2io
LBrrrlAsH84jQPh00s9XMmrhIcsv371j0vvjFWyCI6qRu/Ofs75vyTDxcXctlkJoS+UVOZNC9PHF
BsSfIQDRw8D8bAY+9iWryw9gAtwskEIO0RB6XfzKLuL1Rq2hMyZpxN4zk+vJxq0GVpQmpQLHgtx4
WVcOl1er7uwv/wLSh4Dk77KSWL+hmKV6S2eM0PuTqxIivkLtu+zagrdUx6ooW6Cy7C188HvK7THL
jNwyxaQGJHAIDcjBdjmD86n4gdylAGlrIZcO4LzmtmE58c9tCAYt4eOVcjHC/gY8WR0oUC6racBQ
Mwxyg9Rs7afxjyohDd9Bj8MjiLqwXVrVKKcDnBqWdqRfPS5ZXimfLdjjnw6zkxVArrMcfLBuC/4B
WsCs31/IEdDrNfNeboTDqv+FX8bPsbVJteBKpn92wcAC4FL/08dLx1u4z3r9eQIpbaYFpjv0H5cO
86IgHOnk2JYzWEOPb+zzjThhXWE1KEOuW6FlRhrFAn6TCa/25Bg9S/xwLXYOu+plh1saY1KQZaIQ
sGdG3K5zIWBvEGds4DmXHBxbCBKoMxKcV6VR+zJbnsfsAnNYLN7CRcUHyy1O17DVst2tS5e75NKc
nif4jefVXWIK7fhxVit2Lm2MnsTfG1xv1u9+GefG4mMkiC51V5cA/dK4dkCph2T5R6LbtRazAjm9
eA14dfD8jiLU2D50vZWacvkrgCxAzsL4mXI1L1fZg7SL6hXmYpt0xl+Gl3MBr+4h2xo+TlEHJeDf
33U9WQniyLqOaLma+4A0nL2rERQnqMIKzu6T9kqhslI9nVHOkIw7gMKmgmQzMe0+6QbazUHZM/Uv
pDOTM09PuU+NxqFUdQRMKVx27FO/AByRJZ3QFg4SmLdEMRzvQDstaWRjKtEszZ+1B9Apv2j/W6ra
xScsc1kFyxlesnnPOG6GKc2tRyirOXSm37zeDpaZwxUKUhgnYfWAcbHou6B45ecmETFADcQteeGB
sTB95un4Jn7+E4F7kKUsabBXEOn98mcwIquO0N34G7Ai5sxutGsn3ObOvmraOavnJTl7+fHpYJOz
mLfTel94f7ODLeYHHY+cnJ17MlwVzY3Ksynd0gV9dwdgOeJgP84YAxIzaNQtd3uKWwg7NdjrFSR7
hKXejmVdgmXrDcWj92AV+TVZTJv/k4slE5lLP5rURg+vDikJ3bBlwD7UieHv8pFddXOpkKd0OMg6
v37EajNm+VSICA+01yoLGSit9+2GWQyOZyew00QiTuYOCHkzRCRhHsQmZD2sBK7GkwcCtz+tt6jG
5bnoXLuTM4UBhCKKeXbEfQt9xOGGgsrDO5OCqUoXTDYuWMBRYoMrc0LvJrUFexSdjQr+Prtdx+sU
xU4eGiCzlYunaLJrz6gfaGvUK/QN0pPXPvrZtr27Y9CBjYMAoF0wAAsCE6+55r/gjSaBx+xRQ7ML
abu2nLIIBdejGHWGexwqfrGGqFIwT/IHNjdQC5H8AEwsJlhMcXVIPJnX2oSiQGpytYrT39K41QFF
qe7UOvu8mZAbM7nmRBH9L0YIWE5ZttzmdeZX0s3X/Jk3caSHfAs91vLxdh5Ipxs4hhB4B1Hv86V6
uL04IX/QULj2xWUbERtqKgYLYUCfj3/gJuxCjtahS3ppzSpL7oI3rQghWsgXLNoUOPUceKfErvFI
jxrA0Jyl4m9jnndAD1AUn7jzETDFpKu17obs27JZ2uX7sqJMZU7r7l7D4kt2n1fP2Z3FgGJvClZ6
+hfb8CqakVlQXjt1wDc9YFgmQYJHagIvWWHqaWwZJUufuxcAU0vErEj2BXbaRg8pvChYkmGT6udP
LAv1MApz/dQJ3bNpeyQS8PGzApgaJ/PmKqgEqBTIAJ/Mbxis4540ZcqHoj8QgAe2gowte1ra2/mj
Z2LsaVKkXG5LWsoAWnd5oqXE/8mY0AE2+HolfCX5QhkUT0JJFp+nWW5tSHhUi0ut0qbV5H5DWa8O
ypHVGHc4d5mTUd7q9OljVheXGpoRKe7uqBePOZq8/HACT/tLtmx21Wrea3/dGWJR1iTIreHUjeld
FLrj5UE6bZFLNYuoTCyUiOrt5op/jpIvn9/YYW66RELgExldfu0DusYZNbSxU/6+UqfhksIHVeOb
vM4OTYWwoRECZICp5VQdD1P9Hb/FHMENgxTxAaBZ3+qex7l5Opm8AFxCCQhnUPsSbCfAr+IG4Wii
ifImSZQBU9Ln99il+UHiEw0x1zGplSD5UfeuivKqGmnv+7KxrxfW+vjJ1HI55zMIcrSdteALjnk4
mOwsHhnb3daVdtECNCxMOuHMMN+tb9lS02vK9XlobwmRPXb8fbN5PUpJ02ozWhfFbaeSaQW9K7jI
hVtLDwiLi5AwUn/maKZnrKVJ2fF9/B5WcSW+VjrlBB5ATQ4FBM+kKNKHwgUwjaAEIbEsaFJiZvpQ
gjM66NtOnuS8of4B+KBeffrKvhEgY7iEzeud+A4OVDXwzd4S69j91GpTfkGvHbjU7MJCgMTZBxWZ
tIVli7LNBUXtZ6XEMtPYCJZiTOfAyRrtk1IpztxZUQkgUk2QPqlJZE6cPCLPhuPf0n9AUPgUEDw7
G+d2umVS6YkMMyJ3Lrodx+ZjPRyc4DHYrCVMB6iQszD9mbVy8CoyO/pG3Td6UMzzBgECyf2J4nx8
E6lrHFcjCEc+KdjAPNY76pk40IYJGcJABR8PPLChyTIL+qEuMyPVwXSW0DXRv13euTIU5DEJ1hGo
sNfmL3n6q6IECVzIzarvpujCR7NFod5ECz3nazjP06tdSlMd1OiiSOh4QVhYWSXaCqYfZ5R2Vs6P
y//ikBuM2ziUeyZ48z1T5jlf2x5RE9vbhzI73K02fvFxncyrZTGXv1/QGWRfLKh301zfPH9JAdfb
P1JZuAnaDemRONfRo4PVdYZeLlCMgMrSp/nuOe8+4rTA1+HxTgeCx5CO1v/6HKL4bmzb+KFafQQS
QVTIq+/arGiQ6OX8+bMiBuCq6XitHKWxY47UDKBUwM02jw5BjKpJq7Df6xuEbDGRGfB8mjjAvHnO
fZ8IWOemp6JQTDm+2AqDAgSMH61gB3heyentewybYIMHhZmDXfVVFIc7waeWvtnthpWPfH7Y8R0B
X6cjUAN21XfYsMxiIrjNEBsQAPgMC7iP1vReNm6p4MfCHQj3K/HFVqG5hSB4md817ZMXUaPUayyJ
+rmrO3Msj9o9y2YAacRDGWLnMZUBvv/h3Rbo/8jceYClDBPH0Zf9AYZwoW7ihnZlRvPcWnamVMKx
LuyKgWhG9fMQYLXqSJ/4mVBXKp2fO1jhpn6veR44zWbVXIXZdCRyI/a+3mwtQu0zAO7L8F9nVtVG
teUq9+AQIbjGXxvaMWvM7eO0tgflzVM+hKkl+zGm7VYPNQugfa6LZPvpLtN+5EqfStqHagv+g0ly
2aPNb+gjozIIvpsD0hzUAU9AZhsTn2r/Xzqhs+ueLGu8BWB9g1simsx+aZHKlP3LQazRvFwNVMmf
iOZYpIcKLmFXBEmoSOfC+NGzRvv1XyzSPgXdo0/JzVZdZHzilZCoVExngzQWeBMKyx/zjLnoWgl7
EF54VCtybv4XwmlZHlCazq1rNhuhP2wJjWEk7SQRTehPtah4xJ+1+DvzhzpjgzR2/MXjbw38ezBM
3vj1kfM184+7IUsW169GuEMr5+PJLd25Nghfd3MduYE/FJAyv3zetZUGYXCBD4/vuRViUa5YtUZY
Sm4ACj+k7333pxWdC06M6EVbcn1JOdHhBsUS0qMNbfY434kFHvZEeOBYJnlRRiIaVh90i06owMRF
VjioeVGdj/fxcsFClNcC93zmyUpyWQmGxY9sR6Xucr9q9TtB/pUGcWFCS/15cnNs8g1EX5d28GY8
3Hmv084nmOHvTCOuZNjCJ+7sZG/zeLr2NeY7S35Hdr9DuGDjuqk6c1VxMV2jho5O07WEa8g0iNmV
0mmuCVUD4+kA5hX9HYUPf703mPk/laCo4+KRz88A1VjT0+th8b0Z4SaStrn0A2gCUqhqBnIHfjkH
AkAE76ottbdRppVJKVgOFO23q6ipuhE568n9+OEQ3qLlDx0T2cq+cCA/wXoT5s2WTwek9iE5bxfl
HTrvRYQcwS24WQzp7t2gD3dDbYNYE7Rr4bRudFcOjZHTE9iziFOazumJ984kixlh4ADRPEUB18qp
OTeY2Bdel3T8Mm3VJh+TaRAc3NHW3+RIqjHAY167b+Vaa5HEdZesUO7opLctNDlvh1PQAAEEBgAB
CY7GAAcLAQABISEBBAy3xgAICgGS77PSAAAFARkKAAAAAAAAAAAAABEZAFQAaQB0AGwAZQAuAGEA
dQBjAGYAZwAAABkCAAAUCgEAbEY2AfCq2gEVBgEAIAAAAAAA

[/cut]

Кстати, так можно будет добавлять к заголовку и другие сообщения через переменную ExtraPayload.

Loopback писал(а):Могу для пробы сделать обёртку для RedrawWindow. Не знаю, поможет ли.

Для пробы - можно

Loopback писал(а):А то получается, что было много исправленных багов, но версию выложить не могу из-за сырости.

Почему не можете? Беты никто не отменял

sa · Сообщение sa » Вт май 21, 2024 08:58

Orion9 писал(а):Теперь она не только переключает строки на главной панели

Я что-то подобное предполагал, потому и не стал предлагать чтение/правку ini-файла переносить также в строку для TCFS2. Скрипт работает, только у себя для развёрнутого вида панели инструментов указал количество строк 0 вместо 2.
Ну и задержку появления подсказки для заголовка (/D:10) вернул к первоначальной /D:350.

Подсказка непосредственно из Title.ahk тоже вызывается теперь в привычном стиле. Это приятно!

Orion9 · Сообщение **Orion9** » Вт май 21, 2024 13:24

sa писал(а):Скрипт работает, только у себя для развёрнутого вида панели инструментов указал количество строк 0 вместо 2.

О! Это дельная поправка

Я тоже себе так поставил.)

[cut]Всё жду обновленной справки (.cedf) файла, чтобы погрузиться в изучение тонких параметров и, возможно, черпануть еще каких идей. Главное будет там не утАнуть

[/cut]

sa писал(а):Ну и задержку появления подсказки для заголовка (/D:10) вернул к первоначальной /D:350.

Эксперементировал и забыл убрать.) Хотя мне такой вариант даже больше нравится: хинт появляется почти мгновенно и ничем не мешает, если не считать двойной клик, но это мелочи.)

sa писал(а):Подсказка непосредственно из Title.ahk тоже вызывается теперь в привычном стиле. Это приятно!

Жаль, что от тоталовской она чуть-чуть отличается: нельзя изменить цвет рамки и убрать отбрасываемую тень. Но я этих делах не эксперт (субклассинг и прочие системные штучки), поэтому взял модуль "как есть" )

Добавлено спустя 2 часа 36 минут:

Еще давно заметил, что файл на сайте ЦБ обновляется раз в день, а на выходных и вовсе нет обновлений. Обращаться к нему каждые полчаса нет смысла, и тут надо бы доработать, но пока наткнулся на сайт Coingate, где можно тоже брать сведения о курсе валют. Функция получилась до смешного простая, но при этом не менее эффективная:
[cut]

Код: Выделить всё

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"
   }
}

[/cut]
К заголовку нужно добавить:
[cut]

Код: Выделить всё

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

[/cut]
Ну, и опцией в ini-файле тоже можно управлять:
[cut]

Код: Выделить всё

[Sources]
Coingate=0

[/cut]