TCFS2 + TCFS2Tools: Полноэкранный режим и многое другое
Select messages from
# through # FAQ
[/[Print]\]
Goto page Previous  1, 2, 3 ... 124, 125, 126 ... 128, 129, 130  Next  :| |:
Total Commander -> Плагины Total Commander

#1861:  Author: FlasherLocation: Москва PostPosted: Tue Jan 30, 2018 16:28
    —
MVV
ОК. Жду. И подумай по древнему запросу с блокировкой/перерисовкой отдельных компонентов главного окна ТС. А также про GetDlgItem.

#1862:  Author: MVVLocation: Ростов-Дон PostPosted: Tue Jan 30, 2018 16:50
    —
Отдельные компоненты блокировать можно через sendmsg(hwnd, $0B, ...). Перерисовка - это как redraw? Можно опциональный параметр добавить...

Quote:
А также про GetDlgItem.

А какой в дельфе смысл в GetDlgItem? Они всегда от фонаря выбираются...

#1863:  Author: FlasherLocation: Москва PostPosted: Tue Jan 30, 2018 16:57
    —
MVV wrote:
Отдельные компоненты блокировать можно через sendmsg(hwnd, $0B, ...).
Где ж тебя с этой приятной новостью черти носили?!? Razz Слов нет...
Вроде логично, а сам даже не думал догадаться...
MVV wrote:
Перерисовка - это как redraw? Можно опциональный параметр добавить...
<hwnd> ? Было бы очень кстати.

MVV wrote:
А какой в дельфе смысл в GetDlgItem? Они всегда от фонаря выбираются...
Эмм. Ну, ты сам предлагал с проверкой отлова.

#1864:  Author: MVVLocation: Ростов-Дон PostPosted: Tue Jan 30, 2018 17:26
    —
Flasher wrote:
Эмм. Ну, ты сам предлагал с проверкой отлова.

Но проблему же это всё равно не решит? Будет getitem вместо findwnd, и вся разница...

#1865:  Author: FlasherLocation: Москва PostPosted: Tue Jan 30, 2018 17:31
    —
Понятно.
Пытаюсь залочить на пять секунд левую панель — не выходит:
Code:
/ef sendmsg(findwnd(TMyListBox,,,1),$0B,0) delay(5000) sendmsg(findwnd(TMyListBox,,,1),$0B,1)

#1866:  Author: FlasherLocation: Москва PostPosted: Thu Feb 01, 2018 15:24
    —
MVV
Ну, так какие мысли по проблеме?

#1867:  Author: MVVLocation: Ростов-Дон PostPosted: Thu Feb 01, 2018 16:16
    —
Первый раз попробовал, не работает, начал проверять, какой дескриптор находит findwnd(TMyListBox,,,1) - никакого. Посмотрел описание, запятых должно быть 4. Проверил с findwnd(TMyListBox,,,,1) - находит какой-то дескриптор, пробую, эффекта не видно. Посмотрел в дерево окон - это листбокс FTP-панели... Перезапустил тотал, попробовал снова - перерисовка панели блокируется, перемещения курсора не видно, хотя статусная строка обновляется... но не в левой, а правой панели! В общем, подводных камней тут хватает... TCFS2Tools, кстати, определяет левую панель среди множества листбоксов по тому, что она левее или выше правой. И, тоже кстати, в 9-ке можно получать панели специальным сообщением, в частности, msg(1074,1) возвращает дескриптор левой панели.

#1868:  Author: FlasherLocation: Москва PostPosted: Thu Feb 01, 2018 16:55
    —
Запятых 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) возвращает дескриптор левой панели.
Да, это я знаю.

#1869:  Author: MVVLocation: Ростов-Дон PostPosted: Thu Feb 01, 2018 17:09
    —
Да, наверное рекурсия и правда не нужна, но почему-то у меня findwnd(TMyListBox,,,1) ничего не находит.

Так или иначе, если что-то не работает, надо постепенно разбираться.

Кстати, забавная особенность: если в заблокированной панели сменить папку, она разблокируется.

#1870:  Author: FlasherLocation: Москва PostPosted: Thu Feb 01, 2018 17:16
    —
MVV wrote:
но почему-то у меня findwnd(TMyListBox,,,1) ничего не находит.
Ну, я с этой ситуации и начал. Хорошо бы разобраться.

Особенность, конечно, интересная, но не радужная, т. к. блокировка часто нужна как раз при смене директории. В случае блокировки окна ТС по msg($0B,0) этого нет. Собственно, и при блокировке панели с помощью компонента TCHelper.

 А по TMyTabControl блокировка вообще не наблюдается:

#1871:  Author: FlasherLocation: Москва PostPosted: Tue Mar 20, 2018 20:02
    —
MVV
С месяц назад задался вопросом насчёт установки стилей для всяких окон помимо главного ТС. Можешь добавить?

#1872:  Author: MVVLocation: Ростов-Дон PostPosted: Tue Mar 20, 2018 22:13
    —
Добавить-то могу, но жалко, что консистенция имён функций страдает...

#1873:  Author: FlasherLocation: Москва PostPosted: Tue Mar 20, 2018 22:24
    —
А от чего страдает-то? Можно приставку ex или ext добавить.

#1874:  Author: MVVLocation: Ростов-Дон PostPosted: Wed Mar 21, 2018 10:49
    —
Назову я её скорее wndstyle... Хотя, конечно, в данном конкретном случае можно просто текущей функции добавить новый опциональный аргумент, как это сделано, например, у функции send.

#1875:  Author: FlasherLocation: Москва PostPosted: Wed Mar 21, 2018 11:15
    —
ОК. Аргумент ещё лучше.



Total Commander -> Плагины Total Commander


output generated using printer-friendly topic mod. All times are GMT + 4 Hours

Goto page Previous  1, 2, 3 ... 124, 125, 126 ... 128, 129, 130  Next  :| |:
Page 125 of 130

Powered by phpBB © 2001, 2005 phpBB Group