Nicola Pievani
1375 lines
72 KiB
VB.net
1375 lines
72 KiB
VB.net
Public Class StoneDrillParamPageV
|
|
|
|
#Region "STONE SAWING PARAM PAGE"
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE BACKGROUNDCOLOR TEXTBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
Public Shared ReadOnly GeneralBackgroundProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(GeneralBackground),
|
|
GetType(Brush),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata(DirectCast(New BrushConverter().ConvertFromString("#FFFFFF"), Brush),
|
|
New PropertyChangedCallback(AddressOf GeneralBackground_PropertyChanged)) With {.BindsTwoWayByDefault = True})
|
|
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetGeneralBackground(element As StoneDrillParamPageV) As Brush
|
|
Return DirectCast(element.GetValue(GeneralBackgroundProperty), Brush)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetGeneralBackground(element As StoneDrillParamPageV, value As Brush)
|
|
element.SetValue(GeneralBackgroundProperty, value)
|
|
End Sub
|
|
|
|
' Declare public property.
|
|
Public Property GeneralBackground As Brush
|
|
Get
|
|
Return CType(GetValue(GeneralBackgroundProperty), Brush)
|
|
End Get
|
|
Set(value As Brush)
|
|
SetValue(GeneralBackgroundProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' Declare method invoke by changing property.
|
|
Private Shared Sub GeneralBackground_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
|
|
Dim TempMe As StoneDrillParamPageV = DirectCast(sender, StoneDrillParamPageV)
|
|
End Sub
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE FOREGROUNDCOLOR TEXTBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
Public Shared ReadOnly GeneralForegroundProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(GeneralForeground),
|
|
GetType(Brush),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata(SystemColors.WindowTextBrush, New PropertyChangedCallback(AddressOf GeneralForeground_PropertyChanged)) With {.BindsTwoWayByDefault = True})
|
|
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetGeneralForeground(element As StoneDrillParamPageV) As Brush
|
|
Return DirectCast(element.GetValue(GeneralForegroundProperty), Brush)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetGeneralForeground(element As StoneDrillParamPageV, value As Brush)
|
|
element.SetValue(GeneralForegroundProperty, value)
|
|
End Sub
|
|
|
|
' Declare public property.
|
|
Public Property GeneralForeground As Brush
|
|
Get
|
|
Return CType(GetValue(GeneralForegroundProperty), Brush)
|
|
End Get
|
|
Set(value As Brush)
|
|
SetValue(GeneralForegroundProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' Declare method invoke by changing property.
|
|
Private Shared Sub GeneralForeground_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
|
|
Dim TempMe As StoneDrillParamPageV = DirectCast(sender, StoneDrillParamPageV)
|
|
End Sub
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE BORDERBRUSHCOLOR TEXTBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
Public Shared ReadOnly GeneralBorderBrushProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(GeneralBorderBrush),
|
|
GetType(Brush),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata(DirectCast(New BrushConverter().ConvertFromString("#CFD1D4"), Brush),
|
|
New PropertyChangedCallback(AddressOf GeneralBorderBrush_PropertyChanged)) With {.BindsTwoWayByDefault = True})
|
|
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetGeneralBorderBrush(element As StoneDrillParamPageV) As Brush
|
|
Return DirectCast(element.GetValue(GeneralBorderBrushProperty), Brush)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetGeneralBorderBrush(element As StoneDrillParamPageV, value As Brush)
|
|
element.SetValue(GeneralBorderBrushProperty, value)
|
|
End Sub
|
|
|
|
' Declare public property.
|
|
Public Property GeneralBorderBrush As Brush
|
|
Get
|
|
Return CType(GetValue(GeneralBorderBrushProperty), Brush)
|
|
End Get
|
|
Set(value As Brush)
|
|
SetValue(GeneralBorderBrushProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' Declare method invoke by changing property.
|
|
Private Shared Sub GeneralBorderBrush_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
|
|
Dim TempMe As StoneDrillParamPageV = DirectCast(sender, StoneDrillParamPageV)
|
|
End Sub
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE BORDERBRUSHISMOUSEOVER TEXTBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
Public Shared ReadOnly BorderBrushIsMouseOverProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(BorderBrushIsMouseOver),
|
|
GetType(Brush),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata(DirectCast(New BrushConverter().ConvertFromString("#7EB4EA"), Brush),
|
|
New PropertyChangedCallback(AddressOf BorderBrushIsMouseOver_PropertyChanged)) With {.BindsTwoWayByDefault = True})
|
|
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetBorderBrushIsMouseOver(element As StoneDrillParamPageV) As Brush
|
|
Return DirectCast(element.GetValue(BorderBrushIsMouseOverProperty), Brush)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetBorderBrushIsMouseOver(element As StoneDrillParamPageV, value As Brush)
|
|
element.SetValue(BorderBrushIsMouseOverProperty, value)
|
|
End Sub
|
|
|
|
' Declare public property.
|
|
Public Property BorderBrushIsMouseOver As Brush
|
|
Get
|
|
Return CType(GetValue(BorderBrushIsMouseOverProperty), Brush)
|
|
End Get
|
|
Set(value As Brush)
|
|
SetValue(BorderBrushIsMouseOverProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' Declare method invoke by changing property.
|
|
Private Shared Sub BorderBrushIsMouseOver_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
|
|
Dim TempMe As StoneDrillParamPageV = DirectCast(sender, StoneDrillParamPageV)
|
|
End Sub
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE BORDERBRUSHISMOUSERFOCUSED TEXTBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
Public Shared ReadOnly BorderBrushIsFocusedProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(BorderBrushIsFocused),
|
|
GetType(Brush),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata(DirectCast(New BrushConverter().ConvertFromString("#569DE5"), Brush),
|
|
New PropertyChangedCallback(AddressOf BorderBrushIsFocused_PropertyChanged)) With {.BindsTwoWayByDefault = True})
|
|
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetBorderBrushIsFocused(element As StoneDrillParamPageV) As Brush
|
|
Return DirectCast(element.GetValue(BorderBrushIsFocusedProperty), Brush)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetBorderBrushIsFocused(element As StoneDrillParamPageV, value As Brush)
|
|
element.SetValue(BorderBrushIsFocusedProperty, value)
|
|
End Sub
|
|
|
|
' Declare public property.
|
|
Public Property BorderBrushIsFocused As Brush
|
|
Get
|
|
Return CType(GetValue(BorderBrushIsFocusedProperty), Brush)
|
|
End Get
|
|
Set(value As Brush)
|
|
SetValue(BorderBrushIsFocusedProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' Declare method invoke by changing property.
|
|
Private Shared Sub BorderBrushIsFocused_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
|
|
Dim TempMe As StoneDrillParamPageV = DirectCast(sender, StoneDrillParamPageV)
|
|
End Sub
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE BACKGROUDBRDENABLE TEXTBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' Gestione BackgroundBrdEnable textbox
|
|
Public Shared ReadOnly BackgroundBrdEnableProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(BackgroundBrdEnable),
|
|
GetType(Brush),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata(DirectCast(New BrushConverter().ConvertFromString("#FFFFFF"), Brush),
|
|
New PropertyChangedCallback(AddressOf BackgroundBrdEnable_PropertyChanged)) With {.BindsTwoWayByDefault = True})
|
|
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetBackgroundBrdEnable(element As StoneDrillParamPageV) As Brush
|
|
Return DirectCast(element.GetValue(BackgroundBrdEnableProperty), Brush)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetBackgroundBrdEnable(element As StoneDrillParamPageV, value As Brush)
|
|
element.SetValue(BackgroundBrdEnableProperty, value)
|
|
End Sub
|
|
|
|
' Declare public property.
|
|
Public Property BackgroundBrdEnable As Brush
|
|
Get
|
|
Return CType(GetValue(BackgroundBrdEnableProperty), Brush)
|
|
End Get
|
|
Set(value As Brush)
|
|
SetValue(BackgroundBrdEnableProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' Declare method invoke by changing property.
|
|
Private Shared Sub BackgroundBrdEnable_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
|
|
Dim TempMe As StoneDrillParamPageV = DirectCast(sender, StoneDrillParamPageV)
|
|
End Sub
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE BACKGROUNDBRDDISABLE TEXTBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' Gestione BackgroundBrdDisable textbox
|
|
Public Shared ReadOnly BackgroundBrdDisableProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(BackgroundBrdDisable),
|
|
GetType(Brush),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata(DirectCast(New BrushConverter().ConvertFromString("#FFFFFF"), Brush),
|
|
New PropertyChangedCallback(AddressOf BackgroundBrdDisable_PropertyChanged)) With {.BindsTwoWayByDefault = True})
|
|
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetBackgroundBrdDisable(element As StoneDrillParamPageV) As Brush
|
|
Return DirectCast(element.GetValue(BackgroundBrdDisableProperty), Brush)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetBackgroundBrdDisable(element As StoneDrillParamPageV, value As Brush)
|
|
element.SetValue(BackgroundBrdDisableProperty, value)
|
|
End Sub
|
|
|
|
' Declare public property.
|
|
Public Property BackgroundBrdDisable As Brush
|
|
Get
|
|
Return CType(GetValue(BackgroundBrdDisableProperty), Brush)
|
|
End Get
|
|
Set(value As Brush)
|
|
SetValue(BackgroundBrdDisableProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' Declare method invoke by changing property.
|
|
Private Shared Sub BackgroundBrdDisable_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
|
|
Dim TempMe As StoneDrillParamPageV = DirectCast(sender, StoneDrillParamPageV)
|
|
End Sub
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE BACKGROUNDTXBLDISABLE TEXTBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
Public Shared ReadOnly BackgroundTxBlDisableProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(BackgroundTxBlDisable),
|
|
GetType(Brush),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata(SystemColors.WindowBrush, New PropertyChangedCallback(AddressOf BackgroundTxBlDisable_PropertyChanged)) With {.BindsTwoWayByDefault = True})
|
|
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetBackgroundTxBlDisable(element As StoneDrillParamPageV) As Brush
|
|
Return DirectCast(element.GetValue(BackgroundTxBlDisableProperty), Brush)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetBackgroundTxBlDisable(element As StoneDrillParamPageV, value As Brush)
|
|
element.SetValue(BackgroundTxBlDisableProperty, value)
|
|
End Sub
|
|
|
|
' Declare public property.
|
|
Public Property BackgroundTxBlDisable As Brush
|
|
Get
|
|
Return CType(GetValue(BackgroundTxBlDisableProperty), Brush)
|
|
End Get
|
|
Set(value As Brush)
|
|
SetValue(BackgroundTxBlDisableProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' Declare method invoke by changing property.
|
|
Private Shared Sub BackgroundTxBlDisable_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
|
|
Dim TempMe As StoneDrillParamPageV = DirectCast(sender, StoneDrillParamPageV)
|
|
End Sub
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE FOREGROUNDTXBLENABLE TEXTBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
Public Shared ReadOnly ForegroundTxBlEnableProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(ForegroundTxBlEnable),
|
|
GetType(Brush),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata(SystemColors.WindowTextBrush, New PropertyChangedCallback(AddressOf ForegroundTxBlEnable_PropertyChanged)) With {.BindsTwoWayByDefault = True})
|
|
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetForegroundTxBlEnable(element As StoneDrillParamPageV) As Brush
|
|
Return DirectCast(element.GetValue(ForegroundTxBlEnableProperty), Brush)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetForegroundTxBlEnable(element As StoneDrillParamPageV, value As Brush)
|
|
element.SetValue(ForegroundTxBlEnableProperty, value)
|
|
End Sub
|
|
|
|
' Declare public property.
|
|
Public Property ForegroundTxBlEnable As Brush
|
|
Get
|
|
Return CType(GetValue(ForegroundTxBlEnableProperty), Brush)
|
|
End Get
|
|
Set(value As Brush)
|
|
SetValue(ForegroundTxBlEnableProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' Declare method invoke by changing property.
|
|
Private Shared Sub ForegroundTxBlEnable_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
|
|
Dim TempMe As StoneDrillParamPageV = DirectCast(sender, StoneDrillParamPageV)
|
|
End Sub
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE FOREGROUNDTXBLDISABLE TEXTBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
Public Shared ReadOnly ForegroundTxBlDisableProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(ForegroundTxBlDisable),
|
|
GetType(Brush),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata(SystemColors.WindowTextBrush, New PropertyChangedCallback(AddressOf ForegroundTxBlDisable_PropertyChanged)) With {.BindsTwoWayByDefault = True})
|
|
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetForegroundTxBlDisable(element As StoneDrillParamPageV) As Brush
|
|
Return DirectCast(element.GetValue(ForegroundTxBlDisableProperty), Brush)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetForegroundTxBlDisable(element As StoneDrillParamPageV, value As Brush)
|
|
element.SetValue(ForegroundTxBlDisableProperty, value)
|
|
End Sub
|
|
|
|
' Declare public property.
|
|
Public Property ForegroundTxBlDisable As Brush
|
|
Get
|
|
Return CType(GetValue(ForegroundTxBlDisableProperty), Brush)
|
|
End Get
|
|
Set(value As Brush)
|
|
SetValue(ForegroundTxBlDisableProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' Declare method invoke by changing property.
|
|
Private Shared Sub ForegroundTxBlDisable_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
|
|
Dim TempMe As StoneDrillParamPageV = DirectCast(sender, StoneDrillParamPageV)
|
|
End Sub
|
|
|
|
#End Region ' Stone Sawing Param Page
|
|
|
|
#Region "LOCAL GROUP BOX"
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~SPESSORE BORDER~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' Proprietà che permette di impostare l'altezza della TitleBar
|
|
Public Shared ReadOnly MyBorderGrbThicknessProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(MyBorderGrbThickness),
|
|
GetType(Double),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata(1.0, FrameworkPropertyMetadataOptions.[Inherits]))
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetMyBorderGrbThickness(element As StoneDrillParamPageV) As Double
|
|
Return DirectCast(element.GetValue(MyBorderGrbThicknessProperty), Double)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetMyBorderGrbThickness(element As StoneDrillParamPageV, value As Double)
|
|
element.SetValue(MyBorderGrbThicknessProperty, value)
|
|
End Sub
|
|
|
|
Public Property MyBorderGrbThickness As Double
|
|
Get
|
|
Return DirectCast(GetValue(MyBorderGrbThicknessProperty), Double)
|
|
End Get
|
|
Set(ByVal value As Double)
|
|
SetValue(MyBorderGrbThicknessProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE FOREGROUNDTXBLDISABLE TEXTBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
Public Shared ReadOnly MyForegroundGrbColorProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(MyForegroundGrbColor),
|
|
GetType(Brush),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata(SystemColors.WindowBrush, New PropertyChangedCallback(AddressOf MyForegroundGrbColor_PropertyChanged)) With {.BindsTwoWayByDefault = True})
|
|
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetMyForegroundGrbColor(element As StoneDrillParamPageV) As Brush
|
|
Return DirectCast(element.GetValue(ForegroundTxBlDisableProperty), Brush)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetMyForegroundGrbColor(element As StoneDrillParamPageV, value As Brush)
|
|
element.SetValue(ForegroundTxBlDisableProperty, value)
|
|
End Sub
|
|
|
|
' Declare public property.
|
|
Public Property MyForegroundGrbColor As Brush
|
|
Get
|
|
Return CType(GetValue(MyForegroundGrbColorProperty), Brush)
|
|
End Get
|
|
Set(value As Brush)
|
|
SetValue(MyForegroundGrbColorProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' Declare method invoke by changing property.
|
|
Private Shared Sub MyForegroundGrbColor_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
|
|
Dim TempMe As StoneDrillParamPageV = DirectCast(sender, StoneDrillParamPageV)
|
|
End Sub
|
|
|
|
#End Region ' Local Group Box
|
|
|
|
#Region "COMBOBOX MANAGE PAGE"
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE BACKGROUNDCOLOR COMBOBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
Public Shared ReadOnly BackgroundCmBxTxBlProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(BackgroundCmBxTxBl),
|
|
GetType(Brush),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata(New LinearGradientBrush(CType(ColorConverter.ConvertFromString("#E5E5E5"), Color), CType(ColorConverter.ConvertFromString("#F0F0F0"), Color), New Point(0.0, 0.1), New Point(0.1, 0.0)),
|
|
New PropertyChangedCallback(AddressOf BackgroundCmBxTxBl_PropertyChanged)) With {.BindsTwoWayByDefault = True})
|
|
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetBackgroundCmBxTxBl(element As StoneDrillParamPageV) As Brush
|
|
Return DirectCast(element.GetValue(BackgroundCmBxTxBlProperty), Brush)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetBackgroundCmBxTxBl(element As StoneDrillParamPageV, value As Brush)
|
|
element.SetValue(BackgroundCmBxTxBlProperty, value)
|
|
End Sub
|
|
|
|
' Declare public property.
|
|
Public Property BackgroundCmBxTxBl As Brush
|
|
Get
|
|
Return CType(GetValue(BackgroundCmBxTxBlProperty), Brush)
|
|
End Get
|
|
Set(value As Brush)
|
|
SetValue(BackgroundCmBxTxBlProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' Declare method invoke by changing property.
|
|
Private Shared Sub BackgroundCmBxTxBl_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
|
|
Dim TempMe As StoneDrillParamPageV = DirectCast(sender, StoneDrillParamPageV)
|
|
End Sub
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE FOREGROUND COMBOBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
Public Shared ReadOnly ForegroundCmBxTxBlProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(ForegroundCmBxTxBl),
|
|
GetType(Brush),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata(SystemColors.WindowTextBrush, New PropertyChangedCallback(AddressOf ForegroundCmBxTxBl_PropertyChanged)) With {.BindsTwoWayByDefault = True})
|
|
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetForegroundCmBxTxBl(element As StoneDrillParamPageV) As Brush
|
|
Return DirectCast(element.GetValue(ForegroundCmBxTxBlProperty), Brush)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetForegroundCmBxTxBl(element As StoneDrillParamPageV, value As Brush)
|
|
element.SetValue(ForegroundCmBxTxBlProperty, value)
|
|
End Sub
|
|
|
|
' Declare public property.
|
|
Public Property ForegroundCmBxTxBl As Brush
|
|
Get
|
|
Return CType(GetValue(ForegroundCmBxTxBlProperty), Brush)
|
|
End Get
|
|
Set(value As Brush)
|
|
SetValue(ForegroundCmBxTxBlProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' Declare method invoke by changing property.
|
|
Private Shared Sub ForegroundCmBxTxBl_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
|
|
Dim TempMe As StoneDrillParamPageV = DirectCast(sender, StoneDrillParamPageV)
|
|
End Sub
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~SPESSORE BORDER COMBOBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' Proprietà che permette di impostare l'altezza della TitleBar
|
|
Public Shared ReadOnly BorderThicknessCmBxTxBlProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(BorderThicknessCmBxTxBl),
|
|
GetType(Thickness),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata(New Thickness(1), FrameworkPropertyMetadataOptions.[Inherits]))
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetBorderThicknessCmBxTxBl(element As StoneDrillParamPageV) As Thickness
|
|
Return DirectCast(element.GetValue(BorderThicknessCmBxTxBlProperty), Thickness)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetBorderThicknessCmBxTxBl(element As StoneDrillParamPageV, value As Thickness)
|
|
element.SetValue(BorderThicknessCmBxTxBlProperty, value)
|
|
End Sub
|
|
|
|
Public Property BorderThicknessCmBxTxBl As Thickness
|
|
Get
|
|
Return DirectCast(GetValue(BorderThicknessCmBxTxBlProperty), Thickness)
|
|
End Get
|
|
Set(ByVal value As Thickness)
|
|
SetValue(BorderThicknessCmBxTxBlProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~COLORE BORDER COMBOBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
Public Shared ReadOnly BorderBrushCmBxTxBlProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(BorderBrushCmBxTxBl),
|
|
GetType(Brush),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata(DirectCast(New BrushConverter().ConvertFromString("#ACACAC"), Brush),
|
|
New PropertyChangedCallback(AddressOf BorderBrushCmBxTxBl_PropertyChanged)) With {.BindsTwoWayByDefault = True})
|
|
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetBorderBrushCmBxTxBl(element As StoneDrillParamPageV) As Brush
|
|
Return DirectCast(element.GetValue(BorderBrushCmBxTxBlProperty), Brush)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetBorderBrushCmBxTxBl(element As StoneDrillParamPageV, value As Brush)
|
|
element.SetValue(BorderBrushCmBxTxBlProperty, value)
|
|
End Sub
|
|
|
|
' Declare public property.
|
|
Public Property BorderBrushCmBxTxBl As Brush
|
|
Get
|
|
Return CType(GetValue(BorderBrushCmBxTxBlProperty), Brush)
|
|
End Get
|
|
Set(value As Brush)
|
|
SetValue(BorderBrushCmBxTxBlProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' Declare method invoke by changing property.
|
|
Private Shared Sub BorderBrushCmBxTxBl_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
|
|
Dim TempMe As StoneDrillParamPageV = DirectCast(sender, StoneDrillParamPageV)
|
|
End Sub
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ALLINIAMENTO VERTICALE CONTENUTO COMBOBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' Proprietà che permette di impostare l'altezza della TitleBar
|
|
Public Shared ReadOnly VerticalContentAlignmentCmBxTxBlProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(VerticalContentAlignmentCmBxTxBl),
|
|
GetType(String),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata("Center", FrameworkPropertyMetadataOptions.[Inherits]))
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetVerticalContentAlignmentCmBxTxBl(element As StoneDrillParamPageV) As String
|
|
Return DirectCast(element.GetValue(VerticalContentAlignmentCmBxTxBlProperty), String)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetVerticalContentAlignmentCmBxTxBl(element As StoneDrillParamPageV, value As String)
|
|
element.SetValue(VerticalContentAlignmentCmBxTxBlProperty, value)
|
|
End Sub
|
|
|
|
Public Property VerticalContentAlignmentCmBxTxBl As String
|
|
Get
|
|
Return DirectCast(GetValue(VerticalContentAlignmentCmBxTxBlProperty), String)
|
|
End Get
|
|
Set(ByVal value As String)
|
|
SetValue(VerticalContentAlignmentCmBxTxBlProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ALTEZZA COMBOBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' Proprietà che permette di impostare l'altezza della TitleBar
|
|
Public Shared ReadOnly HeightCmBxTxBlProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(HeightCmBxTxBl),
|
|
GetType(String),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata("Auto", FrameworkPropertyMetadataOptions.[Inherits]))
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetHeightCmBxTxBl(element As StoneDrillParamPageV) As String
|
|
Return DirectCast(element.GetValue(HeightCmBxTxBlProperty), String)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetHeightCmBxTxBl(element As StoneDrillParamPageV, value As String)
|
|
element.SetValue(HeightCmBxTxBlProperty, value)
|
|
End Sub
|
|
|
|
Public Property HeightCmBxTxBl As String
|
|
Get
|
|
Return DirectCast(GetValue(HeightCmBxTxBlProperty), String)
|
|
End Get
|
|
Set(ByVal value As String)
|
|
SetValue(HeightCmBxTxBlProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~LUNGHEZZA COMBOBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' Proprietà che permette di impostare l'altezza della TitleBar
|
|
Public Shared ReadOnly WidthCmBxTxBlProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(WidthCmBxTxBl),
|
|
GetType(String),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata("Auto", FrameworkPropertyMetadataOptions.[Inherits]))
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetWidthCmBxTxBl(element As StoneDrillParamPageV) As String
|
|
Return DirectCast(element.GetValue(WidthCmBxTxBlProperty), String)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetWidthCmBxTxBl(element As StoneDrillParamPageV, value As String)
|
|
element.SetValue(WidthCmBxTxBlProperty, value)
|
|
End Sub
|
|
|
|
Public Property WidthCmBxTxBl As String
|
|
Get
|
|
Return DirectCast(GetValue(WidthCmBxTxBlProperty), String)
|
|
End Get
|
|
Set(ByVal value As String)
|
|
SetValue(WidthCmBxTxBlProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE FOREGROUND TEXTBOX COMBOBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
Public Shared ReadOnly ForegroundTextBoxCmBxTxBlProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(ForegroundTextBoxCmBxTxBl),
|
|
GetType(Brush),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata(SystemColors.WindowTextBrush, New PropertyChangedCallback(AddressOf ForegroundTextBoxCmBxTxBl_PropertyChanged)) With {.BindsTwoWayByDefault = True})
|
|
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetForegroundTextBoxCmBxTxBl(element As StoneDrillParamPageV) As Brush
|
|
Return DirectCast(element.GetValue(ForegroundCmBxTxBlProperty), Brush)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetForegroundTextBoxCmBxTxBl(element As StoneDrillParamPageV, value As Brush)
|
|
element.SetValue(ForegroundCmBxTxBlProperty, value)
|
|
End Sub
|
|
|
|
' Declare public property.
|
|
Public Property ForegroundTextBoxCmBxTxBl As Brush
|
|
Get
|
|
Return CType(GetValue(ForegroundTextBoxCmBxTxBlProperty), Brush)
|
|
End Get
|
|
Set(value As Brush)
|
|
SetValue(ForegroundTextBoxCmBxTxBlProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' Declare method invoke by changing property.
|
|
Private Shared Sub ForegroundTextBoxCmBxTxBl_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
|
|
Dim TempMe As StoneDrillParamPageV = DirectCast(sender, StoneDrillParamPageV)
|
|
End Sub
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE BACKGROUNDCOLORLIST COMBOBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
Public Shared ReadOnly BackgroundListCmBxTxBlProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(BackgroundListCmBxTxBl),
|
|
GetType(Brush),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata(DirectCast(New BrushConverter().ConvertFromString("#FFFFFF"), Brush),
|
|
New PropertyChangedCallback(AddressOf BackgroundListCmBxTxBl_PropertyChanged)) With {.BindsTwoWayByDefault = True})
|
|
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetBackgroundListCmBxTxBl(element As StoneDrillParamPageV) As Brush
|
|
Return DirectCast(element.GetValue(BackgroundListCmBxTxBlProperty), Brush)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetBackgroundListCmBxTxBl(element As StoneDrillParamPageV, value As Brush)
|
|
element.SetValue(BackgroundListCmBxTxBlProperty, value)
|
|
End Sub
|
|
|
|
' Declare public property.
|
|
Public Property BackgroundListCmBxTxBl As Brush
|
|
Get
|
|
Return CType(GetValue(BackgroundListCmBxTxBlProperty), Brush)
|
|
End Get
|
|
Set(value As Brush)
|
|
SetValue(BackgroundListCmBxTxBlProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' Declare method invoke by changing property.
|
|
Private Shared Sub BackgroundListCmBxTxBl_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
|
|
Dim TempMe As StoneDrillParamPageV = DirectCast(sender, StoneDrillParamPageV)
|
|
End Sub
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
|
|
#End Region ' ComboBox Manage Page
|
|
|
|
#Region "CHECK BOX"
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE FOREGROUNDCOLOR CHECKBOX~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
Public Shared ReadOnly MyForegroundChColorProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(MyForegroundChColor),
|
|
GetType(Brush),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata(Brushes.White, New PropertyChangedCallback(AddressOf MyForegroundChColor_PropertyChanged)) With {.BindsTwoWayByDefault = True})
|
|
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetMyForegroundChColor(element As StoneDrillParamPageV) As Brush
|
|
Return DirectCast(element.GetValue(MyForegroundChColorProperty), Brush)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetMyForegroundChColor(element As StoneDrillParamPageV, value As Brush)
|
|
element.SetValue(MyForegroundChColorProperty, value)
|
|
End Sub
|
|
|
|
' Declare public property.
|
|
Public Property MyForegroundChColor As Brush
|
|
Get
|
|
Return CType(GetValue(MyForegroundChColorProperty), Brush)
|
|
End Get
|
|
Set(value As Brush)
|
|
SetValue(MyForegroundGrbColorProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' Declare method invoke by changing property.
|
|
Private Shared Sub MyForegroundChColor_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
|
|
Dim TempMe As StoneDrillParamPageV = DirectCast(sender, StoneDrillParamPageV)
|
|
End Sub
|
|
|
|
#End Region ' Check Box
|
|
|
|
#Region "BUTTON STYLE"
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE BACKGROUNDCOLOR BUTTON~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
Public Shared ReadOnly BackgroundButtonProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(BackgroundButton),
|
|
GetType(Brush),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata(DirectCast(New BrushConverter().ConvertFromString("#DDDDDD"), Brush),
|
|
New PropertyChangedCallback(AddressOf BackgroundButton_PropertyChanged)) With {.BindsTwoWayByDefault = True})
|
|
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetBackgroundButton(element As StoneDrillParamPageV) As Brush
|
|
Return DirectCast(element.GetValue(BackgroundButtonProperty), Brush)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetBackgroundButton(element As StoneDrillParamPageV, value As Brush)
|
|
element.SetValue(BackgroundButtonProperty, value)
|
|
End Sub
|
|
|
|
' Declare public property.
|
|
Public Property BackgroundButton As Brush
|
|
Get
|
|
Return CType(GetValue(BackgroundButtonProperty), Brush)
|
|
End Get
|
|
Set(value As Brush)
|
|
SetValue(BackgroundButtonProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' Declare method invoke by changing property.
|
|
Private Shared Sub BackgroundButton_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
|
|
Dim TempMe As StoneDrillParamPageV = DirectCast(sender, StoneDrillParamPageV)
|
|
End Sub
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE FOREGROUNDCOLOR BUTTON~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
Public Shared ReadOnly ForegroundButtonProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(ForegroundButton),
|
|
GetType(Brush),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata(SystemColors.WindowTextBrush, New PropertyChangedCallback(AddressOf ForegroundButton_PropertyChanged)) With {.BindsTwoWayByDefault = True})
|
|
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetForegroundButton(element As StoneDrillParamPageV) As Brush
|
|
Return DirectCast(element.GetValue(ForegroundButtonProperty), Brush)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetForegroundButton(element As StoneDrillParamPageV, value As Brush)
|
|
element.SetValue(ForegroundButtonProperty, value)
|
|
End Sub
|
|
|
|
' Declare public property.
|
|
Public Property ForegroundButton As Brush
|
|
Get
|
|
Return CType(GetValue(ForegroundButtonProperty), Brush)
|
|
End Get
|
|
Set(value As Brush)
|
|
SetValue(ForegroundButtonProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' Declare method invoke by changing property.
|
|
Private Shared Sub ForegroundButton_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
|
|
Dim TempMe As StoneDrillParamPageV = DirectCast(sender, StoneDrillParamPageV)
|
|
End Sub
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE BORDERBRUSHCOLOR BUTTON~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
Public Shared ReadOnly BorderBrushButtonProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(BorderBrushButton),
|
|
GetType(Brush),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata(DirectCast(New BrushConverter().ConvertFromString("#707070"), Brush),
|
|
New PropertyChangedCallback(AddressOf BorderBrushButton_PropertyChanged)) With {.BindsTwoWayByDefault = True})
|
|
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetBorderBrushButton(element As StoneDrillParamPageV) As Brush
|
|
Return DirectCast(element.GetValue(BorderBrushButtonProperty), Brush)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetBorderBrushButton(element As StoneDrillParamPageV, value As Brush)
|
|
element.SetValue(BorderBrushButtonProperty, value)
|
|
End Sub
|
|
|
|
' Declare public property.
|
|
Public Property BorderBrushButton As Brush
|
|
Get
|
|
Return CType(GetValue(BorderBrushButtonProperty), Brush)
|
|
End Get
|
|
Set(value As Brush)
|
|
SetValue(BorderBrushButtonProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' Declare method invoke by changing property.
|
|
Private Shared Sub BorderBrushButton_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
|
|
Dim TempMe As StoneDrillParamPageV = DirectCast(sender, StoneDrillParamPageV)
|
|
End Sub
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~SPESSORE BORDER BUTTON~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' Proprietà che permette di impostare l'altezza della TitleBar
|
|
Public Shared ReadOnly BorderThicknessButtonProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(BorderThicknessButton),
|
|
GetType(Thickness),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata(New Thickness(1), FrameworkPropertyMetadataOptions.[Inherits]))
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetBorderThicknessButton(element As StoneDrillParamPageV) As Thickness
|
|
Return DirectCast(element.GetValue(BorderThicknessButtonProperty), Thickness)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetBorderThicknessButton(element As StoneDrillParamPageV, value As Thickness)
|
|
element.SetValue(BorderThicknessButtonProperty, value)
|
|
End Sub
|
|
|
|
Public Property BorderThicknessButton As Thickness
|
|
Get
|
|
Return DirectCast(GetValue(BorderThicknessButtonProperty), Thickness)
|
|
End Get
|
|
Set(ByVal value As Thickness)
|
|
SetValue(BorderThicknessButtonProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
#End Region ' Button Style
|
|
|
|
#Region "DATAGRID"
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE BACKGROUND DATAGRID~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
Public Shared ReadOnly BackgroundDataGridProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(BackgroundDataGrid),
|
|
GetType(Brush),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata(Brushes.Transparent, New PropertyChangedCallback(AddressOf BackgroundDataGrid_PropertyChanged)) With {.BindsTwoWayByDefault = True})
|
|
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetBackgroundDataGrid(element As StoneDrillParamPageV) As Brush
|
|
Return DirectCast(element.GetValue(BackgroundDataGridProperty), Brush)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetBackgroundDataGrid(element As StoneDrillParamPageV, value As Brush)
|
|
element.SetValue(BackgroundDataGridProperty, value)
|
|
End Sub
|
|
|
|
' Declare public property.
|
|
Public Property BackgroundDataGrid As Brush
|
|
Get
|
|
Return CType(GetValue(BackgroundDataGridProperty), Brush)
|
|
End Get
|
|
Set(value As Brush)
|
|
SetValue(BackgroundDataGridProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' Declare method invoke by changing property.
|
|
Private Shared Sub BackgroundDataGrid_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
|
|
Dim TempMe As StoneDrillParamPageV = DirectCast(sender, StoneDrillParamPageV)
|
|
End Sub
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE BORDERBRUSH DATAGRID~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
Public Shared ReadOnly BorderBrushDataGridProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(BorderBrushDataGrid),
|
|
GetType(Brush),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata(Brushes.Transparent, New PropertyChangedCallback(AddressOf BorderBrushDataGrid_PropertyChanged)) With {.BindsTwoWayByDefault = True})
|
|
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetBorderBrushDataGrid(element As StoneDrillParamPageV) As Brush
|
|
Return DirectCast(element.GetValue(BorderBrushDataGridProperty), Brush)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetBorderBrushDataGrid(element As StoneDrillParamPageV, value As Brush)
|
|
element.SetValue(BorderBrushDataGridProperty, value)
|
|
End Sub
|
|
|
|
' Declare public property.
|
|
Public Property BorderBrushDataGrid As Brush
|
|
Get
|
|
Return CType(GetValue(BorderBrushDataGridProperty), Brush)
|
|
End Get
|
|
Set(value As Brush)
|
|
SetValue(BorderBrushDataGridProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' Declare method invoke by changing property.
|
|
Private Shared Sub BorderBrushDataGrid_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
|
|
Dim TempMe As StoneDrillParamPageV = DirectCast(sender, StoneDrillParamPageV)
|
|
End Sub
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE BACKGROUNDROW DATAGRID~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
Public Shared ReadOnly BackgroundDataGridRowProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(BackgroundDataGridRow),
|
|
GetType(Brush),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata(Brushes.White, New PropertyChangedCallback(AddressOf BackgroundDataGridRow_PropertyChanged)) With {.BindsTwoWayByDefault = True})
|
|
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetBackgroundDataGridRow(element As StoneDrillParamPageV) As Brush
|
|
Return DirectCast(element.GetValue(BackgroundDataGridRowProperty), Brush)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetBackgroundDataGridRow(element As StoneDrillParamPageV, value As Brush)
|
|
element.SetValue(BackgroundDataGridRowProperty, value)
|
|
End Sub
|
|
|
|
' Declare public property.
|
|
Public Property BackgroundDataGridRow As Brush
|
|
Get
|
|
Return CType(GetValue(BackgroundDataGridRowProperty), Brush)
|
|
End Get
|
|
Set(value As Brush)
|
|
SetValue(BackgroundDataGridRowProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' Declare method invoke by changing property.
|
|
Private Shared Sub BackgroundDataGridRow_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
|
|
Dim TempMe As StoneDrillParamPageV = DirectCast(sender, StoneDrillParamPageV)
|
|
End Sub
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE FOREGROUNDHEADER DATAGRIDROW~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
Public Shared ReadOnly ForegroundDataGridRowProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(ForegroundDataGridRow),
|
|
GetType(Brush),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata(Brushes.Black, New PropertyChangedCallback(AddressOf ForegroundDataGridRow_PropertyChanged)) With {.BindsTwoWayByDefault = True})
|
|
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetForegroundDataGridRow(element As StoneDrillParamPageV) As Brush
|
|
Return DirectCast(element.GetValue(ForegroundDataGridRowProperty), Brush)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetForegroundDataGridRow(element As StoneDrillParamPageV, value As Brush)
|
|
element.SetValue(ForegroundDataGridRowProperty, value)
|
|
End Sub
|
|
|
|
' Declare public property.
|
|
Public Property ForegroundDataGridRow As Brush
|
|
Get
|
|
Return CType(GetValue(ForegroundDataGridRowProperty), Brush)
|
|
End Get
|
|
Set(value As Brush)
|
|
SetValue(ForegroundDataGridRowProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' Declare method invoke by changing property.
|
|
Private Shared Sub ForegroundDataGridRow_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
|
|
Dim TempMe As StoneDrillParamPageV = DirectCast(sender, StoneDrillParamPageV)
|
|
End Sub
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~SPESSORE BORDER DATAGRIDROW~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' Proprietà che permette di impostare l'altezza della TitleBar
|
|
Public Shared ReadOnly BorderThicknessDataGridRowProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(BorderThicknessDataGridRow),
|
|
GetType(String),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata("0 0 0 1", FrameworkPropertyMetadataOptions.[Inherits]))
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetBorderThicknessDataGridRow(element As StoneDrillParamPageV) As String
|
|
Return DirectCast(element.GetValue(BorderThicknessDataGridRowProperty), String)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetBorderThicknessDataGridRow(element As StoneDrillParamPageV, value As String)
|
|
element.SetValue(BorderThicknessDataGridRowProperty, value)
|
|
End Sub
|
|
|
|
Public Property BorderThicknessDataGridRow As String
|
|
Get
|
|
Return DirectCast(GetValue(BorderThicknessDataGridRowProperty), String)
|
|
End Get
|
|
Set(ByVal value As String)
|
|
SetValue(BorderThicknessDataGridRowProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE BORDERBRUSH DATAGRIDROW~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
Public Shared ReadOnly BorderBrushDataGridRowProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(BorderBrushDataGridRow),
|
|
GetType(Brush),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata(Brushes.Black, New PropertyChangedCallback(AddressOf BorderBrushDataGridRow_PropertyChanged)) With {.BindsTwoWayByDefault = True})
|
|
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetBorderBrushDataGridRow(element As StoneDrillParamPageV) As Brush
|
|
Return DirectCast(element.GetValue(BorderBrushDataGridRowProperty), Brush)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetBorderBrushDataGridRow(element As StoneDrillParamPageV, value As Brush)
|
|
element.SetValue(BorderBrushDataGridRowProperty, value)
|
|
End Sub
|
|
|
|
' Declare public property.
|
|
Public Property BorderBrushDataGridRow As Brush
|
|
Get
|
|
Return CType(GetValue(BorderBrushDataGridRowProperty), Brush)
|
|
End Get
|
|
Set(value As Brush)
|
|
SetValue(BorderBrushDataGridRowProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' Declare method invoke by changing property.
|
|
Private Shared Sub BorderBrushDataGridRow_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
|
|
Dim TempMe As StoneDrillParamPageV = DirectCast(sender, StoneDrillParamPageV)
|
|
End Sub
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~SPESSORE BORDER DATAGRIDCELL~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' Proprietà che permette di impostare l'altezza della TitleBar
|
|
Public Shared ReadOnly BorderThicknessDataGridCellProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(BorderThicknessDataGridCell),
|
|
GetType(String),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata("0 0 1 0", FrameworkPropertyMetadataOptions.[Inherits]))
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetBorderThicknessDataGridCell(element As StoneDrillParamPageV) As String
|
|
Return DirectCast(element.GetValue(BorderThicknessDataGridCellProperty), String)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetBorderThicknessDataGridCell(element As StoneDrillParamPageV, value As String)
|
|
element.SetValue(BorderThicknessDataGridCellProperty, value)
|
|
End Sub
|
|
|
|
Public Property BorderThicknessDataGridCell As String
|
|
Get
|
|
Return DirectCast(GetValue(BorderThicknessDataGridCellProperty), String)
|
|
End Get
|
|
Set(ByVal value As String)
|
|
SetValue(BorderThicknessDataGridCellProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE BORDERBRUSH DATAGRIDROW~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
Public Shared ReadOnly BorderBrushDataGridCellProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(BorderBrushDataGridCell),
|
|
GetType(Brush),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata(Brushes.Black, New PropertyChangedCallback(AddressOf BorderBrushDataGridCell_PropertyChanged)) With {.BindsTwoWayByDefault = True})
|
|
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetBorderBrushDataGridCell(element As StoneDrillParamPageV) As Brush
|
|
Return DirectCast(element.GetValue(BorderBrushDataGridCellProperty), Brush)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetBorderBrushDataGridCell(element As StoneDrillParamPageV, value As Brush)
|
|
element.SetValue(BorderBrushDataGridCellProperty, value)
|
|
End Sub
|
|
|
|
' Declare public property.
|
|
Public Property BorderBrushDataGridCell As Brush
|
|
Get
|
|
Return CType(GetValue(BorderBrushDataGridCellProperty), Brush)
|
|
End Get
|
|
Set(value As Brush)
|
|
SetValue(BorderBrushDataGridCellProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' Declare method invoke by changing property.
|
|
Private Shared Sub BorderBrushDataGridCell_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
|
|
Dim TempMe As StoneDrillParamPageV = DirectCast(sender, StoneDrillParamPageV)
|
|
End Sub
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE HEADER VISIBILITY DATAGRID~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
Public Shared ReadOnly HeaderVisibilityProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(HeaderVisibility),
|
|
GetType(DataGridHeadersVisibility),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata(DataGridHeadersVisibility.Column, New PropertyChangedCallback(AddressOf HeaderVisibility_PropertyChanged)) With {.BindsTwoWayByDefault = True})
|
|
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetHeaderVisibility(element As StoneDrillParamPageV) As DataGridHeadersVisibility
|
|
Return DirectCast(element.GetValue(HeaderVisibilityProperty), DataGridHeadersVisibility)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetHeaderVisibility(element As WaterjettingParamPageV, value As DataGridHeadersVisibility)
|
|
element.SetValue(HeaderVisibilityProperty, value)
|
|
End Sub
|
|
|
|
' Declare public property.
|
|
Public Property HeaderVisibility As DataGridHeadersVisibility
|
|
Get
|
|
Return CType(GetValue(HeaderVisibilityProperty), DataGridHeadersVisibility)
|
|
End Get
|
|
Set(value As DataGridHeadersVisibility)
|
|
SetValue(HeaderVisibilityProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' Declare method invoke by changing property.
|
|
Private Shared Sub HeaderVisibility_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
|
|
Dim TempMe As StoneDrillParamPageV = DirectCast(sender, StoneDrillParamPageV)
|
|
End Sub
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE BACKGROUNDHEADER DATAGRID~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
Public Shared ReadOnly BackGroundHeaderProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(BackGroundHeader),
|
|
GetType(Brush),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata(Brushes.Gray, New PropertyChangedCallback(AddressOf BackGroundHeader_PropertyChanged)) With {.BindsTwoWayByDefault = True})
|
|
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetBackGroundHeader(element As StoneDrillParamPageV) As Brush
|
|
Return DirectCast(element.GetValue(BackGroundHeaderProperty), Brush)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetBackGroundHeader(element As StoneDrillParamPageV, value As Brush)
|
|
element.SetValue(BackGroundHeaderProperty, value)
|
|
End Sub
|
|
|
|
' Declare public property.
|
|
Public Property BackGroundHeader As Brush
|
|
Get
|
|
Return CType(GetValue(BackGroundHeaderProperty), Brush)
|
|
End Get
|
|
Set(value As Brush)
|
|
SetValue(BackGroundHeaderProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' Declare method invoke by changing property.
|
|
Private Shared Sub BackGroundHeader_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
|
|
Dim TempMe As StoneDrillParamPageV = DirectCast(sender, StoneDrillParamPageV)
|
|
End Sub
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE FOREGROUNDHEADER DATAGRID~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
Public Shared ReadOnly ForegroundHeaderProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(ForegroundHeader),
|
|
GetType(Brush),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata(Brushes.Black, New PropertyChangedCallback(AddressOf ForegroundHeader_PropertyChanged)) With {.BindsTwoWayByDefault = True})
|
|
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetForegroundHeader(element As StoneDrillParamPageV) As Brush
|
|
Return DirectCast(element.GetValue(ForegroundHeaderProperty), Brush)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetForegroundHeader(element As StoneDrillParamPageV, value As Brush)
|
|
element.SetValue(ForegroundHeaderProperty, value)
|
|
End Sub
|
|
|
|
' Declare public property.
|
|
Public Property ForegroundHeader As Brush
|
|
Get
|
|
Return CType(GetValue(ForegroundHeaderProperty), Brush)
|
|
End Get
|
|
Set(value As Brush)
|
|
SetValue(ForegroundHeaderProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' Declare method invoke by changing property.
|
|
Private Shared Sub ForegroundHeader_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
|
|
Dim TempMe As StoneDrillParamPageV = DirectCast(sender, StoneDrillParamPageV)
|
|
End Sub
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~GESTIONE BORDERBRUSH DATAGRID~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
Public Shared ReadOnly BorderBrushHeaderProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(BorderBrushHeader),
|
|
GetType(Brush),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata(Brushes.Black, New PropertyChangedCallback(AddressOf BorderBrushHeader_PropertyChanged)) With {.BindsTwoWayByDefault = True})
|
|
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetBorderBrushHeader(element As StoneDrillParamPageV) As Brush
|
|
Return DirectCast(element.GetValue(BorderBrushHeaderProperty), Brush)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetBorderBrushHeader(element As StoneDrillParamPageV, value As Brush)
|
|
element.SetValue(BorderBrushHeaderProperty, value)
|
|
End Sub
|
|
|
|
' Declare public property.
|
|
Public Property BorderBrushHeader As Brush
|
|
Get
|
|
Return CType(GetValue(BorderBrushHeaderProperty), Brush)
|
|
End Get
|
|
Set(value As Brush)
|
|
SetValue(BorderBrushHeaderProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' Declare method invoke by changing property.
|
|
Private Shared Sub BorderBrushHeader_PropertyChanged(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
|
|
Dim TempMe As StoneDrillParamPageV = DirectCast(sender, StoneDrillParamPageV)
|
|
End Sub
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~SPESSORE BORDER DATAGRID~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' Proprietà che permette di impostare l'altezza della TitleBar
|
|
Public Shared ReadOnly BorderThicknessHeaderProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(BorderThicknessHeader),
|
|
GetType(Double),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata(1.0, FrameworkPropertyMetadataOptions.[Inherits]))
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetBorderThicknessHeader(element As StoneDrillParamPageV) As Double
|
|
Return DirectCast(element.GetValue(BorderThicknessHeaderProperty), Double)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetBorderThicknessHeader(element As StoneDrillParamPageV, value As Double)
|
|
element.SetValue(BorderThicknessHeaderProperty, value)
|
|
End Sub
|
|
|
|
Public Property BorderThicknessHeader As Double
|
|
Get
|
|
Return DirectCast(GetValue(BorderThicknessHeaderProperty), Double)
|
|
End Get
|
|
Set(ByVal value As Double)
|
|
SetValue(BorderThicknessHeaderProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~SPESSORE CARATTERE DATAGRID~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
' Proprietà che permette di impostare l'altezza della TitleBar
|
|
Public Shared ReadOnly FontWeightHeaderProperty As DependencyProperty = DependencyProperty.RegisterAttached(
|
|
NameOf(FontWeightHeader),
|
|
GetType(FontWeight),
|
|
GetType(StoneDrillParamPageV),
|
|
New FrameworkPropertyMetadata(FontWeights.Normal, FrameworkPropertyMetadataOptions.[Inherits]))
|
|
' Declare a get accessor method.
|
|
Public Shared Function GetFontWeightHeader(element As StoneDrillParamPageV) As FontWeight
|
|
Return DirectCast(element.GetValue(FontWeightHeaderProperty), FontWeight)
|
|
End Function
|
|
|
|
' Declare a set accessor method.
|
|
Public Shared Sub SetFontWeightHeader(element As StoneDrillParamPageV, value As FontWeight)
|
|
element.SetValue(FontWeightHeaderProperty, value)
|
|
End Sub
|
|
|
|
Public Property FontWeightHeader As FontWeight
|
|
Get
|
|
Return DirectCast(GetValue(FontWeightHeaderProperty), FontWeight)
|
|
End Get
|
|
Set(ByVal value As FontWeight)
|
|
SetValue(FontWeightHeaderProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
#End Region ' DataGrid
|
|
|
|
End Class
|