yozhik

|
Posted: Mon Aug 07, 2023 02:32 Post subject: |
|
|
Вот такой вариант окошка копирования F5/F6 в TC 11.00 на Win 10:
 И его код:
Code: | LoadLibrary 'Plugins\Autorun_ModifyDialogs.dll'
IniRead CRNTLNG %COMMANDER_INI% "Configuration" "LanguageIni"
IniRead AUTOSIZE %COMMANDER_INI% "Configuration" "AutoSizeDialogs" 1
# cm_Copy, cm_RenMove F5/F6
If %AUTORUN_TCARCH% = 32 Then
If %AUTOSIZE% = 1 Then
AddDialog DIALOG_COPYMOVE
AddControl /W:-20 "TMyCheckBox" 3 "" #NTFS
If StrPos(%CRNTLNG%, "RUS") > 0 Then
AddControl /X:8 /W:-7 "TMyCheckBox" 1 "" #MD5
ElseIf StrPos(%CRNTLNG%, "ENG") > 0 Then
AddControl /X:67 /W:-68 "TMyCheckBox" 1 "" #MD5
EndIf
AddControl /X:-223 "TButton" 4 "" #Tree
AddControl /X:-20 /W:-18 "TButton" 1 "" #F2
AddControl /X:-167 /W:-78 "TButton" 2 "⌵" #Options
AddControl /X:329 /W:-18 "TButton" 5 "" #OK
AddControl /X:106 /W:2 "TButton" 3 "" #Cancel
AddDialog DIALOG_COPYMOVE_PINNED
AddControl /W:-20 "TMyCheckBox" 3 "" #NTFS
If StrPos(%CRNTLNG%, "RUS") > 0 Then
AddControl /X:8 /W:-7 "TMyCheckBox" 1 "" #MD5
ElseIf StrPos(%CRNTLNG%, "ENG") > 0 Then
AddControl /X:67 /W:-68 "TMyCheckBox" 1 "" #MD5
EndIf
AddControl /X:-223 "TButton" 4 "" #Tree
AddControl /X:-20 /W:-18 "TButton" 1 "" #F2
AddControl /X:329 /W:-18 "TButton" 5 "" #OK
AddControl /X:106 /W:2 "TButton" 3 "" #Cancel
Else # %AUTOSIZE% = 0
AddDialog DIALOG_COPYMOVE
AddControl /W:-20 "TMyCheckBox" 3 "" #NTFS
If StrPos(%CRNTLNG%, "RUS") > 0 Then
AddControl /X:-4 /W:5 "TMyCheckBox" 1 "" #MD5
ElseIf StrPos(%CRNTLNG%, "ENG") > 0 Then
AddControl /X:64 /W:-68 "TMyCheckBox" 1 "" #MD5
EndIf
AddControl /X:-225 "TButton" 4 "" #Tree
AddControl /X:-19 /W:-18 "TButton" 1 "" #F2
AddControl /X:-169 /W:-78 "TButton" 2 "⌵" #Options
AddControl /X:330 /W:-18 "TButton" 5 "" #OK
AddControl /X:106 /W:2 "TButton" 3 "" #Cancel
AddDialog DIALOG_COPYMOVE_PINNED
AddControl /W:-20 "TMyCheckBox" 3 "" #NTFS
If StrPos(%CRNTLNG%, "RUS") > 0 Then
AddControl /X:-4 /W:5 "TMyCheckBox" 1 "" #MD5
ElseIf StrPos(%CRNTLNG%, "ENG") > 0 Then
AddControl /X:64 /W:-68 "TMyCheckBox" 1 "" #MD5
EndIf
AddControl /X:-225 "TButton" 4 "" #Tree
AddControl /X:-19 /W:-18 "TButton" 1 "" #F2
AddControl /X:330 /W:-18 "TButton" 5 "" #OK
AddControl /X:106 /W:2 "TButton" 3 "" #Cancel
EndIf
Else # %AUTORUN_TCARCH% = 64
If %AUTOSIZE% = 1 Then
AddDialog DIALOG_COPYMOVE
AddControl /W:-20 "Button" 5 "" #NTFS
If StrPos(%CRNTLNG%, "RUS") > 0 Then
AddControl /X:10 /W:-10 "Button" 3 "" #MD5
ElseIf StrPos(%CRNTLNG%, "ENG") > 0 Then
AddControl /X:68 /W:-65 "Button" 3 "" #MD5
EndIf
AddControl /X:-223 "Button" 7 "" #Tree
AddControl /X:-20 /W:-18 "Button" 1 "" #F2
AddControl /X:-167 /W:-78 "Button" 2 "⌵" #Options
AddControl /X:329 /W:-18 "Button" 8 "" #OK
AddControl /X:106 /W:2 "Button" 6 "" #Cancel
AddDialog DIALOG_COPYMOVE_PINNED
AddControl /W:-20 "Button" 10 "" #NTFS
If StrPos(%CRNTLNG%, "RUS") > 0 Then
AddControl /X:10 /W:-10 "Button" 8 "" #MD5
ElseIf StrPos(%CRNTLNG%, "ENG") > 0 Then
AddControl /X:68 /W:-65 "Button" 8 "" #MD5
EndIf
AddControl /X:-223 "Button" 12 "" #Tree
AddControl /X:-20 /W:-18 "Button" 6 "" #F2
AddControl /X:329 /W:-18 "Button" 13 "" #OK
AddControl /X:106 /W:2 "Button" 11 "" #Cancel
Else # %AUTOSIZE% = 0
AddDialog DIALOG_COPYMOVE
AddControl "Button" 0 ""
AddControl /W:-20 "Button" 4 "" #NTFS
If StrPos(%CRNTLNG%, "RUS") > 0 Then
AddControl /X:-5 /W:5 "Button" 1 "" #MD5
ElseIf StrPos(%CRNTLNG%, "ENG") > 0 Then
AddControl /X:65 /W:-65 "Button" 1 "" #MD5
EndIf
AddControl /X:-225 "Button" 6 "" #Tree
AddControl /X:-20 /W:-18 "Button" 2 "" #F2
AddControl /X:-167 /W:-78 "Button" 3 "⌵" #Options
AddControl /X:331 /W:-18 "Button" 7 "" #OK
AddControl /X:107 /W:2 "Button" 5 "" #Cancel
AddDialog DIALOG_COPYMOVE_PINNED
AddControl "Button" 0 ""
AddControl /W:-20 "Button" 9 "" #NTFS
If StrPos(%CRNTLNG%, "RUS") > 0 Then
AddControl /X:-5 /W:5 "Button" 1 "" #MD5
ElseIf StrPos(%CRNTLNG%, "ENG") > 0 Then
AddControl /X:65 /W:-65 "Button" 1 "" #MD5
EndIf
AddControl /X:-225 "Button" 11 "" #Tree
AddControl /X:-20 /W:-18 "Button" 7 "" #F2
AddControl /X:331 /W:-18 "Button" 12 "" #OK
AddControl /X:107 /W:2 "Button" 10 "" #Cancel
EndIf
EndIf
ModifyDialogs |
Это при шрифте для диалогов Segoe UI, 9.
Loopback
В коде, в 64-битной части есть пара строк:
Code: | AddControl "Button" 0 "" |
Без них отказывались работать строки с Button 1, вот такие:
Code: | AddControl /X:-5 /W:5 "Button" 1 "" #MD5 |
Точнее, вначале когда я написал строку с Button 1, она не работала. Потом стал экспериментировать, проверять где какие instance, и при добавлении Button 0 вдруг заработала Button 1. Потом, после того, как весь код был готов, Button 1 вроде заработала и без Button 0. Но я уж не стал ничего трогать, оставил нули на всякий пожарный. Как думаете, почему такое поведение? Я сам ума не приложу. |
|