IPrxShape.Type

Syntax

Description

The Type property determines a shape type.

Example

To execute the example a form with a button named Button1 on it, the TabSheetBox component, and the UiTabSheet component named UiTabSheet1, that is used as a data source for TabSheetBox are required. Add links to the Report, Tab, Drawing, Forms, Forms.Net (for Fore.NET example) system assemblies.

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;

On clicking the button an octagon is created on the report sheet:

Fore.NET Example

The requirements and result of the Fore.NET example execution match with those in the Fore example.

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;