yozhik
|
 Posted: Thu Oct 10, 2024 12:14 Post subject: |
 |
|
В коллекцию примеров использования и применения.
Заметил я что если в конфиге.aucfg много разных настроек (диалоги, менюхи, прописывание данных в ini), то время их загрузки бывает разным: то побыстрее, то подольше. Понятно, что причины объективные, внешние условия влияют. Но иногда (особенно когда торопишься) щёлкнешь по кнопке, а менюха не открывается, не успела ещё загрузиться. Решение: «полоса прогресса» загрузки в заголовке окна TC.
| Code: | Sleep(500)
# сохраняем родной заголовок окна
Global TitleOrig = WinGetText()
# создаём новый, с «полосой прогресса»
Global BootProgress = Set ("> LOADING SETTINGS " & ". ")
WinSetText(%BootProgress%)
# создаём ф-цию приращения полосы
Func Boot()
BootProgress = Set (%BootProgress% & ". ")
WinSetText(%BootProgress%)
EndFunc # -- Boot
# тут что-то делаем...
Boot()
# опять что-то делаем...
Boot()
# и опять... т.е. через некоторые промежутки расставляем вызов нашей «полосы прогресса»
# и в конце восстанавливаем родной заголовок:
Sleep(500)
WinSetText(%TitleOrig%)
# если в процессе загрузки мы вызываем сторонние утилиты, то фокус может улетать от окна TC
# возвращаем его обратно
WinSetState(23) |
_________________
Amo ergo sum |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
