Nicola Pievani
43 lines
1.1 KiB
VB.net
43 lines
1.1 KiB
VB.net
Public Class HardwarePageV
|
|
|
|
Private Sub Param_MouseEnter(sender As Object, e As MouseEventArgs)
|
|
Dim Grid As Panel = DirectCast(sender, Panel)
|
|
Map.refHardwareHelpSceneHostV.ShowHideParam(DirectCast(Grid.DataContext, CompoParam))
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
Public Class IsFixedSelector
|
|
Inherits DataTemplateSelector
|
|
|
|
Private m_Expander As DataTemplate
|
|
Public Property Expander As DataTemplate
|
|
Get
|
|
Return m_Expander
|
|
End Get
|
|
Set(value As DataTemplate)
|
|
m_Expander = value
|
|
End Set
|
|
End Property
|
|
|
|
Public m_GroupBox As DataTemplate
|
|
Public Property GroupBox As DataTemplate
|
|
Get
|
|
Return m_GroupBox
|
|
End Get
|
|
Set(value As DataTemplate)
|
|
m_GroupBox = value
|
|
End Set
|
|
End Property
|
|
|
|
Public Overrides Function SelectTemplate(Item As Object, Container As DependencyObject) As DataTemplate
|
|
Dim Group As Compo = DirectCast(Item, Compo)
|
|
If Group.IsFixed Then
|
|
Return GroupBox
|
|
Else
|
|
Return Expander
|
|
End If
|
|
End Function
|
|
|
|
End Class
|