MVV
ОК. Жду. И подумай по древнему запросу с блокировкой/перерисовкой отдельных компонентов главного окна ТС. А также про GetDlgItem.
TCFS2 + TCFS2Tools: Полноэкранный режим и многое другое
Модераторы: Avada, CaptainFlint, Nik, d-view, Моторокер
Где ж тебя с этой приятной новостью черти носили?!?MVV писал(а):Отдельные компоненты блокировать можно через sendmsg(hwnd, $0B, ...).
Слов нет...Вроде логично, а сам даже не думал догадаться...
<hwnd> ? Было бы очень кстати.MVV писал(а):Перерисовка - это как redraw? Можно опциональный параметр добавить...
Эмм. Ну, ты сам предлагал с проверкой отлова.MVV писал(а):А какой в дельфе смысл в GetDlgItem? Они всегда от фонаря выбираются...
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Но проблему же это всё равно не решит? Будет getitem вместо findwnd, и вся разница...Flasher писал(а):Эмм. Ну, ты сам предлагал с проверкой отлова.
Понятно.
Пытаюсь залочить на пять секунд левую панель — не выходит:
Пытаюсь залочить на пять секунд левую панель — не выходит:
Код: Выделить всё
/ef sendmsg(findwnd(TMyListBox,,,1),$0B,0) delay(5000) sendmsg(findwnd(TMyListBox,,,1),$0B,1)Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Первый раз попробовал, не работает, начал проверять, какой дескриптор находит findwnd(TMyListBox,,,1) - никакого. Посмотрел описание, запятых должно быть 4. Проверил с findwnd(TMyListBox,,,,1) - находит какой-то дескриптор, пробую, эффекта не видно. Посмотрел в дерево окон - это листбокс FTP-панели... Перезапустил тотал, попробовал снова - перерисовка панели блокируется, перемещения курсора не видно, хотя статусная строка обновляется... но не в левой, а правой панели! В общем, подводных камней тут хватает... TCFS2Tools, кстати, определяет левую панель среди множества листбоксов по тому, что она левее или выше правой. И, тоже кстати, в 9-ке можно получать панели специальным сообщением, в частности, msg(1074,1) возвращает дескриптор левой панели.
Запятых 4? Но моя единица нужна для левой панели, собственно, поэтому у тебя эффект виден в правой, т. к. ты единицу перенёс на рекурсивный параметр. Т.е. в итоге работать в левой панели будет так:
Но вопрос — зачем тут нужна рекурсия? Разве поиск не ведётся в активном окне?
Код: Выделить всё
/ef sendmsg(findwnd(TMyListBox,,,1,1),$0B,0) delay(5000) sendmsg(findwnd(TMyListBox,,,1,1),$0B,1) tcm(2918)Да, это я знаю.MVV писал(а):И, тоже кстати, в 9-ке можно получать панели специальным сообщением, в частности, msg(1074,1) возвращает дескриптор левой панели.
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Ну, я с этой ситуации и начал. Хорошо бы разобраться.MVV писал(а):но почему-то у меня findwnd(TMyListBox,,,1) ничего не находит.
Особенность, конечно, интересная, но не радужная, т. к. блокировка часто нужна как раз при смене директории. В случае блокировки окна ТС по msg($0B,0) этого нет. Собственно, и при блокировке панели с помощью компонента TCHelper.
[cut="А по TMyTabControl блокировка вообще не наблюдается:"]
Код: Выделить всё
/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) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
MVV
С месяц назад задался вопросом насчёт установки стилей для всяких окон помимо главного ТС. Можешь добавить?
С месяц назад задался вопросом насчёт установки стилей для всяких окон помимо главного ТС. Можешь добавить?
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.