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 m_Omag_Red As SolidColorBrush = Brushes.Red
   'Public ReadOnly Property Omag_Red As SolidColorBrush
   '   Get
   '      Return m_Omag_Red
   '   End Get
   'End Property

   'Private Shared m_Button_Static_Background As SolidColorBrush = New BrushConverter().ConvertFrom("#FFDDDDDD")
   'Public Shared ReadOnly Property Button_Static_Background As SolidColorBrush
   '   Get
   '      Return m_Button_Static_Background
   '   End Get
   'End Property

   'Private Shared m_TabControl_Header_Background As LinearGradientBrush = Application.Current.FindResource("TabItem.Static.Background")
   'Public Shared ReadOnly Property TabControl_Header_Background As LinearGradientBrush
   '   Get
   '      Return m_TabControl_Header_Background
   '   End Get
   'End Property


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

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

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

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

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

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

   '<SolidColorBrush x : Key="Icarus_Gray" Color="#92908d" />
   '<SolidColorBrush x : Key="Icarus_LightBlue" Color="#3c89c9" />
   '<SolidColorBrush x : Key="Icarus_Blue" Color="#2e5a81" />
   '<SolidColorBrush x : Key="Icarus_Green" Color="#40826d" />
   '<SolidColorBrush x : Key="Icarus_Orange" Color="#C37636" />
   '<SolidColorBrush x : Key="Icarus_Purple" Color="#990066" />

#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