Emmanuele Sassi
103 lines
3.5 KiB
VB.net
103 lines
3.5 KiB
VB.net
Imports System.Globalization
|
|
|
|
Public Class Dictionary
|
|
|
|
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
|