Description

Returns page object, typically when you have to point it to a newly opened page window.

Syntax

designer

Page designer, defined by Dim designer = TryCast(idesigner, IPageDesigner) or by Protected Designer As IPageDesigner (in page.vb)

Example

Public ReadOnly Property Page() As IPageDisp

  Get

    Return Designer.PageDisp

  End Get

End Property

 

Public Sub StoreInLibrary()

  If Page.GetSelectionCount = 0 Then Exit Sub

   Page.EditCopy()

  Dim dlg As New NewObjDialog(Main.Window)

   dlg.TitleFormat = My.Resources.IDS_NEW_OBJECT_TITLE

 

  Dim currentValues As ICurrentValues = Main.GetCurrentValues(Nothing)

  Dim libId As Object = Nothing

 

  If currentValues Is Nothing OrElse Not currentValues.TryGetValue("[libObj.libRef]", libId) OrElse DirectCast(libId, Integer) = 0 Then

     Main.ShowMessage(My.Resources.IDS_SELECT_LIBRARY)

    Return

  End If

 

   dlg.AddParameter(currentValues, "libRef", "[libObj.libRef]")

   dlg.SetObjectType("libObj")

  If dlg.ShowDialog() = True Then

     ShellApp.RaiseInternalAlert(GNClient.TriggerCause.Create, "libObj", dlg.ObjectId)

     Main.Refresh()

    Dim pageDesigner As IPageDesigner = TryCast(Designer.Group.OpenObjectType(dlg.ObjectId, "libObj", OpenMode.ReadWrite), IPageDesigner)

    'OpenDesigner(dlg.ObjectId, OpenMode.ReadWrite, Nothing)

 

    If pageDesigner IsNot Nothing Then

      Dim newPage As IPageDisp = pageDesigner.PageDisp

       newPage.EditPaste()

       newPage.ObjMove(-(newPage.GetSelectionX + newPage.GetLeftM), -(newPage.GetSelectionY - newPage.GetTopM))

       newPage.PageSave()

       newPage.PagePreview(EdConfig.previewmode) 'no need to add "d" in library objects

    End If

  End If

End Sub