Directory Opus - [93] :: Программы :: Компьютерный форум Ru.Board

далее несколько скриптов (выкладываю по просьбе aidomars)

Column - Orientation.js
Добавляет колонку, либо тултип для отображения ориентации изображений и некоторых видео (Square, Landscape, Portrait). Позволяет сортировать и группировать файлы по результатам.

Как использовать?
1) сохраните код как Column - Orientation.js
2) скопируйте полученный файл в папку /dopusdata\Script AddIns
3) откройте раздел скриптов в настройках программы и включите этот скрипт (по умолчанию отключен)
4) если требуется добавить колонку, щелкните ПКМ заголовок любой из имеющихся колонок и выберите из списка Script -> Orientation
5) если требуется отображение этого параметра в тултипах, при наведении курсора на изображения и/или некоторые видеофайлы, добавьте код Orientation: {scp:Column - Orientation/Orientation} в Info Tip там, где необходимо.

Код:

Cкрипты, входящие в HeaderMenu.dop. Позволяют добавлять колонки в определенные позиции относительно существующих колонок.

Thumbnail скрипт для пункта меню, переключающего колонку Thumbnail, добавляя ее всегда перед колонкой с именем. Это удобно использовать при включении эскизов вместо стандартных значков файлов.

Код:

@toggle:If COLUMNSTOGGLE=thumbnail

Option Explicit

Function OnClick(ByRef ClickData)
Dim column, columnlist, position
Set columnlist = ClickData.Func.SourceTab.format.columns
position = 0
For Each column In columnlist
position = position + 1
If column = "name" Then
position = position - 1
If position < 0 Then
position = 0
End If
Exit For
End If
Next
ClickData.Func.Command.RunCommand("Set COLUMNSTOGGLE=thumbnail(" & position & ")")
End Function

Ext скрипт для пункта меню, переключающего колонку Ext, добавляя ее всегда после колонки с именем. Это удобно использовать при включении режима разделения имен файлов и их расширений.

Код:

@toggle:If COLUMNSTOGGLE=extdir

Option Explicit

Function OnClick(ByRef ClickData)
Dim column, columnlist, position
Set columnlist = ClickData.Func.SourceTab.format.columns
position = 0
For Each column In columnlist
position = position + 1
If column = "name" Then
Exit For
End If
Next
ClickData.Func.Command.RunCommand("Set COLUMNSTOGGLE=extdir(" & position & ")")
End Function

Created скрипт для пункта меню, переключающего колонку Created, добавляя ее всегда перед колонкой Modified.

Код:

@toggle:If COLUMNSTOGGLE=created

Option Explicit

Function OnClick(ByRef ClickData)
Dim column, columnlist, position
Set columnlist = ClickData.Func.SourceTab.format.columns
position = 0
For Each column In columnlist
position = position + 1
If column = "modified" Then
position = position - 1
If position < 0 Then
position = 0
End If
Exit For
End If
Next
ClickData.Func.Command.RunCommand("Set COLUMNSTOGGLE=created(" & position & ")")
End Function

Accessed скрипт для пункта меню, переключающего колонку Accessed, добавляя ее всегда после колонки Modified.

Код:

@toggle:If COLUMNSTOGGLE=accessed

Option Explicit

Function OnClick(ByRef ClickData)
Dim column, columnlist, position
Set columnlist = ClickData.Func.SourceTab.format.columns
position = 0
For Each column In columnlist
position = position + 1
If column = "modified" Then
Exit For
End If
Next
ClickData.Func.Command.RunCommand("Set COLUMNSTOGGLE=accessed(" & position & ")")
End Function

команда для создания URL-документа из буфера обмена, либо вручную. если хотите, можете добавить проверку содержимого буфера не просто по тексту, а по адресу (http://, https:// и т.д.)

Как использовать?
1) копируете url-адрес в буфер обмена (необязательно, можете скопировать и вставить позже)
2) щелкаете кнопку со следующим кодом
3) в появившемся окне, если все устраивает, жмете ОК и получаете url-файл.

Код:

Option Explicit

Function OnClick(ByRef ClickData)
Dim dlg, input, File, FSO
If DOpus.GetClipFormat = "text" Then
input = DOpus.GetClip
Else
input = ""
End If
Set dlg = ClickData.Func.Dlg
dlg.title = "Create URL Document"
dlg.message = "Enter URL-address:"
dlg.buttons = "OK|Cancel"
dlg.default = input
dlg.Select = True
dlg.max = 256
dlg.show
If dlg.result = 1 And dlg.input <> "" Then
Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.CreateTextFile(ClickData.Func.SourceTab.Path & "\" & Year(Now) & "-" & Right("0" & Month(Now), 2) & "-" & Right("0" & Day(Now), 2) & "_" & Right("0" & Hour(Now), 2) & "." & Right("0" & Minute(Now), 2) & "." & Right("0" & Second(Now), 2) & ".url", True)
File.Write "[InternetShortcut]" & vbCrLf
File.Write "URL=" & Trim(dlg.input) & vbCrLf
File.Close
End If
End Function

Модерирует : gyra, Maz
Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136