ITabSheet.ExpanderLength

Синтаксис Fore

ExpanderLength(Row: Integer; Column: Integer): Integer;

Синтаксис Fore.NET

ExpanderLength[Row: integer; Column: integer]: integer;

Параметры

Row. Индекс строки, в которой располагается экспандер. Допустимое значение параметра находится в диапазоне [0;ITabSheet.RowsCount).

Column. Индекс столбца, в котором располагается  экспандер. Допустимое значение параметра находится в диапазоне [0; ITabSheet.ColumnsCount).

Описание

Свойство ExpanderLength возвращает количество строк/столбцов, попадающих под действие экспандера.

Комментарии

Если свойство ExpanderLength  принимает положительное значение, то экспандер раскрывается вниз и вправо, если отрицательное значение - то вверх и влево.

Для создания экспандера используйте метод ITabSheet.CreateExpander.

Пример Fore

Для выполнения примера в репозитории предполагается наличие регламентного отчета с идентификатором «REP_TABSHEET».

Добавьте ссылки на системные сборки: Drawing, Metabase, Report, Tab.

Sub UserExp;
Var
    MB: IMetabase;
    Rep: IPrxReport;
    SheetT: IPrxTable;
    Tab: ITabSheet;
    Exp: Integer;
Begin
    MB := MetabaseClass.Active;
    Rep := MB.ItemById("REP_TABSHEET").Bind As IPrxReport;
    SheetT := Rep.Sheets.Item(0) As IPrxTable;
    Tab := SheetT.TabSheet;
    Exp := Tab.ExpanderLength(0, 0);
    If Exp <> 0
        Then Debug.WriteLine("Размер экспандера: " + Exp.ToString + " (столбцов/строк)");
        Else Debug.WriteLine("В указанной ячейке экспандер отсутствует");
    End If;
End Sub UserExp;

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

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Rep: IPrxReport;
    SheetT: IPrxTable;
    Tab: ITabSheet;
    Exp: Integer;
Begin
    MB := Params.Metabase;
    Rep := MB.ItemById["REP_TABSHEET"].Bind() As IPrxReport;
    SheetT := Rep.Sheets.Item[0] As IPrxTable;
    Tab := SheetT.TabSheet;
    Exp := Tab.ExpanderLength[5, 0];
    If Exp <> 0
        Then System.Diagnostics.Debug.WriteLine("Размер экспандера: " + Exp.ToString() + " (столбцов/строк)");
        Else System.Diagnostics.Debug.WriteLine("В указанной ячейке экспандер отсутствует");
    End If;
End Sub;

См. также:

ITabSheet