IPrxShape.Type

Синтаксис

Type: PrxShapeType;

Описание

Свойство Type определяет тип фигуры.

Пример

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «Button1», компонента TabSheetBox и компонента UiTabSheet с наименованием «UiTabSheet1», являющимся источником данных для TabSheetBox. Подключите системные сборки: Report, Tab, Drawing, Forms, Forms.Net (для примера Fore.NET).

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    Tab: ITabSheet;
    TabObj: ITabObject;
    Placement: IGxRectF;
    PrxShape: IPrxShape;
Begin
    Tab := UiTabSheet1.TabSheet;
    Placement := New GxRectF.Create(3, 3, 30, 30);
    TabObj := Tab.Objects.Add("PrxShape", Placement);
    PrxShape := TabObj.Extension As IPrxShape;
    PrxShape.Type := PrxShapeType.Octagon;
End Sub Button1OnClick;

При нажатии на кнопку на листе отчета будет создан восьмиугольник:

Пример Fore.NET

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

Imports System.Windows.Forms;
Imports Prognoz.Platform.Forms.Net;
Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Tab;
Imports Prognoz.Platform.Interop.Report;

Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    Tab: ITabSheet;
    TabObj: ITabObject;
    PrxShape: IPrxShape;
    Placement: GxRectF = New GxRectFClass();
Begin
    Tab := uiTabSheetNet1.TabSheetUi.TabSheet;
    Placement.Create(3, 3, 30, 30);
    TabObj := Tab.Objects.Add("PrxShape", Placement);
    PrxShape := TabObj.Extension As IPrxShape;
    PrxShape.Type := PrxShapeType.pstOctagon;
End Sub;

См. также:

IPrxShape