View previous topic :: View next topic |
Author |
Message |
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Jan 30, 2018 16:28 Post subject: |
|
|
MVV
ОК. Жду. И подумай по древнему запросу с блокировкой/перерисовкой отдельных компонентов главного окна ТС. А также про GetDlgItem. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
MVV
Joined: 15 Oct 2009 Posts: 4811 Location: Ростов-Дон
|
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Jan 30, 2018 16:57 Post subject: |
|
|
MVV wrote: | Отдельные компоненты блокировать можно через sendmsg(hwnd, $0B, ...). | Где ж тебя с этой приятной новостью черти носили?!? Слов нет...
Вроде логично, а сам даже не думал догадаться...
MVV wrote: | Перерисовка - это как redraw? Можно опциональный параметр добавить... | <hwnd> ? Было бы очень кстати.
MVV wrote: | А какой в дельфе смысл в GetDlgItem? Они всегда от фонаря выбираются... | Эмм. Ну, ты сам предлагал с проверкой отлова. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
MVV
Joined: 15 Oct 2009 Posts: 4811 Location: Ростов-Дон
|
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Jan 30, 2018 17:31 Post subject: |
|
|
Понятно.
Пытаюсь залочить на пять секунд левую панель — не выходит:
Code: | /ef sendmsg(findwnd(TMyListBox,,,1),$0B,0) delay(5000) sendmsg(findwnd(TMyListBox,,,1),$0B,1) |
_________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Feb 01, 2018 15:24 Post subject: |
|
|
MVV
Ну, так какие мысли по проблеме? _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
MVV
Joined: 15 Oct 2009 Posts: 4811 Location: Ростов-Дон
|
(Separately) Posted: Thu Feb 01, 2018 16:16 Post subject: |
|
|
Первый раз попробовал, не работает, начал проверять, какой дескриптор находит findwnd(TMyListBox,,,1) - никакого. Посмотрел описание, запятых должно быть 4. Проверил с findwnd(TMyListBox,,,,1) - находит какой-то дескриптор, пробую, эффекта не видно. Посмотрел в дерево окон - это листбокс FTP-панели... Перезапустил тотал, попробовал снова - перерисовка панели блокируется, перемещения курсора не видно, хотя статусная строка обновляется... но не в левой, а правой панели! В общем, подводных камней тут хватает... TCFS2Tools, кстати, определяет левую панель среди множества листбоксов по тому, что она левее или выше правой. И, тоже кстати, в 9-ке можно получать панели специальным сообщением, в частности, msg(1074,1) возвращает дескриптор левой панели. _________________ TCFS2 + TCFS2Tools: Полноэкранный режим и многое другое (обсуждение)
WINCMD.RU: AskParam, CopyTree, NTLinks, Sudo, VirtualPanel… |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Feb 01, 2018 16:55 Post subject: |
|
|
Запятых 4? Но моя единица нужна для левой панели, собственно, поэтому у тебя эффект виден в правой, т. к. ты единицу перенёс на рекурсивный параметр. Т.е. в итоге работать в левой панели будет так:
Code: | /ef sendmsg(findwnd(TMyListBox,,,1,1),$0B,0) delay(5000) sendmsg(findwnd(TMyListBox,,,1,1),$0B,1) tcm(2918) | Но вопрос — зачем тут нужна рекурсия? Разве поиск не ведётся в активном окне?
MVV wrote: | И, тоже кстати, в 9-ке можно получать панели специальным сообщением, в частности, msg(1074,1) возвращает дескриптор левой панели. | Да, это я знаю. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
MVV
Joined: 15 Oct 2009 Posts: 4811 Location: Ростов-Дон
|
(Separately) Posted: Thu Feb 01, 2018 17:09 Post subject: |
|
|
Да, наверное рекурсия и правда не нужна, но почему-то у меня findwnd(TMyListBox,,,1) ничего не находит.
Так или иначе, если что-то не работает, надо постепенно разбираться.
Кстати, забавная особенность: если в заблокированной панели сменить папку, она разблокируется. _________________ TCFS2 + TCFS2Tools: Полноэкранный режим и многое другое (обсуждение)
WINCMD.RU: AskParam, CopyTree, NTLinks, Sudo, VirtualPanel… |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Thu Feb 01, 2018 17:16 Post subject: |
|
|
MVV wrote: | но почему-то у меня findwnd(TMyListBox,,,1) ничего не находит. | Ну, я с этой ситуации и начал. Хорошо бы разобраться.
Особенность, конечно, интересная, но не радужная, т. к. блокировка часто нужна как раз при смене директории. В случае блокировки окна ТС по msg($0B,0) этого нет. Собственно, и при блокировке панели с помощью компонента TCHelper.
А по TMyTabControl блокировка вообще не наблюдается: Code: | /ef sendmsg(findwnd(TMyTabControl,,findwnd(TMyPanel,,,2),1,1),$0B,0) delay(5000) sendmsg(findwnd(TMyTabControl,,findwnd(TMyPanel,,,2),1,1),$0B,1) tcm(2918) |
_________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Mar 20, 2018 20:02 Post subject: |
|
|
MVV
С месяц назад задался вопросом насчёт установки стилей для всяких окон помимо главного ТС. Можешь добавить? _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
MVV
Joined: 15 Oct 2009 Posts: 4811 Location: Ростов-Дон
|
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue Mar 20, 2018 22:24 Post subject: |
|
|
А от чего страдает-то? Можно приставку ex или ext добавить. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
MVV
Joined: 15 Oct 2009 Posts: 4811 Location: Ростов-Дон
|
(Separately) Posted: Wed Mar 21, 2018 10:49 Post subject: |
|
|
Назову я её скорее wndstyle... Хотя, конечно, в данном конкретном случае можно просто текущей функции добавить новый опциональный аргумент, как это сделано, например, у функции send. _________________ TCFS2 + TCFS2Tools: Полноэкранный режим и многое другое (обсуждение)
WINCMD.RU: AskParam, CopyTree, NTLinks, Sudo, VirtualPanel… |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Wed Mar 21, 2018 11:15 Post subject: |
|
|
ОК. Аргумент ещё лучше. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
|
|
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|