====== Примеры ======
На этой станице собраны различные примеры по использованию плагина.
===== Диалог копирования/перемещения =====
Пример задания перемещения с переключением для 32-битной и 64-битной системы, как в схеме по умолчанию ("Простой режим") для версии 9.5x:
If %AUTORUN_TCARCH% = 32 Then
AddDialog DIALOG_COPYMOVE
# кнопка TButton1 видима только в диалогах копирования/перемещения
# поставим условие, чтобы исключить диалоги создания ссылки
# и загрузки/выгрузки плагинов и FTP
AddCondition /VISIBLE:1 "TButton" 1
AddControl /X:17 /Y:-74 /W:-20 "TButton" 2
AddControl /X:109 "TButton" 1
AddControl /X:109 "TButton" 3
AddControl /X:109 "TButton" 4
AddControl /X:109 "TButton" 5
AddDialog DIALOG_COPYMOVE_PINNED
AddControl /X:109 "TButton" 1
AddControl /X:109 "TButton" 3
AddControl /X:109 "TButton" 4
AddControl /X:109 "TButton" 5
Else
AddDialog DIALOG_COPYMOVE
AddCondition /EXISTS:1 "Button" 7
AddControl /X:17 /Y:-73 /W:-20 "Button" 3
AddControl /X:109 "Button" 7
AddControl /X:109 "Button" 2
AddControl /X:109 "Button" 6
AddControl /X:109 "Button" 5
AddDialog DIALOG_COPYMOVE_PINNED
AddControl /X:109 "Button" 12
AddControl /X:109 "Button" 7
AddControl /X:109 "Button" 11
AddControl /X:109 "Button" 10
Endif
ModifyDialogs
Пример задания перемещения, как в схеме c опцией /NARROW (только для TC 9.2x 32-бит):
AddDialog /X:58 /W:-116 DIALOG_COPYMOVE
AddCondition /VISIBLE:1 "TButton" 2
AddControl /X:-93 /Y:-74 /W:-20 "TButton" 3
AddControl /X:-116 /Y:1 "TButton" 1
AddControl /W:-116 "TMyComboBox" 1
AddControl /W:-114 "TMyComboBox" 2
AddControl /X:-111 "TMyCheckBox" 1
AddControl /W:-101 "TMyCheckBox" 3
AddControl /W:-114 "TMyGroupBox" 1
AddDialog DIALOG_COPYMOVE_POST
AddControl /W:-114 "TMyComboBox" 1
AddControl /W:-114 "TCheckBox" 1
AddControl /W:-114 "TCheckBox" 2
AddControl /W:-114 "TCheckBox" 3
AddDialog /X:58 /W:-116 DIALOG_COPYMOVE_PINNED
AddControl /W:-113 "TMyGroupBox" 1
AddControl /W:-113 "TMyComboBox" 1
AddControl /W:-116 "TMyComboBox" 2
AddControl /W:-113 "TMyComboBox" 3
AddControl /X:-116 /Y:1 "TButton" 1
AddControl /X:-110 "TMyCheckBox" 1
AddControl /W:-113 "TCheckBox" 1
AddControl /W:-113 "TCheckBox" 2
AddControl /W:-113 "TCheckBox" 3
ModifyDialogs
С кнопками, равномерно распределенными по ширине диалога (для TC 9.5x 32-бит) (автор --- BeTeP):
AddDialog DIALOG_COPYMOVE
AddControl /X:0 /Y:-1 /W:-11 "TMyComboBox" 2
AddControl /X:0 /Y:-1 /W:-11 "TMyComboBox" 1
AddControl /X:-1 /Y:-1 /W:17 "TButton" 5
AddCondition /VISIBLE:1 "TButton" 1
AddControl /X:17 /Y:-1 /W:17 "TButton" 1
AddControl /X:36 /Y:-1 /W:35 "TButton" 4
AddControl /X:72 /Y:-1 /W:37 "TButton" 3
AddControl /X:-35 /Y:-75 /W:-10 "TButton" 2
AddControl /X:0 /Y:1 "TMyCheckBox" 2
AddControl /X:-79 /Y:1 "TMyCheckBox" 1
AddControl /X:4 /W:-5 "TMyGroupBox" 1
AddDialog DIALOG_COPYMOVE_POST
AddControl /W:-10 "TMyComboBox" 1
AddDialog DIALOG_COPYMOVE_PINNED
AddControl /X:0 /Y:-1 /W:-11 "TMyComboBox" 3
AddControl /X:0 /Y:-1 /W:-11 "TMyComboBox" 2
AddControl /X:-1 /Y:-1 /W:17 "TButton" 5
AddControl /X:17 /Y:-1 /W:17 "TButton" 1
AddControl /X:36 /Y:-1 /W:35 "TButton" 4
AddControl /X:72 /Y:-1 /W:37 "TButton" 3
AddControl /X:0 /Y:1 TMyCheckBox 2
AddControl /X:-79 /Y:1 "TMyCheckBox" 1
AddControl /X:4 /W:-5 "TMyGroupBox" 1
AddControl /W:-10 "TMyComboBox" 1
С исправленной шириной кнопок (для TC 9.5x 32-бит) (автор --- Flasher):
AddDialog /W:-6 DIALOG_COPYMOVE
AddCondition /VISIBLE:1 "TButton" 1
AddControl /X:-3 /W:-3 TMyComboBox 2
AddControl /X:-3 /W:-3 TMyComboBox 1
AddControl /X:-3 TMyCheckBox 2
AddControl /X:1 TMyCheckBox 1
AddControl /X:-3 /Y:-2 /W:-8 TButton 5
AddControl /X:-11 /Y:-2 /W:-8 TButton 1
AddControl /X:-19 /Y:-2 /W:11 TButton 4
AddControl /X:-99 /Y:-2 /W:-9 TButton 2
AddControl /X:95 /Y:-2 /W:12 TButton 3
AddControl /X:1 /W:-4 TMyGroupBox 1
AddDialog DIALOG_COPYMOVE_POST
AddControl /X:1 TBitBtn 1
AddControl /W:-3 TMyComboBox 1
AddDialog /W:-6 DIALOG_COPYMOVE_PINNED
AddControl /X:-3 /W:-3 TMyComboBox 2
AddControl /X:-3 /W:-3 TMyComboBox 3
AddControl /X:-3 TMyCheckBox 2
AddControl /W:-3 TMyComboBox 1
AddControl /X:2 TMyCheckBox 1
AddControl /X:-6 TMyCheckBox 3
AddControl /X:-3 /Y:-3 /W:-8 TButton 5
AddControl /X:-11 /Y:-3 /W:-8 TButton 1
AddControl /X:-19 /Y:-3 /W:11 TButton 4
AddControl /X:95 /Y:-3 /W:12 TButton 3
AddControl /X:1 /W:-4 TMyGroupBox 1
AddControl /X:1 TBitBtn 1
===== Прочие диалоги =====
Пример исправления диалога по Shift+F4, чтобы поменять местами кнопки Дерево и ОК (для TC 9.2x, 32,64 бит):
If %AUTORUN_TCARCH% = 32 Then
AddDialog "TCOMBOINPUT"
AddCondition /TEXT "TButton" 1 "Д&ерево"
AddControl /X:132 /W:-20 "TButton" 1
AddControl /X:-124 "TButton" 3
Else
AddDialog "TCOMBOINPUT"
AddCondition /TEXT "Button" 1 "Д&ерево"
AddControl /X:134 /W:-20 "Button" 1
AddControl /X:-124 "Button" 3
Endif
ModifyDialogs
Подборка разных диалогов. Демонстрирует:
* использование условий для диалогов с одним классом;
* чтение текста, используемого для фильтрации из языковых файлов;
* возможные настройки сохранения.
Код для TC 9.2x 32-бит (автор --- Flasher):
IniRead /R LNG %COMMANDER_INI% Configuration LanguageIni
If %LNG% = '' Then
Set ExpandSelection "Expand selection"
Set CustomFields "Custom fields by file type"
Set ListerPlugins "Lister plugins"
Set ContentPlugins "Content plugins"
Set IntAssoc "Internal Associations"
Set Tree Tree
Set Edit "Edit/View"
Set Plugins Plugins
Set Packer Packer
Set Font Font
Set DefineColors "Define colors by file type"
Set FSplugins "File system plugins"
Else
LngRead ExpandSelection 18 '%COMMANDER_PATH%\Language\%LNG%'
LngRead CustomFields 1589
LngRead ListerPlugins 1593
LngRead ContentPlugins 1595
LngRead IntAssoc 1722
LngRead Tree 5002
LngRead Edit 5102
StrPart Packer "%Edit%" \n 9
StrPart Edit "%Edit%" \n 5
LngRead Plugins 5360
LngRead Font 5844
StrTrim Font %Font%
LngRead DefineColors 6501
LngRead FSplugins 6841
EndIf
# Сохранение размеров "Дополнительные данные по типам файлов":
AddDialog /CENTER:7 /SAVE:12 TDlgCustomColors
AddCondition /TEXT "" 0 %CustomFields%
# Сохранение размеров "Определить цвета для типов файлов":
AddDialog /CENTER:7 /SAVE:12 TDlgCustomColors
AddCondition /TEXT "" 0 %DefineColors%
# Сохранение размеров "Внутренние ассоциации":
AddDialog /CENTER:3 /SAVE:12 TDlgCustomColors
AddCondition /TEXT "" 0 %IntAssoc%
# Центрирование "Шрифт" относительно "Настройка" с модификацией элементов:
AddDialog /CENTER:7 "#32770"
AddCondition /Text "" 0 %Font%
AddCondition /VISIBLE:0 Static 4
AddControl /H:342 ComboBox 1
AddControl /H:50 ComboBox 2
AddControl /H:164 ComboBox 3
AddControl /Y:26 /H:-40 /W:-84 Button 4
AddControl /W:0 /X:600 /Y:30 Static 6
AddControl /Y:30 Static 7
AddControl /Y:30 ComboBox 5
AddControl /X:194 /Y:-20 SysLink 1
# Увеличение и сохранение высоты "Добавить выделение":
AddDialog /CENTER:2 /H:600 TCOMBOINPUT
AddCondition /TEXT "" 0 %ExpandSelection%
AddControl /H:600 TMyListBox 1
AddControl /Y:600 TButton 1
AddControl /Y:600 TButton 2
AddControl /Y:600 TButton 3
# Поменять местами кнопки Дерево и ОК диалоге создания файла (Shift+F4):
AddDialog TCOMBOINPUT
AddCondition /TEXT TButton 1 %Tree%
AddControl /X:132 /W:-20 TButton 1
AddControl /X:-124 TButton 3
# Не изменять диалог создания каталога:
AddDialog TCOMBOINPUT
AddCondition /EXISTS:0 TButton 3
# Измение высоты диалога "Фильтр...":
AddDialog /CENTER:2 /H:600 TCOMBOINPUT
AddCondition /TEXT "" 0 "Total Commander"
AddControl /H:600 TMyListBox 1
AddControl /Y:600 TButton 1
AddControl /Y:600 TButton 2
AddControl /Y:600 TButton 3
# Сохранение размеров "Выбор команды":
AddDialog /WAIT:40 /SAVE:15 TCmdSelForm
# Сохранение размеров "Файловые ассоциации":
AddDialog /CENTER:7 /SAVE:12 TASSOCIATEDLG
AddCondition /TEXT /PARENT TMyPanel 1 %Plugins%
AddDialog /CENTER:7 /SAVE:12 TASSOCIATEDLG
AddCondition /TEXT /PARENT TMyPanel 1 %Packer%
AddDialog /CENTER:7 /SAVE:12 TASSOCIATEDLG
AddCondition /TEXT /PARENT TMyPanel 1 %Edit%
AddDialog /CENTER:7 /SAVE:12 TASSOCIATEDLG
# Сохранение размеров "Плагины файловой системы"
AddDialog /CENTER:7 /SAVE:12 TFsPluginConfigForm
AddCondition /TEXT "" 0 %FSplugins%
# Сохранение размеров "Плагины внутреннего просмотрщика"
AddDialog /CENTER:7 /SAVE:12 TFsPluginConfigForm
AddCondition /TEXT "" 0 %ListerPlugins%
# Сохранение размеров "Информационные плагины"
AddDialog /CENTER:7 /SAVE:12 TFsPluginConfigForm
AddCondition /TEXT "" 0 %ContentPlugins%
ModifyDialogs