TabBeforeObjectAngleChangeEventArgs.Create

Синтаксис

TabBeforeObjectAngleChangeEventArgs(TabSheet: ITabSheetBox;
                       Object: ITabObject;
                       Type: TabObjectChangeType;

                       Angle: Double;

                       Cancel: Boolean);

Параметры

TabSheet. Компонент, для которого генерируется событие;

Object. Объект, для которого генерируется событие;

Type. Тип изменения, которое происходит с объектом;

Angle. Угол, на который был повёрнут объект;

Cancel. Признак того, отменять ли вращение объекта.

Описание

Конструктор Create создаёт аргумент события, возникающего при вращении объекта.

Комментарии

По умолчанию аргументы события генерируются автоматически при наступлении события. Конструктор требуется для вызова события вручную. Подробнее о ручной генерации событий вы можете узнать в разделе «Генерация событий вручную».

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

Допустимые значения параметра Cancel:

Пример

Для выполнения примера предполагается наличие формы, содержащей компоненты:

  1. TabSheetBox с идентификатором «TabSheetBox1». Для данного компонента должен быть назначен обработчик события OnBeforeObjectChange.

  2. UiReport с идентификатором «UiReport1», являющийся источником данных для «TabSheetBox1». Также «UiReport1» должен быть активен и содержать загруженный регламентный отчет с фигурами на активном листе.

Sub UserProc;
Var
    Tab: ITabSheet;
    Object: ITabObject;
    Argument: TabBeforeObjectAngleChangeEventArgs;
Begin
    Tab := TabSheetBox1.Source.GetTabSheet;
    Object := Tab.Objects.Item(0);
    Argument := New TabBeforeObjectAngleChangeEventArgs.Create(TabSheetBox1, Object, TabObjectChangeType.Angle, 15, False);
    TabSheetBox1.OnBeforeObjectChange(TabSheetBox1, Argument);
End Sub UserProc;

В результате выполнения процедура вызовет событие OnBeforeObjectChange в компоненте «TabSheetBox1».

См. также:

TabBeforeObjectAngleChangeEventArgs