Description

This event runs on a double-click on the layers panel.

Syntax

Code

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

Public Overridable Sub OnLayersPanelDblClick(ByVal row As Integer, ByVal col As Integer) Implements IFredEvent.OnLayersPanelDblClick

    Const colSel = 0, _

          colName = 1, _

          colCheck = 2, _

          colLock = 3, _

          colVis = 4

 

    If col = colSel Or col = colName Then

      If Page.GetCurLayer() <> row Then

        Page.LayerSelect(row)

      ElseIf col = colSel Then

        Page.LayerToggleFreeze(2)

      End If

    End If

 

    If col = colCheck Then

      Page.LayerSelect(row)

      Page.LayerToggleCheck(2)

    End If

 

    If col = colLock Then

      Page.LayerSelect(row)

      Page.LayerToggleLock(2)

    End If

 

    If col = colVis Then

      Page.LayerSelect(row)

      Page.LayerToggleVisible(2)

    End If

  End Sub

Context

Fred application dispatcher events