IDefaultBehaviour.SelectionBorderColor

SelectionBorderColor: IGxColor;

SelectionBorderColor: Prognoz.Platform.Interop.Drawing.GxColor;

Sub UserProc;
Var
    Mb: IMetabase;
    SP: ISharedParams;
    DB: IDefaultBehaviour;
Begin
    // Текущий репозиторий
    Mb := MetabaseClass.Active;
    SP := Mb.SpecialObject(MetabaseSpecialObject.SharedParams).Edit As ISharedParams;
    // Настройки по умолчанию
    DB := SP.DefaultBehaviour;
    // Настройки оформления в отчётах
    DB.SelectionBorderColor := GxColor.FromKnownColor(GxKnownColor.OliveDrab);
    DB.SelectionColor := New GxColor.CreateARGB(65, 50, 88, 201);
    // Сохранение изменений
    (SP As IMetabaseObject).Save;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.KeFore;
Imports Prognoz.Platform.Interop.Metabase;

Public Shared Sub Main(Params: StartParams);
Var
    Mb: IMetabase;
    SP: ISharedParams;
    DB: IDefaultBehaviour;
    GxColorCls: GxColorClass = New GxColorClassClass();
    GxClr: GxColor = New GxColorClass_2();
Begin
    // Текущий репозиторий
    Mb := Params.Metabase;
    SP := Mb.SpecialObject[MetabaseSpecialObject.msoSharedParams].Edit() As ISharedParams;
    // Настройки по умолчанию
    DB := SP.DefaultBehaviour;
    // Настройки оформления в отчётах
    DB.SelectionBorderColor := GxColorCls.FromKnownColor(GxKnownColor.clOliveDrab);
    GxClr.CreateARGB(65, 50, 88, 201);
    DB.SelectionColor := GxClr;
    // Сохранение изменений
    (SP As IMetabaseObject).Save();
End Sub;