╔═════════════════ Sort by ═════════════════╗
║ Name Ctrl+F3 ║
║ Extension Ctrl+F4 ║
║- Write time Ctrl+F5 ║
║ Size Ctrl+F6 ║
║ Unsorted Ctrl+F7 ║
║ Creation time Ctrl+F8 ║
║ Access time Ctrl+F9 ║
║ Change time ║
║ Descriptions Ctrl+F10 ║
║ Owner Ctrl+F11 ║
║ Allocated size ║
║ Number of hard links ║
║ Number of streams ║
║ Size of streams ║
║ Full name ║
║ Custom data ║
╟───────────────────────────────────────────╢
║ Sort files with StrCmpLogicalW ║
╟───────────────────────────────────────────╢
║ Numeric sort ║
║√ Uppercase before lowercase ║
║ Use sort groups Shift+F11 ║
║ Show selected first Shift+F12 ║
║ Show directories first ║
╚═══════════════════════════════════════════╝
видим сопричастную опцию, что в свете выпиливания выглядит странным.
Сопричастность вижу в совместном способе использования. Кому-то может удобно (было) создавать папки в uppercase потому, что имеется возможность поднимать их наверх с помощью сортировки.
local ON = true -- set to false to turn the option OFF
local Pattern = regex.new("^\\U+$")
local F = far.Flags
local GUID = win.Uuid("fad00dbe-3fff-4095-9232-e1cc70c67737") -- "MakeFolderId"
local itempos = 3
local function Work (Event, FarDialogEvent)
if Event == F.DE_DLGPROCINIT and FarDialogEvent.Msg == F.DN_CLOSE
and FarDialogEvent.Param1 >= 1 then
local hDlg = FarDialogEvent.hDlg
local DialogInfo = hDlg:send("DM_GETDIALOGINFO")
if DialogInfo and DialogInfo.Id==GUID then
local Item = hDlg:send("DM_GETDLGITEM", itempos)
if Item and Item[1]==F.DI_EDIT and Pattern:match(Item[10]) then
hDlg:send("DM_SETTEXT", itempos, Item[10]:upper())
end
end
end
end
Event {
description="Create folders in uppercase";
group="DialogEvent";
action=ON and Work;
}