Description

Set master geometry

Syntax

Geometry property of GeometryPage object

Remarks

Returns error code.

Code

  <ShellCommand(CanExecute:="Ena_PageIsMaster")> _

    Public Sub MasterGeometry()

    Dim geo As Schema.Class.geometryObj = Page.GetGeometry()

    If geo Is Nothing Then

      Exit Sub

    End If

 

    Dim dlg As New ContainerPanel

 

    Dim geopage As New GeometryPage

    geopage.ModalContainer = dlg

    geopage.ShowData(geo, Page.TestTwoSides)

 

    dlg.Add(geopage)

 

    If dlg.ShowDialog() = True Then

      Page.SetGeometry(geopage.Geometry)

    End If

  End Sub

Context

Page designer

See also

GetGeometry