Emmanuele Sassi
dcaef9eaa9
- Utilizzata EffectorWindow per MultipleCopyWnd - Utilizzata BaseWindow per ProcessManagerV - aggiunto titolo a TitleBar - aggiunto modulo Converters
40 lines
1.5 KiB
VB.net
40 lines
1.5 KiB
VB.net
Public Class TitleBar
|
|
|
|
' Proprietà che permette di attivare e disattivare lo spostamento della finestra
|
|
Public Shared ReadOnly TitleProperty As DependencyProperty = DependencyProperty.Register("Title", GetType(String), GetType(TitleBar), New PropertyMetadata(""))
|
|
Public Property Title() As Boolean
|
|
Get
|
|
Return CBool(GetValue(TitleProperty))
|
|
End Get
|
|
Set(ByVal value As Boolean)
|
|
SetValue(TitleProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' Proprietà che permette di attivare e disattivare lo spostamento della finestra
|
|
Public Shared ReadOnly IsMinimizableProperty As DependencyProperty = DependencyProperty.Register("IsMinimizable", GetType(Boolean), GetType(TitleBar), New PropertyMetadata(True))
|
|
Public Property IsMinimizable() As Boolean
|
|
Get
|
|
Return CBool(GetValue(IsMinimizableProperty))
|
|
End Get
|
|
Set(ByVal value As Boolean)
|
|
SetValue(IsMinimizableProperty, value)
|
|
End Set
|
|
End Property
|
|
|
|
' Proprietà che permette di attivare e disattivare il bottone di chiusura della finestra
|
|
Public Shared ReadOnly IsClosableProperty As DependencyProperty = DependencyProperty.Register("IsClosable", GetType(Boolean), GetType(TitleBar), New PropertyMetadata(True))
|
|
Public Property IsClosable() As Boolean
|
|
Get
|
|
Return CBool(GetValue(IsClosableProperty))
|
|
End Get
|
|
Set(ByVal value As Boolean)
|
|
SetValue(IsClosableProperty, value)
|
|
If Not value Then
|
|
IsMinimizable = False
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
End Class
|