effector.plugin.fivelakes/Effector.Plugin.FiveLakes/Utility/Dictionary.xaml.vb

Imports System.ComponentModel.Composition
Imports System.Globalization
Imports Effector.Plugin.Interface

<Export(GetType(IPluginControl))>
<ExportMetadata("Name", "Dictionary")>
Public Class Dictionary
   Inherits ResourceDictionary
   Implements IPluginControl

   Public Shared ReadOnly MySceneHostVM As String = "MySceneHostVM"

#Region "Colors"

   Private Shared m_Effector_LightBlue As SolidColorBrush = Application.Current.FindResource("Effector_LightBlue")
   Public Shared ReadOnly Property Effector_LightBlue As SolidColorBrush
      Get
         Return m_Effector_LightBlue
      End Get
   End Property

   Private Shared m_Effector_Blue As SolidColorBrush = Application.Current.FindResource("Effector_Blue")
   Public Shared ReadOnly Property Effector_Blue As SolidColorBrush
      Get
         Return m_Effector_Blue
      End Get
   End Property

   Private Shared m_Effector_DarkBlue As SolidColorBrush = Application.Current.FindResource("Effector_DarkBlue")
   Public Shared ReadOnly Property Effector_DarkBlue As SolidColorBrush
      Get
         Return m_Effector_DarkBlue
      End Get
   End Property

   Private Shared m_Effector_LightBlue_Status As SolidColorBrush = Application.Current.FindResource("Effector_LightBlue_Status")
   Public Shared ReadOnly Property Effector_LightBlue_Status As SolidColorBrush
      Get
         Return m_Effector_LightBlue_Status
      End Get
   End Property

   Private Shared m_Effector_Blue_Status As SolidColorBrush = Application.Current.FindResource("Effector_Blue_Status")
   Public Shared ReadOnly Property Effector_Blue_Status As SolidColorBrush
      Get
         Return m_Effector_Blue_Status
      End Get
   End Property

   Private Shared m_Effector_Red_Status As SolidColorBrush = Application.Current.FindResource("Effector_Red_Status")
   Public Shared ReadOnly Property Effector_Red_Status As SolidColorBrush
      Get
         Return m_Effector_Red_Status
      End Get
   End Property

   Private Shared m_Effector_Green_Status As SolidColorBrush = Application.Current.FindResource("Effector_Green_Status")
   Public Shared ReadOnly Property Effector_Green_Status As SolidColorBrush
      Get
         Return m_Effector_Green_Status
      End Get
   End Property

   Private Shared m_Effector_Gray_Status As SolidColorBrush = Application.Current.FindResource("Effector_Gray_Status")
   Public Shared ReadOnly Property Effector_Gray_Status As SolidColorBrush
      Get
         Return m_Effector_Gray_Status
      End Get
   End Property

   Private Shared m_Effector_Yellow_Status As SolidColorBrush = Application.Current.FindResource("Effector_Yellow_Status")
   Public Shared ReadOnly Property Effector_Yellow_Status As SolidColorBrush
      Get
         Return m_Effector_Yellow_Status
      End Get
   End Property

   Private Shared m_Effector_LightBlue_SelStatus As SolidColorBrush = Application.Current.FindResource("Effector_LightBlue_SelStatus")
   Public Shared ReadOnly Property Effector_LightBlue_SelStatus As SolidColorBrush
      Get
         Return m_Effector_LightBlue_SelStatus
      End Get
   End Property

   Private Shared m_Effector_Blue_SelStatus As SolidColorBrush = Application.Current.FindResource("Effector_Blue_SelStatus")
   Public Shared ReadOnly Property Effector_Blue_SelStatus As SolidColorBrush
      Get
         Return m_Effector_Blue_SelStatus
      End Get
   End Property

   Private Shared m_Effector_Red_SelStatus As SolidColorBrush = Application.Current.FindResource("Effector_Red_SelStatus")
   Public Shared ReadOnly Property Effector_Red_SelStatus As SolidColorBrush
      Get
         Return m_Effector_Red_SelStatus
      End Get
   End Property

   Private Shared m_Effector_Green_SelStatus As SolidColorBrush = Application.Current.FindResource("Effector_Green_SelStatus")
   Public Shared ReadOnly Property Effector_Green_SelStatus As SolidColorBrush
      Get
         Return m_Effector_Green_SelStatus
      End Get
   End Property

   Private Shared m_Effector_Gray_SelStatus As SolidColorBrush = Application.Current.FindResource("Effector_Gray_SelStatus")
   Public Shared ReadOnly Property Effector_Gray_SelStatus As SolidColorBrush
      Get
         Return m_Effector_Gray_SelStatus
      End Get
   End Property

   Private Shared m_Effector_Yellow_SelStatus As SolidColorBrush = Application.Current.FindResource("Effector_Yellow_SelStatus")
   Public Shared ReadOnly Property Effector_Yellow_SelStatus As SolidColorBrush
      Get
         Return m_Effector_Yellow_SelStatus
      End Get
   End Property

   Private Shared m_Effector_White_SelStatus As SolidColorBrush = Application.Current.FindResource("Effector_White_SelStatus")
   Public Shared ReadOnly Property Effector_White_SelStatus As SolidColorBrush
      Get
         Return m_Effector_White_SelStatus
      End Get
   End Property

   'Private Shared m_Effector_Orange As SolidColorBrush = Application.Current.FindResource("Effector_Orange")
   'Public Shared ReadOnly Property Effector_Orange As SolidColorBrush
   '   Get
   '      Return m_Effector_Orange
   '   End Get
   'End Property

#End Region    ' Colors

End Class

Public Class CenterToolTipConverter
   Implements IMultiValueConverter

   Public Function Convert(ByVal values As Object(), ByVal targetType As Type, ByVal parameter As Object, ByVal culture As CultureInfo) As Object Implements IMultiValueConverter.Convert
      For Each value In values
         If TypeOf (value) IsNot Double Then
            Return Double.NaN
         End If
      Next
      Dim dPlacementTarget As Double = CDbl(values(0))
      Dim dToolTip As Double = CDbl(values(1))
      Return (dPlacementTarget / 2.0) - (dToolTip / 2.0)
   End Function

   Public Function ConvertBack(ByVal value As Object, ByVal targetTypes As Type(), ByVal parameter As Object, ByVal culture As CultureInfo) As Object() Implements IMultiValueConverter.ConvertBack
      Throw New NotSupportedException()
   End Function

End Class