Description

This event runs on a apply data of a panel.

Syntax

Code

This code is available in the PageDesignerAddIn Class in the Page.Vb file within FredSystemAddInExpress project.

#Region "Panels Data Apply"

  Public Overridable Sub OnApplyPanel(ByVal Measurement As MeasurementData) Implements IFredEvent.OnApplyPanel

    If Page Is Nothing Then

      Return

    End If

 

    Page.ApplyPanel(Measurement)

  End Sub

 

  Public Overridable Sub OnApplyPanel(ByVal Rotation As RotationData) Implements IFredEvent.OnApplyPanel

    If Page Is Nothing Then

      Return

    End If

 

    Page.ApplyPanel(Rotation)

  End Sub

 

  Public Overridable Sub OnApplyPanel(ByVal Misc As MiscData) Implements IFredEvent.OnApplyPanel

    If Page Is Nothing Then

      Return

    End If

 

    Page.ApplyPanel(Misc)

  End Sub

 

  Public Overridable Sub OnApplyPanel(ByVal RuleDash As RuleDashData) Implements IFredEvent.OnApplyPanel

    If Page Is Nothing Then

      Return

    End If

 

    Page.ApplyPanel(RuleDash)

  End Sub

 

  Public Overridable Sub OnApplyPanel(ByVal RuleExtra As RuleExtraData) Implements IFredEvent.OnApplyPanel

    If Page Is Nothing Then

      Return

    End If

 

    Page.ApplyPanel(RuleExtra)

  End Sub

 

  Public Overridable Sub OnApplyPanel(ByVal DynEng As DynEngData) Implements IFredEvent.OnApplyPanel

    If Page Is Nothing Then

      Return

    End If

 

    Page.ApplyPanel(DynEng)

  End Sub

 

  Public Overridable Sub OnApplyPanel(ByVal Opa As OpacityData) Implements IFredEvent.OnApplyPanel

    If Page Is Nothing Then

      Return

    End If

 

    Page.ApplyPanel(Opa)

  End Sub

 

  Public Overridable Sub OnApplyPanel(ByVal Sha As ShadowData) Implements IFredEvent.OnApplyPanel

    If Page Is Nothing Then

      Return

    End If

 

    Page.ApplyPanel(Sha)

  End Sub

 

  Public Overridable Sub OnApplyPanel(ByVal Fill As FillData) Implements IFredEvent.OnApplyPanel

    If Page Is Nothing Then

      Return

    End If

 

    Page.ApplyPanel(Fill)

  End Sub

 

  Public Overridable Sub OnApplyPanel(ByVal Tool As ToolData) Implements IFredEvent.OnApplyPanel

    If Page Is Nothing Then

      Return

    End If

 

    Page.ApplyPanel(Tool)

  End Sub

 

  Public Overridable Sub OnApplyPanel(ByVal Just As JustificationData) Implements IFredEvent.OnApplyPanel

    If Page Is Nothing Then

      Return

    End If

 

    Page.ApplyPanel(Just)

  End Sub

 

#End Region

 

Context

Fred application dispatcher events