ITabCellStyle.ActivationEditorMode

Копировать пример

Sub UserProc;
Var
    mb: IMetabase;
    Report: IPrxReport;
    BM: IBindingManager;
    ComboBoxBinding: IBindingComboBox;
    Tab: ITabSheet;
    Style, UStyle: ITabCellStyle;
Begin
    // Получаем текущий репозиторий
    mb := MetabaseClass.Active;
    // Получаем регламентный отчет
    Report := mb.ItemById("REPORT_ACT_EDITOR").Edit As IPrxReport;
    // Создаем и настраиваем редактор значений в виде раскрывающегося списка
    BM := New BindingManager.Create;
    ComboBoxBinding := BM.CreateByUi("ComboBox") As IBindingComboBox;
    ComboBoxBinding.Items := "1;2;3;4;5";
    ComboBoxBinding.ListMode := True;
    ComboBoxBinding.Separators := ";";
    ComboBoxBinding.Value := "3";
    // Получаем стиль ячейки в левом верхнем углу активного листа отчета
    Tab := (Report.ActiveSheet As IPrxTable).TabSheet;
    Style := Tab.Cell(0, 0).Style;
    // Указываем, что для ячейки используется созданный редактор значений
    Style.Binding := ComboBoxBinding.AsString;
    // Указываем, что редактор будет активироваться, если ячейка получит фокус
    Style.ActivationEditorMode := TabActivationEditorMode.OnFocus;
    // Получаем стиль другой ячейки активного листа отчета
    UStyle := Tab.Cell(1, 1).Style;
    // Указываем, что ячейка не будет выделятся
    UStyle.Unselectable := TriState.OnOption;
    // Сохраняем изменения
    (Report As IMetabaseObject).Save;
End Sub UserProc;