ITabObjects.AlignSelected

Синтаксис Fore

AlignSelected(Alignment: TabObjectsAlignment);

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

AlignSelected(Alignment: Prognoz.Platform.Interop.TabSheet.TabObjectsAlignment, RelativeToView: boolean);

Параметры

Alignment. Параметр, определяющий способ выравнивания нескольких объектов.

Описание

Метод AlignSelected выравнивает группы объектов относительно видимой области листа.

Пример Fore

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

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

Sub UserProc;
Var
    mb: IMetabase;
    Rep: IPrxReport;
    Sheet: IPrxTable;
    TObj: ITabObjects;
    i: Integer;
Begin
    mb := MetabaseClass.Active;
    Rep := MB.ItemById("Regl_Rep").Edit As IPrxReport;
    Sheet := Rep.Sheets.Item(0) As IPrxTable;
    TObj := Sheet.TabSheet.Objects;
    For i := 0 To TObj.Count - 1 Do
        TObj.Item(i).Select_;
    End For;
    TObj.AlignSelected(TabObjectsAlignment.Left);
    (Rep As IMetabaseObject).Save;
End Sub UserProc;

После выполнения примера будут выделены все объекты заданного листа регламентного отчета. Затем они будут выровнены по левому краю относительно крайнего левого объекта.

Пример 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;
    Sheet: IPrxTable;
    TObj: ITabObjects;
    TabObjAl: TabObjectsAlignment;
    i: Integer;
Begin
    mb := Params.Metabase;
    Rep := MB.ItemById["Regl_Rep"].Edit() As IPrxReport;
    Sheet := Rep.Sheets.Item[0] As IPrxTable;
    TObj := Sheet.TabSheet.Objects;
    For i := 0 To TObj.Count - 1 Do
        TObj.Item[i].@Select();
    End For;
    TabObjAl := TabObjectsAlignment.toaLeft;
    TObj.AlignSelected(TabObjAl, True);
    (Rep As IMetabaseObject).Save();
End Sub;

См. также:

ITabObjects

Связанные записи

Требование