Fun With $formulaclass

[morpheus]

Оригинал Вы найдете

Ссылка скрыта от гостей

В виде создаем кнопу которая заменяет одно из его служебных полей $FormulaClass

Dim w As NotesUIWorkspace 
Dim uiview As NotesUIView 
Dim view As NotesView 
Dim unid As String 
Dim s As NotesSession 
Dim db As NotesDatabase 
Dim note As NotesDocument 

Set w = New NotesUIWorkspace 
Set uiview = w.CurrentView 
Set view = uiview.View 
Let unid = view.UniversalID 
Set s = New NotesSession 
Set db = s.CurrentDatabase 
Set note = db.GetDocumentByUNID (unid) 
Call note.ReplaceItemValue ("$FormulaClass", "2") 
Call note.Save (True, True)

Что нам это даст - мы можем видеть элементы дизайна!

и так значения которые может принимать

Value Design Elements Shown
1 - Documents
2 - Unknown
4 - Forms and Subforms
8 - Views, Folders and Navigators
16 - Database Title
32 - Design Collection (overall information)
64 - ACL Note (in compiled format)
128 - Unknown
256 - Unknown
512 - Agents (Shared)
1024 - Shared Fields
1548 - Forms, Sub-forms, Views, Folders, Navigators, Agents (Shared), Shared Fields

Кстати - поддерживает множественные значения ( 4+128+256 = 388 )

Обсуждение Вы сможете найти

Ссылка скрыта от гостей

 

[TIA]

После изменения $FormulaClass требуется ребилд вьюшки (Shift+F9) чтобы изменения вступили в силу. Selection Formula, кстати, тоже работает.

 

[NetWood]

А мужики-то не знали! Наверное, лет 20 с хвостом...
Попробовал на тестовой базе - работает. По клику, естественно, открывается не он, а майн форма. Но смотреть можно и в том числе всякие поля элемента дизайна.

DesignElementType := @If(
@Contains($Flags; "F");    "Folder";
@Contains($Flags; "i");    "Image";
@Contains($Flags; "U");    "Subform";
@Contains($Flags; "m");    "Outline";
@Contains($Flags; "#");    "Frameset";
@Contains($Flags; "W");    "Page";
@Matches($Flags; "*{sh}*") & !@Contains($FlagsExt; "W");    "Script Library (excluding Web Service Consumers)";
@Contains($Flags; "=");    "Stylesheet";
@Contains($Flags; "g") & @Contains($Flags; "`");    "Theme";
@Contains($Flags; "|");    "Composite Application";
@Contains($Flags; ":");    "Wiring Properties";
@Contains($FlagsExt; "W") & @Matches($Flags; "*{sh}*");    "Web Service Consumer";
@Contains($Flags; "{");    "Web Service Provider";
@Contains($Flags; "g") & @Contains($Flags; "K");    "XPage";
@Contains($Flags; "g") & @Contains($Flags; ";");    "Custom Control";
@Contains($Flags; "g") & !@Matches($Flags; "*{~K[];`}*");    "File Resource";
@Contains($Flags; "g") & @Contains($Flags; "~") & !@Matches($Flags; "*{~K[];`}*");    "Hidden File Resource (created by XPage build)";
@Contains($Flags; "y");    "Shared Action";
@Contains($Flags; "t");    "Database Script";
@Contains($Flags; "k");    "Data Connection";
@Contains($Flags; "G");    "Navigator";
@Contains($Flags; "@");    "Applet";
@Contains($Flags; "^");    "Shared Column";
@Contains($Flags; "z");    "DB2 Access View";
@Contains($Flags; "O");    "Stored full-text query";
@Contains($Flags; "X");    "Agent Data Note";
@Contains($Flags; "Y") & !@Matches($Flags; "*{FG^}*");    "View";
@Contains($Flags; "f") & !@Matches($Flags; "*{QXstmz{}*");    "Agent";
@Contains($Flags; "D") & !@Matches($Flags; "*{UWy#i:|@Kgz}*");    "Form";
$Flags);

 

[Domino-Designer]

Ладно, это то же замечательно. Товарищи по Истлайн, напомните как называются поля для раскраски в Inbox входящего письма?

PS: отправляя письмо задаешь цвет фона и шрифта, которым он будет выделен в Inbox получателя.

 

[swyatogor]

PS: отправляя письмо задаешь цвет фона и шрифта, которым он будет выделен в Inbox получателя.

Нет такого.. можно только у себя в базе настройки такие сделать, чтобы определенный отображались по особенному..

 

[Domino-Designer]

@swyatogor, есть-есть. Лично игрался. Только названия полей забыл.

 

[swyatogor]

есть-есть

с лотусом вечно живи вечно учись)) разных "пасхалок" понатыкано и фиг где написано((

 

[NetWood]

А вот если на новых базах поле $DesignerVersion заменить на 7, можно ли будет открывать их на семерке, например? Как до него добраться?