- cambio nome del progetto in Icarus
- gestione ribs completata - nuove funzionalita' introdotte su tabella TFS - correzioni e migliorie varie
This commit is contained in:
Emmanuele Sassi
@@ -0,0 +1,336 @@
|
||||
Imports System.Collections.ObjectModel
|
||||
Imports EgtUILib
|
||||
Imports EgtWPFLib5
|
||||
|
||||
Public Class ControllerInputPanelVM
|
||||
Inherits VMBase
|
||||
|
||||
#Region "FIELDS & PROPERTIES"
|
||||
|
||||
Private m_Title As String
|
||||
Public Property Title As String
|
||||
Get
|
||||
Return m_Title
|
||||
End Get
|
||||
Set(value As String)
|
||||
m_Title = value
|
||||
NotifyPropertyChanged(NameOf(Title))
|
||||
End Set
|
||||
End Property
|
||||
|
||||
' TextBlock fields
|
||||
Private m_Message As String
|
||||
Public Property Message As String
|
||||
Get
|
||||
Return m_Message
|
||||
End Get
|
||||
Set(value As String)
|
||||
m_Message = value
|
||||
NotifyPropertyChanged(NameOf(Message))
|
||||
End Set
|
||||
End Property
|
||||
|
||||
' TextBox fields
|
||||
Private m_Text As String
|
||||
Public Property Text As String
|
||||
Get
|
||||
Return m_Text
|
||||
End Get
|
||||
Set(value As String)
|
||||
m_Text = value
|
||||
'Map.refProjectVM.NotifyInputText(value)
|
||||
NotifyPropertyChanged(NameOf(Text))
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private m_Text_Visibility As Visibility
|
||||
Public Property Text_Visibility As Visibility
|
||||
Get
|
||||
Return m_Text_Visibility
|
||||
End Get
|
||||
Set(value As Visibility)
|
||||
If value <> m_Text_Visibility Then
|
||||
m_Text_Visibility = value
|
||||
NotifyPropertyChanged(NameOf(Text_Visibility))
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private m_Message_Visibility As Visibility
|
||||
Public Property Message_Visibility As Visibility
|
||||
Get
|
||||
Return m_Message_Visibility
|
||||
End Get
|
||||
Set(value As Visibility)
|
||||
If value <> m_Message_Visibility Then
|
||||
m_Message_Visibility = value
|
||||
NotifyPropertyChanged(NameOf(Message_Visibility))
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private m_FocusTextBox As Boolean
|
||||
Public Property FocusTextBox As Boolean
|
||||
Get
|
||||
Return m_FocusTextBox
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
m_FocusTextBox = value
|
||||
NotifyPropertyChanged(NameOf(FocusTextBox))
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'CheckBox fields
|
||||
Private m_CheckBoxText As String
|
||||
Public Property CheckBoxText As String
|
||||
Get
|
||||
Return m_CheckBoxText
|
||||
End Get
|
||||
Set(value As String)
|
||||
m_CheckBoxText = value
|
||||
NotifyPropertyChanged(NameOf(CheckBoxText))
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private m_IsChecked As Boolean = False
|
||||
Public Property IsChecked As Boolean
|
||||
Get
|
||||
Return m_IsChecked
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
If value <> m_IsChecked Then
|
||||
Map.refSceneHostVM.MainController.SetLastBoolean(value)
|
||||
m_IsChecked = value
|
||||
NotifyPropertyChanged(NameOf(IsChecked))
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private m_Check_Visibility As Visibility
|
||||
Public Property Check_Visibility As Visibility
|
||||
Get
|
||||
Return m_Check_Visibility
|
||||
End Get
|
||||
Set(value As Visibility)
|
||||
If value <> m_Check_Visibility Then
|
||||
m_Check_Visibility = value
|
||||
NotifyPropertyChanged(NameOf(Check_Visibility))
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
' ComboBox fields
|
||||
Private m_ComboItemsList As New ObservableCollection(Of String)
|
||||
Public Property ComboItemsList As ObservableCollection(Of String)
|
||||
Get
|
||||
Return m_ComboItemsList
|
||||
End Get
|
||||
Set(value As ObservableCollection(Of String))
|
||||
m_ComboItemsList = value
|
||||
NotifyPropertyChanged(NameOf(ComboItemsList))
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private m_ComboSelectedIndex As Integer
|
||||
Public Property ComboSelectedIndex As Integer
|
||||
Get
|
||||
Return m_ComboSelectedIndex
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
Map.refSceneHostVM.MainController.SetLastInteger(value)
|
||||
m_ComboSelectedIndex = value
|
||||
NotifyPropertyChanged(NameOf(ComboSelectedIndex))
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private m_Combo_Visibility As Visibility
|
||||
Public Property Combo_Visibility As Visibility
|
||||
Get
|
||||
Return m_Combo_Visibility
|
||||
End Get
|
||||
Set(value As Visibility)
|
||||
If value <> m_Combo_Visibility Then
|
||||
m_Combo_Visibility = value
|
||||
NotifyPropertyChanged(NameOf(Combo_Visibility))
|
||||
End If
|
||||
End Set
|
||||
End Property
|
||||
|
||||
' Buttons fields
|
||||
Private m_ShowBtn_Visibility As Visibility
|
||||
Public Property ShowBtn_Visibility As Visibility
|
||||
Get
|
||||
Return m_ShowBtn_Visibility
|
||||
End Get
|
||||
Set(value As Visibility)
|
||||
m_ShowBtn_Visibility = value
|
||||
NotifyPropertyChanged(NameOf(ShowBtn_Visibility))
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private m_DoneBtn_Visibility As Visibility
|
||||
Public Property DoneBtn_Visibility As Visibility
|
||||
Get
|
||||
Return m_DoneBtn_Visibility
|
||||
End Get
|
||||
Set(value As Visibility)
|
||||
m_DoneBtn_Visibility = value
|
||||
NotifyPropertyChanged(NameOf(DoneBtn_Visibility))
|
||||
End Set
|
||||
End Property
|
||||
|
||||
' Commands definition
|
||||
Private m_cmdShow As ICommand
|
||||
Private m_cmdDone As ICommand
|
||||
|
||||
#Region "Messages"
|
||||
|
||||
Public ReadOnly Property ShowMsg As String
|
||||
Get
|
||||
Return EgtMsg(5350 + 14)
|
||||
End Get
|
||||
End Property
|
||||
Public ReadOnly Property OkMsg As String
|
||||
Get
|
||||
Return EgtMsg(5350 + 15)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
#End Region ' Fields & Properties
|
||||
|
||||
#Region "CONSTRUCTOR"
|
||||
|
||||
Sub New()
|
||||
' Creo riferimento a questa classe in EgtCAM5Map
|
||||
Map.SetRefControllerInputPanelVM(Me)
|
||||
' nascondo input box
|
||||
ResetInputBox()
|
||||
End Sub
|
||||
|
||||
#End Region ' Constructor
|
||||
|
||||
#Region "METHODS"
|
||||
|
||||
Friend Sub ShowMessage(sTitle As String, sLabel As String)
|
||||
Title = sTitle
|
||||
If sLabel <> "" Then
|
||||
Message = sLabel
|
||||
Message_Visibility = Visibility.Visible
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Friend Sub PrepareInputBox(sTitle As String, sLabel As String, sCheckLabel As String,
|
||||
bShowCombo As Boolean, bShowBtn As Boolean)
|
||||
If Map.refTopPanelVM.SelPage = Pages.MODIFY AndAlso Map.refTopPanelVM.SelModifyMode.ModifyMode = ModifyModes.DISPOSITION Then Return
|
||||
Title = sTitle
|
||||
If sLabel <> "" Then
|
||||
Message = sLabel
|
||||
Text = ""
|
||||
Text_Visibility = Visibility.Visible
|
||||
Message_Visibility = Visibility.Visible
|
||||
End If
|
||||
'If sCheckLabel <> "" Then
|
||||
' CheckBoxText = sCheckLabel
|
||||
' Check_Visibility = Visibility.Visible
|
||||
'End If
|
||||
If bShowCombo Then
|
||||
ComboItemsList.Clear()
|
||||
Combo_Visibility = Visibility.Visible
|
||||
End If
|
||||
If bShowBtn Then
|
||||
ShowBtn_Visibility = Visibility.Visible
|
||||
End If
|
||||
DoneBtn_Visibility = Visibility.Visible
|
||||
FocusTextBox = True
|
||||
End Sub
|
||||
|
||||
Friend Sub ResetInputBox()
|
||||
Title = EgtMsg(5350 + 5)
|
||||
Text_Visibility = Visibility.Collapsed
|
||||
Message_Visibility = Visibility.Collapsed
|
||||
Check_Visibility = Visibility.Collapsed
|
||||
Combo_Visibility = Visibility.Collapsed
|
||||
ShowBtn_Visibility = Visibility.Collapsed
|
||||
DoneBtn_Visibility = Visibility.Collapsed
|
||||
End Sub
|
||||
|
||||
Friend Function SetInputBoxText(sVal As String) As Boolean
|
||||
Text = sVal
|
||||
FocusTextBox = True
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Friend Function ChangeInputBoxCheck() As Boolean
|
||||
IsChecked = Not m_IsChecked
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Friend Function SetInputBoxCheck(bCheck As Boolean) As Boolean
|
||||
IsChecked = bCheck
|
||||
Map.refSceneHostVM.MainController.SetLastBoolean(IsChecked)
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Friend Function AddInputBoxCombo(sText As String, bSelected As Boolean) As Boolean
|
||||
ComboItemsList.Add(sText)
|
||||
If bSelected Then
|
||||
ComboSelectedIndex = ComboItemsList.Count - 1
|
||||
End If
|
||||
Return True
|
||||
End Function
|
||||
|
||||
#End Region ' METHODS
|
||||
|
||||
#Region "COMMANDS"
|
||||
|
||||
#Region "Show"
|
||||
|
||||
''' <summary>
|
||||
''' Returns a command that do Point.
|
||||
''' </summary>
|
||||
Public ReadOnly Property Show_Command As ICommand
|
||||
Get
|
||||
If m_cmdShow Is Nothing Then
|
||||
m_cmdShow = New Command(AddressOf Show)
|
||||
End If
|
||||
Return m_cmdShow
|
||||
End Get
|
||||
End Property
|
||||
|
||||
''' <summary>
|
||||
''' Execute the Point. This method is invoked by the PointCommand.
|
||||
''' </summary>
|
||||
Public Sub Show(ByVal param As Object)
|
||||
Map.refSceneHostVM.MainController.Show(m_Text)
|
||||
End Sub
|
||||
|
||||
#End Region ' Show
|
||||
|
||||
#Region "Done"
|
||||
|
||||
''' <summary>
|
||||
''' Returns a command that do Point.
|
||||
''' </summary>
|
||||
Public ReadOnly Property Done_Command As ICommand
|
||||
Get
|
||||
If m_cmdDone Is Nothing Then
|
||||
m_cmdDone = New Command(AddressOf Done)
|
||||
End If
|
||||
Return m_cmdDone
|
||||
End Get
|
||||
End Property
|
||||
|
||||
''' <summary>
|
||||
''' Execute the Point. This method is invoked by the PointCommand.
|
||||
''' </summary>
|
||||
Public Sub Done(ByVal param As Object)
|
||||
Map.refSceneHostVM.MainController.Done(m_Text)
|
||||
End Sub
|
||||
|
||||
#End Region ' Done
|
||||
|
||||
#End Region ' COMMANDS
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user