====== Примеры ====== На этой станице собраны различные примеры по использованию плагина. ===== Диалог копирования/перемещения ===== Пример задания перемещения с переключением для 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