Single Post - Drag&Drop на главной панели инструментов

Single Post

Topic: Drag&Drop на главной панели инструментов

Author

Message

Orion9

Posted: Tue Aug 04, 2026 13:41 Post subject:

Меню панелей (Shift + ПКМ) можно вызвать в любой момент, об этом я не подумал, добавить кнопки из DLL или ICL на текущую панель будет сложнее.

Пункт меню "Открыть..." создает файл панели из библиотеки значков и открывает его командой OPENBAR1, что полностью повторяет функционал реализованной ранее кнопки. Но кнопка создавалась, когда в Autorun еще не было своих файловых функций и возможности вызова из внешних библиотек. Сейчас код стал компакнее, быстрее и больше не требует наличие плагина IconLibrary. Однако em_команда (em_open_icons_panel) для открытия панели все еще требуется.

Hidden text

Code:

Func HBarOpenIcons()
Local flt = "Icons (*.dll *.icl *.exe)" & Chr(0) & "*.dll;*.icl;*.exe" & Chr(0) & Chr(0)
Local file = OpenFileDialog(COMMANDER_PATH & "\WCMICONS.DLL", flt)
If file <> "" Then
nIcons = DllCall("shell32\ExtractIconExW", "wstr", file, "int", -1, "ptr", 0, "ptr", 0, "uint", 0, "uint")
If nIcons > 0 Then
CreateBarFromLib(file, nIcons)
Else
MsgBox("Файл не содержит иконок" & auCRLF & auCRLF & file & auCRLF & auCRLF & "Иконок: " & nIcons & " шт.")
EndIf
EndIf
EndFunc

Func CreateBarFromLib(FileName, Icons)
Local sName = "Auto_icons", sText = ""
Local sPath = COMMANDER_PATH & "\Bars", sBar = sPath & "\" & sName & ".bar"

# проверка существования каталога
If Not FileExist(sPath) Then Return MsgBox("Путь не найден " & sPath, "Autorun", 48)

# поиск старых файлов панели
Local lst = List()
lst.Text = FileFind(sPath, sName & ".*", 0, 1)

# удаление старых файлов панели
For i = 0 To lst.Count - 1
DllCall("kernel32.dll\DeleteFileW", "Wstr", lst[i])
Next

Free(lst)

# путь для кнопки возврата
Local sDef = IniRead("~/R", COMMANDER_INI, "Buttonbar", "Buttonbar", "%COMMANDER_PATH%\DEFAULT.BAR")

# создание нового файла панели
sText &= "[Buttonbar]" & auCRLF & _
"Buttoncount=" & Icons + 1 & auCRLF & _
"button1" & "=" & "wcmicons.dll,15" & auCRLF & _
"cmd1" & "=" & sDef & auCRLF & _
"menu1" & "=" & "Вернуться" & auCRLF
For i = 2 to Icons + 1
sText &= "button" & i & "=" & FileName & "," & i - 2 & auCRLF & _
"cmd" & i & "=" & "100000" & auCRLF & _
"menu" & i & "=" & i - 2 & auCRLF
Next

# сохранение и открытие файла панели
FileWrite(sBar, sText, "ANSI")
ShowDragHint("Кнопок создано: " & Icons + 1 & " шт.")
CommandExec("em_open_icons_panel")
EndFunc

Полный модуль