| View previous topic :: View next topic |
| Author |
Message |
A55555
Joined: 06 Feb 2011
Posts: 28
|
 (Separately) Posted: Sat Sep 13, 2025 00:55 Post subject: |
 |
|
| Orion9 wrote: | | A55555 wrote: | | Я скопировал те строки из мониторинга выключения, по логике, в TorrentSize, но оно не заработало, подсазка возле курсора осталась по умолчанию крошечной. |
Вы правильно сделали, но в теле функции подсказка вызывается два раза, если не считать подсказки об ошибках (Файл не существует, Каталог и т.д.). Возможно, вы вставили строки перед одной подсказкой, но вызывалась другая. Первая подсказка вызывается для одиночных файлов, вторая - для выделенных. По сути, нужно и перед той, и перед другой сделать. Но не забудьте после каждого ShowHint() добавить строку сброса параметров SetHintParam("ShowHint", "Reload"), поскольку изменение параметров происходить глобально и затрагивает все подсказки в плагине.
|
Спасибо, подсказки в TorrentSize и Duration настроил.
| Orion9 wrote: | | Что же касается монитора выключения, то вот какие идеи у меня были на этот счет. Скорее всего помешать процессу копирования смогут только два диалога - ExtMsgForm и TOverWriteForm. Это две формы, которые объединяют в себе все, что вы перечислили выше. Можно было бы просто искать эти окна и следить за ними, но мне не понравился этот подход. Кроме того нужно учитывать, что окна могут быть открыты в других процессах ТС, поэтому нужно что-то более универсальное. Если допустить, что перекрывающее окно диалога будет иметь владельцем окно копирования (а судя по всему так оно и есть), то достаточно просто проверять окна первого уровня на наличие такого владельца. Пример такого перечисления окон первого уровня есть в справке к объекту Callback, его я и взял. Остальное, как говорится, дело техники. Полный код всего: |
Находясь в TC в момент, когда после окончания копирования появляется окно счетчика, поверх всех окон не срабатывает для окна счетчика.
При этом, если находиться в момент появления окна счетчика в другом окне, например браузере, то поверх всех окон для этого окна счетчика срабатывает.
Добавлено спустя 32 минуты:
| Orion9 wrote: | A55555
А что касается подсказки MediaInfo на панелях (если вы её имеете в виду), то ее нужно собирать из нескольких частей. Помимо кода Autorun, должны быть созданы 60 полей, т.е. в секции [HintsCustomField] должны быть два щаблона *.* по 30 полей каждый, которые должны ее замыкать. Т.е. цифры у 22exts и 22fields должны быть своими, как и у 23exts и 23fields.
Можно просто войти в Настройки -> Содержимое панелей -> Пользовательские и добавить там два шаблона *.*
| Code: | [=autorun.C1]\n[=autorun.C2]\n[=autorun.C3]\n[=autorun.C4]\n[=autorun.C5]\n[=autorun.C6]\n[=autorun.C7]\n[=autorun.C8]\n[=autorun.C9]\n[=autorun.C10]\n[=autorun.C11]\n[=autorun.C12]\n[=autorun.C13]\n[=autorun.C14]\n[=autorun.C15]\n[=autorun.C16]\n[=autorun.C17]\n[=autorun.C18]\n[=autorun.C19]\n[=autorun.C20]\n[=autorun.C21]\n[=autorun.C22]\n[=autorun.C23]\n[=autorun.C24]\n[=autorun.C25]\n[=autorun.C26]\n[=autorun.C27]\n[=autorun.C28]\n[=autorun.C29]\n[=autorun.C30] |
| Code: | [=autorun.C31]\n[=autorun.C32]\n[=autorun.C33]\n[=autorun.C34]\n[=autorun.C35]\n[=autorun.C36]\n[=autorun.C37]\n[=autorun.C38]\n[=autorun.C39]\n[=autorun.C40]\n[=autorun.C41]\n[=autorun.C42]\n[=autorun.C43]\n[=autorun.C44]\n[=autorun.C45]\n[=autorun.C46]\n[=autorun.C47]\n[=autorun.C48]\n[=autorun.C49]\n[=autorun.C50]\n[=autorun.C51]\n[=autorun.C52]\n[=autorun.C53]\n[=autorun.C54]\n[=autorun.C55]\n[=autorun.C56]\n[=autorun.C57]\n[=autorun.C58]\n[=autorun.C59]\n[=autorun.C60] |
Там же нужно поставить галочку "Объединять все подсказки, подходящие по типу файлов". |
При создании, эти шаблоны можно назвать как угодно или фиксированные имена какие-то дать необходимо?
| Orion9 wrote: | | После перезагрузки ТС у плагина Autorun должно появится 60 дополнительных полей. Проверить это можно в WDX Guide. |
Для проверки, этой утилите необходимо указать на файл autorun.cfg? |
|
| Back to top |
|
 |
AkulaBig
Joined: 03 Dec 2008
Posts: 431
|
| (Separately) Posted: Sat Sep 13, 2025 11:33 Post subject: |
|
|
| Orion9 wrote: | | Вариантов, наверное, есть несколько, но если так? |
Спасибо:
Добавлено спустя 2 минуты:
| A55555 wrote: | | Для проверки, этой утилите необходимо указать на файл autorun.cfg? |
Просто зайдите в пользовательские колонки и посмотрите, появились у autorun эти поля. |
|
| Back to top |
|
|
Orion9
Joined: 01 Jan 2024
Posts: 832
|
| (Separately) Posted: Sat Sep 13, 2025 13:41 Post subject: |
|
|
| Loopback wrote: | | до сих пор такие вещи всплывают... |
Сталкивался с чем-то подобным, но тогда не придал значения, поскольку, вероятно, удалось найти какой-то обходной путь, но это не отменяет того факта, что уже тысячи и тысячи строк были успешно написаны на Autorun и продолжают писаться. Вы сделали отличное ядро, практически полноценный скриптовый язык для работы с Total Commander, который по содержанию приближается к таким гигантам, как Autohotkey. А что, если отбросить GUI, COM и прочие плюшки, так оно и получается. Поэтому считаю, что в описании плагина должно быть указано, что это именно скриптовый язык для работы с ТС, не иначе! Autorun давно уже перерос свой статус обычного выполнения действий при запуске:
 Hidden text | Code: | Это псевдоконтентный плагин, предназначенный для выполнения некоторых задач при запуске Total Commander. Можно запустить файл, выполнить команду (cm_ и em_), установить переменную окружения, записать значение в ini-файл, задать задержку между выполнением команд, загрузить библиотеку или плагин. Команды читаются из текстового файла конфигурации. |
| Loopback wrote: | | На самом деле свет в конце туннеля виден. |
Это радует. Ещё полгода назад всё не так было радужно )
| A55555 wrote: | | Находясь в TC в момент, когда после окончания копирования появляется окно счетчика, поверх всех окон не срабатывает для окна счетчика. |
Не вижу у себя этой проблемы. Состояние окна счётчика "Поверх всех окон" устанавливается командой WinSetState(30, h_WinShutdown) после его создания. По идее не должно быть важно, где в этот момент находится пользователь, окно все-равно должно показываться поверх остальных. Кстати, я об этом упоминал, но вызвать только окно с отсчетом можно отдельной командой 80800:
| Code: | TOTALCMD#BAR#DATA
808000
%COMMANDER_EXE%
808000
-1
|
Работает у вас так? Висит окно поверх всех?
| A55555 wrote: | | При создании, эти шаблоны можно назвать как угодно или фиксированные имена какие-то дать необходимо? |
Имена шаблонам можно не давать, только маску нужно указать *.* Можно выбрать и другую маску, например *.mp3, но тогда подсказка будет срабатывать только на mp3-файлах.
| A55555 wrote: | | Для проверки, этой утилите необходимо указать на файл autorun.cfg? |
Эта утилита показывает, какие поля есть у wdx-плагина. Их еще можно посмотреть из окна настройки пользовательских колонок, как написал AkulaBig. Autorun сам не создает пользовательские поля, пока не будет использована директива Pragma AutorunPluginFields. Почему полей так много? Потому что Гислер при отображении полей в подсказке игнорирует символы перевода строки, поэтому приходится разбивать текст, полученный от MediaInfo.dll, на отдельные строки и построчно выводить в свои поля. Т.о. 60 полей = 60 строк от MediaInfo. Видео файлы могут содержать гораздо больше строк, но на аудио файлы этого количества, как правило, хватает. Если бы не было этого ограничения от Гислера, то, конечно же, лучше было сделать одно поле, но такое количество мешает разве что визуально. Если нужно добавить к Autorun еще полей для других целей и задач, то никаких проблем не будет:
| Code: | Pragma AutorunPluginFields "C1:::MagicHint" "C2:::MagicHint" "C3:::MagicHint"
...
"C58:::MagicHint" "C59:::MagicHint" "C60:::MagicHint" "Frag:::FileVCN" "FragNum::ft_numeric_32:NumVCN" "FragEntry::ft_numeric_32:EntryVCN" |
Добавятся еще три поля для отображения информации о фрагментах файла из недавнего примера. |
|
| Back to top |
|
|
A55555
Joined: 06 Feb 2011
Posts: 28
|
| (Separately) Posted: Sat Sep 13, 2025 23:33 Post subject: |
|
|
| Orion9 wrote: | Не вижу у себя этой проблемы. Состояние окна счётчика "Поверх всех окон" устанавливается командой WinSetState(30, h_WinShutdown) после его создания. По идее не должно быть важно, где в этот момент находится пользователь, окно все-равно должно показываться поверх остальных. Кстати, я об этом упоминал, но вызвать только окно с отсчетом можно отдельной командой 80800:
| Code: | TOTALCMD#BAR#DATA
808000
%COMMANDER_EXE%
808000
-1
|
Работает у вас так? Висит окно поверх всех?
|
При нажатии этой кнопки у меня закрывается окно счетчика (как будто я нажал на крестик этого окна) и соответственно далее выскакивает сообщение "Выключение ПК отменено".
Я понял в чем проблема, не выходит на передний план окно счетчика, потому что у меня автостарт по F11 стоит для полноэкранного режима TC
Hidden text | Code: | LoadLibrary Plugins\TCFS2Tools.dll
LoadLibrary Plugins\Autorun_Tweaks.dll
LoadLibrary Plugins\Autorun_Runtime.dll
LoadLibrary Plugins\Autorun_Sysinfo.dll
SetHotKeyAction /H:F11 ToggleFullScreen
WinGetPos('cX', 'cY', 'cW', 'cH')
If Not FileExist(AUTORUN_PATH & '\Layout.ini') Then
ShellExec /SW_HIDE /WAIT %ComSpec% '/q/c echo [Layout]>%AUTORUN_PATH%\Layout.ini'
Local sLayout = IniReadSection('~/R', COMMANDER_INI, 'Layout')
If StrPos(sLayout, '=') Then _
IniWriteSection(AUTORUN_PATH & '\Layout.ini', 'Layout', sLayout)
Else
Local sLayout = IniReadSection(AUTORUN_PATH & '\Layout.ini', 'Layout')
If StrPos(sLayout, '=') Then _
IniWriteSection('~/R', COMMANDER_INI, 'Layout', sLayout)
EndIf
### переход в полноэкранный режим при старте. НАЧАЛО
ToggleFullScreen()
Func ToggleFullScreen(WinChange=1)
Static HasTabHeader, HasStatusBar, HasDriveList, HasKeyButtons, HasCmdLine, _
HasDriveBar, HasButtonBar, HasButtonBar2, HasMainHeader
### переход в полноэкранный режим при старте КОНЕЦ (закомментировав не будет сразу в полноєкранном режиме)
IniRead /R HasCurDir %COMMANDER_INI% 'Layout' 'CurDir'
If HasCurDir Then SendMessage(AUTORUN_TCHANDLE, 11, 0)
If WinChange Then
# SPI_GETWORKAREA - desktop area without taskbar
Static wAreaX1 = SystemParametersInfo(48, 1), _
wAreaY1 = SystemParametersInfo(48, 2), _
wAreaX2 = SystemParametersInfo(48, 3), _
wAreaY2 = SystemParametersInfo(48, 4)
If HasCurDir Then
Static wX = wAreaX1 ? wAreaX1 + 1 : 0, _
wY = wAreaY1 ? wAreaY1 + 1 : 0, _
wW = wAreaX2 = SYSINFO_DESKTOPWIDTH ? wAreaX2 - wAreaX1 - 1 : wAreaX2 - wAreaX1, _
wH = wAreaY2 = SYSINFO_DESKTOPHEIGHT ? wAreaY2 - wAreaY1 - 1 : wAreaY2 - wAreaY1
If WinGetState(6) Then WinSetState(9)
WinSetPos(wX, wY, wW, wH)
Else
If WinGetState(6) Then WinSetState(9)
If cX <> '' Then WinSetPos(cX, cY, cW, cH)
EndIf
EndIf
If HasCurDir Then
HasMainHeader = WinHasStyle(12582912)
PostMessage(AUTORUN_TCHANDLE, 1075, 65538)
IniRead /R HasTabHeader %COMMANDER_INI% 'Layout' 'TabHeader' 1
IniRead /R HasStatusBar %COMMANDER_INI% 'Layout' 'StatusBar' 1
IniRead /R HasDriveList %COMMANDER_INI% 'Layout' 'DriveCombo' 1
IniRead /R HasKeyButtons %COMMANDER_INI% 'Layout' 'KeyButtons' 1
IniRead /R HasCmdLine %COMMANDER_INI% 'Layout' 'CmdLine' 1
IniRead /R HasDriveBar %COMMANDER_INI% 'Layout' 'DriveBar1' 0
IniRead /R HasButtonBar %COMMANDER_INI% 'Layout' 'ButtonBar' 1
IniRead /R HasButtonBar2 %COMMANDER_INI% 'Layout' 'ButtonBarVertical' 1
#SendCommand 2902 2
SendCommand 2906 2
SendCommand 2907 2
SendCommand 2908 2
SendCommand 2909 2
SendCommand 2910 2
SendCommand 2911 2
SendCommand 2944 2
SendCommand 2901 2
WinSetStyle 12582912 4
Else
PostMessage(AUTORUN_TCHANDLE, 1075, 65537)
If HasButtonBar Then SendCommand 2901 1
#If HasDriveBar Then SendCommand 2902 1
If HasDriveList Then SendCommand 2906 1
SendCommand 2907 1
If HasTabHeader Then SendCommand 2908 1
If HasStatusBar Then SendCommand 2909 1
If HasCmdLine Then SendCommand 2910 1
If HasKeyButtons Then SendCommand 2911 1
If HasButtonBar2 Then SendCommand 2944 1
If HasMainHeader Then WinSetStyle 12582912 2
EndIf
SendCommand 2918
If HasCurDir Then SendMessage(AUTORUN_TCHANDLE, 11, 1)
WinRedRaw 2
EndFunc |
не получается у окна счетчика поверх вот этого полноэкранного режима выйти.
Поверх нормального окна TC всё нормально, выходит на передний план окно счетчика.
Orion9
всё стесняюсь спросить. Мониторинг выключения. Окно прогресса.
Меняю со 100 секунд на 50 например в нужных местах, работает.
Но с полосой прогресса (зеленая полоса в окне счетчика) ничего сделать не получается, она под 100 секунд заточена, т.е. при установленных мной 50 секунд, эта полоса только до половины доходит.
Если это целое дело, то не нужно, это уже такое.
Loopback
подскажите пожалуйста, можно в этом коде поправить, чтоб при выходе по F11 из поноэкранного режима окно было развернуло на весь экран.
Hidden text | Code: | LoadLibrary Plugins\TCFS2Tools.dll
LoadLibrary Plugins\Autorun_Tweaks.dll
LoadLibrary Plugins\Autorun_Runtime.dll
LoadLibrary Plugins\Autorun_Sysinfo.dll
SetHotKeyAction /H:F11 ToggleFullScreen
WinGetPos('cX', 'cY', 'cW', 'cH')
If Not FileExist(AUTORUN_PATH & '\Layout.ini') Then
ShellExec /SW_HIDE /WAIT %ComSpec% '/q/c echo [Layout]>%AUTORUN_PATH%\Layout.ini'
Local sLayout = IniReadSection('~/R', COMMANDER_INI, 'Layout')
If StrPos(sLayout, '=') Then _
IniWriteSection(AUTORUN_PATH & '\Layout.ini', 'Layout', sLayout)
Else
Local sLayout = IniReadSection(AUTORUN_PATH & '\Layout.ini', 'Layout')
If StrPos(sLayout, '=') Then _
IniWriteSection('~/R', COMMANDER_INI, 'Layout', sLayout)
EndIf
### переход в полноэкранный режим при старте. НАЧАЛО
ToggleFullScreen()
Func ToggleFullScreen(WinChange=1)
Static HasTabHeader, HasStatusBar, HasDriveList, HasKeyButtons, HasCmdLine, _
HasDriveBar, HasButtonBar, HasButtonBar2, HasMainHeader
### переход в полноэкранный режим при старте КОНЕЦ (закомментировав не будет сразу в полноєкранном режиме)
IniRead /R HasCurDir %COMMANDER_INI% 'Layout' 'CurDir'
If HasCurDir Then SendMessage(AUTORUN_TCHANDLE, 11, 0)
If WinChange Then
# SPI_GETWORKAREA - desktop area without taskbar
Static wAreaX1 = SystemParametersInfo(48, 1), _
wAreaY1 = SystemParametersInfo(48, 2), _
wAreaX2 = SystemParametersInfo(48, 3), _
wAreaY2 = SystemParametersInfo(48, 4)
If HasCurDir Then
Static wX = wAreaX1 ? wAreaX1 + 1 : 0, _
wY = wAreaY1 ? wAreaY1 + 1 : 0, _
wW = wAreaX2 = SYSINFO_DESKTOPWIDTH ? wAreaX2 - wAreaX1 - 1 : wAreaX2 - wAreaX1, _
wH = wAreaY2 = SYSINFO_DESKTOPHEIGHT ? wAreaY2 - wAreaY1 - 1 : wAreaY2 - wAreaY1
If WinGetState(6) Then WinSetState(9)
WinSetPos(wX, wY, wW, wH)
Else
If WinGetState(6) Then WinSetState(9)
If cX <> '' Then WinSetPos(cX, cY, cW, cH)
EndIf
EndIf
If HasCurDir Then
HasMainHeader = WinHasStyle(12582912)
PostMessage(AUTORUN_TCHANDLE, 1075, 65538)
IniRead /R HasTabHeader %COMMANDER_INI% 'Layout' 'TabHeader' 1
IniRead /R HasStatusBar %COMMANDER_INI% 'Layout' 'StatusBar' 1
IniRead /R HasDriveList %COMMANDER_INI% 'Layout' 'DriveCombo' 1
IniRead /R HasKeyButtons %COMMANDER_INI% 'Layout' 'KeyButtons' 1
IniRead /R HasCmdLine %COMMANDER_INI% 'Layout' 'CmdLine' 1
IniRead /R HasDriveBar %COMMANDER_INI% 'Layout' 'DriveBar1' 0
IniRead /R HasButtonBar %COMMANDER_INI% 'Layout' 'ButtonBar' 1
IniRead /R HasButtonBar2 %COMMANDER_INI% 'Layout' 'ButtonBarVertical' 1
#SendCommand 2902 2
SendCommand 2906 2
SendCommand 2907 2
SendCommand 2908 2
SendCommand 2909 2
SendCommand 2910 2
SendCommand 2911 2
SendCommand 2944 2
SendCommand 2901 2
WinSetStyle 12582912 4
Else
PostMessage(AUTORUN_TCHANDLE, 1075, 65537)
If HasButtonBar Then SendCommand 2901 1
#If HasDriveBar Then SendCommand 2902 1
If HasDriveList Then SendCommand 2906 1
SendCommand 2907 1
If HasTabHeader Then SendCommand 2908 1
If HasStatusBar Then SendCommand 2909 1
If HasCmdLine Then SendCommand 2910 1
If HasKeyButtons Then SendCommand 2911 1
If HasButtonBar2 Then SendCommand 2944 1
If HasMainHeader Then WinSetStyle 12582912 2
EndIf
SendCommand 2918
If HasCurDir Then SendMessage(AUTORUN_TCHANDLE, 11, 1)
WinRedRaw 2
EndFunc |
Автозагрузка полноэкранно происходит.
Потом когда мне нужно перейти в оконный режим нажимаю F11, оно переходит в оконный режим, но окно не развернуло на весь экран.
Можно код подправить, чтоб оконный режим был развернутое на весь экран окно (не считая нижней панели Windows)? |
|
| Back to top |
|
|
Loopback
Joined: 07 Sep 2009
Posts: 1607
|
| (Separately) Posted: Sun Sep 14, 2025 12:41 Post subject: |
|
|
| A55555 wrote: | | чтоб при выходе по F11 из поноэкранного режима окно было развернуло на весь экран |
В коде не предусмотрен учёт развернутого состояния окна. Если делать правильно (= универсально), надо читать ключ maximized из соответствующей разрешению секции, или из секции AllResolutions, в зависимости от настроек. Но честно говоря мне не хочется тратить на это время, поэтому просто добавьте функцию разворачивания здесь:
| Code: |
Else
PostMessage(AUTORUN_TCHANDLE, 1075, 65537)
If HasButtonBar Then SendCommand 2901 1
If HasDriveBar Then SendCommand 2902 1
If HasDriveList Then SendCommand 2906 1
SendCommand 2907 1
If HasTabHeader Then SendCommand 2908 1
If HasStatusBar Then SendCommand 2909 1
If HasCmdLine Then SendCommand 2910 1
If HasKeyButtons Then SendCommand 2911 1
If HasButtonBar2 Then SendCommand 2944 1
If HasMainHeader Then WinSetStyle 12582912 2
# Разворачивает окно на весь экран
WinSetState(3)
EndIf
|
|
|
| Back to top |
|
|
Orion9
Joined: 01 Jan 2024
Posts: 832
|
| (Separately) Posted: Sun Sep 14, 2025 13:02 Post subject: |
|
|
| A55555 wrote: | | При нажатии этой кнопки у меня закрывается окно счетчика |
Так и задумано. Первое нажатие на кнопку создает окно, второе закрывает. Кнопка только для тестов, чтобы не запускать каждый раз процесс копирования ради того, чтобы увидеть окна отсчета.
| A55555 wrote: | | не получается у окна счетчика поверх вот этого полноэкранного режима выйти. |
Установил код от Flasher, но проблему воспроизвести не удалось. Пока не знаю, что сказать. И так и этак пробовал, но у меня всё нормально работает. А вообще, полноэкранный режим от Flasher довольно "сурово" выглядит. Оно, конечно, прикольно, но, на мой взгляд, слишком аскетично. Я обычно оставляю заголовок окна, меню и строку состояния. Не вижу большой пользы от скрытия этих элементов. Чай не век 800x600 разрешения живем, чтобы за каждый пиксель бороться.
| A55555 wrote: | | Если это целое дело, то не нужно, это уже такое. |
Да нет, это не сложно, хотя уделять время Autorun и ТС в ближайшее дни-недели действительно больше не смогу. Однако то, что вы предлагаете, по хорошему, надо было сделать сразу. Замените с этой строки:
| Code: | SendMessage(h_WinShutdown, PBM_SETPOS, 0, 0)
Local seconds = 15
For i = 1 to seconds
SendMessage(h_WinShutdown, PBM_SETPOS, Round(i/seconds*100,0), 0)
WinSetText("Выключение через " & seconds-i & " сек.", h_WinShutdown)
Sleep(900)
If g_Shutdown = 0 Then Break
Next
|
Через значение "seconds =" можно указывать количество секунд отсчета.
| Loopback wrote: | | Но честно говоря мне не хочется тратить на это время, поэтому просто добавьте функцию разворачивания здесь: |
Я когда освобожусь, первым делом скорее всего возьмусь за этот код от Flasher - давно хотел заменить функционал TCFS2 на Autorun. И базу неплохую он для этого сделал, нужно только подстроить под себя. |
|
| Back to top |
|
|
Loopback
Joined: 07 Sep 2009
Posts: 1607
|
| (Separately) Posted: Sun Sep 14, 2025 20:01 Post subject: |
|
|
Версия от 14.09.2025
| Code: |
* внутренние изменения и оптимизации нового окна сообщений об ошибках
* убрана поддержка раннего метода возврата длинного текста, использовавшегося в GetSelectedItems с 2.2.15 по 2.2.19
- исправлено обрезание текста параметра при использовании вычисляемых строк в командной записи функций плагинов
|
Довольно существенные пришлось делать изменения для исправления, надеюсь ничего не сломал. |
|
| Back to top |
|
|
A55555
Joined: 06 Feb 2011
Posts: 28
|
| (Separately) Posted: Sun Sep 14, 2025 23:07 Post subject: |
|
|
| Loopback wrote: | | A55555 wrote: | | чтоб при выходе по F11 из поноэкранного режима окно было развернуло на весь экран |
В коде не предусмотрен учёт развернутого состояния окна. Если делать правильно (= универсально), надо читать ключ maximized из соответствующей разрешению секции, или из секции AllResolutions, в зависимости от настроек. Но честно говоря мне не хочется тратить на это время, поэтому просто добавьте функцию разворачивания здесь: |
Спасибо, то что и хотелось.
| Orion9 wrote: | | A55555 wrote: | | не получается у окна счетчика поверх вот этого полноэкранного режима выйти. |
Установил код от Flasher, но проблему воспроизвести не удалось. Пока не знаю, что сказать. И так и этак пробовал, но у меня всё нормально работает. |
У меня тоже всё нормально уже.
Я использовал код для смещения окна, который Loopback мне недавно написал
| Code: | WinAlign(h_WinShutdown, 0, DllCall("GetDesktopWindow"), 0, 600, -320) |
в перемешку с вашим.
Перейдя только на ваш вариант кода Поверх всех окон, смещения и т.д. у меня тоже стало всё нормально с выходом окна счетчика поверх всех окон.
| Orion9 wrote: | Да нет, это не сложно, хотя уделять время Autorun и ТС в ближайшее дни-недели действительно больше не смогу. Однако то, что вы предлагаете, по хорошему, надо было сделать сразу. Замените с этой строки:
| Code: | SendMessage(h_WinShutdown, PBM_SETPOS, 0, 0)
Local seconds = 15
For i = 1 to seconds
SendMessage(h_WinShutdown, PBM_SETPOS, Round(i/seconds*100,0), 0)
WinSetText("Выключение через " & seconds-i & " сек.", h_WinShutdown)
Sleep(900)
If g_Shutdown = 0 Then Break
Next
|
Через значение "seconds =" можно указывать количество секунд отсчета.
|
Спасибо, теперь намного проще количество секунд устанавливать.
Но я имел ввиду, что вот эта зеленая полоса прогресса не синхронизируется под отличные от 100 секунд варианты, например под 15 секунд.
Hidden text
Уже и синхронизация полосы прогресса с количество секунд нормально заработала, сначала вроде не работало  Спасибо.
| Orion9 wrote: | | Я когда освобожусь, первым делом скорее всего возьмусь за этот код от Flasher - давно хотел заменить функционал TCFS2 на Autorun. И базу неплохую он для этого сделал, нужно только подстроить под себя. |
И если можно будет и это реально, если будет вдохновение на такое, сделайте пожалуйста кнопку на тему .torrent файлов.
Чтоб выделяешь .torrent файл, нажимаешь кнопку и оно на противоположной панели показывает файл/папку относящиеся к этому торрент файлу (скачанные через этот торрент файл) или пишет ничего не найдено (проводит поиск по всем дискам).
У меня на нескольких дисках много всякого и так получается, что всё оно сейчас не раздается (контент и сами .torrent файлы у меня на дисках), я собираюсь поштучно вносить через .torrent файлы это всё в клиент и было бы удобно быстро находить относящиеся к .torrent файлу папку/файл. |
|
| 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
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
