egtbeamwall/EgtBEAMWALL.Core/TitleBar/TitleBarV.xaml.vb

Imports System.Windows

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