DarioS
829 lines
30 KiB
VB.net
829 lines
30 KiB
VB.net
Imports System.Collections.ObjectModel
|
|
Imports System.Windows.Forms
|
|
Imports EgtUILib
|
|
Imports EgtWPFLib5
|
|
|
|
Public Class OptionWindowVM
|
|
Inherits VMBase
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
Private m_LanguageList As New List(Of Language)
|
|
Public ReadOnly Property LanguageList As List(Of Language)
|
|
Get
|
|
Return m_LanguageList
|
|
End Get
|
|
End Property
|
|
|
|
Private m_SelLanguage As Language
|
|
Public Property SelLanguage As Language
|
|
Get
|
|
Return m_SelLanguage
|
|
End Get
|
|
Set(value As Language)
|
|
If value IsNot m_SelLanguage Then
|
|
m_SelLanguage = value
|
|
WriteMainPrivateProfileString(S_GENERAL, K_MESSAGES, m_SelLanguage.Name)
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
Private m_MeasureUnitList As New List(Of String)({"inch", "mm"})
|
|
Public ReadOnly Property MeasureUnitList As List(Of String)
|
|
Get
|
|
Return m_MeasureUnitList
|
|
End Get
|
|
End Property
|
|
|
|
Private m_SideModeList As List(Of String)
|
|
Public ReadOnly Property SideModeList As List(Of String)
|
|
Get
|
|
Return m_SideModeList
|
|
End Get
|
|
End Property
|
|
|
|
Private m_SelSideModeIndex As Integer
|
|
Public Property SelSideModeIndex As Integer
|
|
Get
|
|
Return m_SelSideModeIndex
|
|
End Get
|
|
Set(value As Integer)
|
|
If value <> m_SelSideModeIndex Then
|
|
m_SelSideModeIndex = value
|
|
WriteMainPrivateProfileString(S_COMPO, K_SIDEMODE, m_SelSideModeIndex.ToString())
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
Public Property SelMeasureUnit As Integer
|
|
Get
|
|
Return If(EgtUiUnitsAreMM(), MeasureUnitOpt.MM, MeasureUnitOpt.INCH)
|
|
End Get
|
|
Set(value As Integer)
|
|
' salvo unità di misura precedente
|
|
Dim PrevMeasureUnit As MeasureUnitOpt = If(EgtUiUnitsAreMM(), MeasureUnitOpt.MM, MeasureUnitOpt.INCH)
|
|
If value <> PrevMeasureUnit Then
|
|
' cambio unità di misura
|
|
EgtSetUiUnits(DirectCast(value, MeasureUnitOpt) = MeasureUnitOpt.MM)
|
|
OmagOFFICEMap.refStatusBarVM.SetMeasureUnit(value)
|
|
WriteMainPrivateProfileString(S_GENERAL, K_MMUNITS, value.ToString())
|
|
' aggiorno le unità di misura nelle Tab
|
|
OmagOFFICEMap.refRawPartTabVM.Refresh(PrevMeasureUnit)
|
|
OmagOFFICEMap.refNestingTabVM.Refresh(PrevMeasureUnit)
|
|
OmagOFFICEMap.refMoveRawModeVM.Refresh(PrevMeasureUnit)
|
|
If Not IsNothing(OmagOFFICEMap.refSimulTabVM.MySimul) Then OmagOFFICEMap.refSimulTabVM.MySimul.Refresh(PrevMeasureUnit)
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
Public Property DIGeneral As Boolean
|
|
Get
|
|
Return (GetMainPrivateProfileInt(S_NEST, K_DIRECT, 0) <> 0)
|
|
End Get
|
|
Set(value As Boolean)
|
|
WriteMainPrivateProfileString(S_NEST, K_DIRECT, If(value, "1", "0"))
|
|
End Set
|
|
End Property
|
|
|
|
Public Property DICsv As Boolean
|
|
Get
|
|
Return GetMainPrivateProfileInt(S_CSV, K_CSVDIRECT, 1) <> 0
|
|
End Get
|
|
Set(value As Boolean)
|
|
WriteMainPrivateProfileString(S_CSV, K_CSVDIRECT, If(value, "1", "0"))
|
|
End Set
|
|
End Property
|
|
|
|
' lista dei colori per SideAngle
|
|
Private m_ColorItemList As New ObservableCollection(Of ColorLsBxItem)
|
|
Public ReadOnly Property ColorItemList As ObservableCollection(Of ColorLsBxItem)
|
|
Get
|
|
Return m_ColorItemList
|
|
End Get
|
|
End Property
|
|
|
|
'lista dei colori per Engrave
|
|
Private m_ColorEngraveItemList As New ObservableCollection(Of ColorLsEngraveBxItem)
|
|
Public ReadOnly Property ColorEngraveItemList As ObservableCollection(Of ColorLsEngraveBxItem)
|
|
Get
|
|
Return m_ColorEngraveItemList
|
|
End Get
|
|
End Property
|
|
|
|
Private Property m_TextColorBackground As Color3d
|
|
Public ReadOnly Property TextColorBackground As Brush
|
|
Get
|
|
Dim x = New SolidColorBrush( Color.FromArgb( CByte( m_TextColorBackground.A / 100 * 255),
|
|
CByte( m_TextColorBackground.R),
|
|
CByte( m_TextColorBackground.G),
|
|
CByte( m_TextColorBackground.B)))
|
|
Return x
|
|
End Get
|
|
'Set(value As Brush)
|
|
' If Not value.Equals(m_TextColorBackground) Then
|
|
' m_TextColorBackground = value
|
|
' NotifyPropertyChanged("TextColorBackground")
|
|
' End If
|
|
'End Set
|
|
End Property
|
|
|
|
#Region "Messages"
|
|
|
|
Public ReadOnly Property Title As String
|
|
Get
|
|
Return EgtMsg(MSG_OPTIONSPAGEUC + 1)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property CurrentLanguageMsg As String
|
|
Get
|
|
Return EgtMsg(MSG_OPTIONSPAGEUC + 1)
|
|
End Get
|
|
End Property
|
|
Public ReadOnly Property LanguageAdvertMsg As String
|
|
Get
|
|
Return EgtMsg(MSG_OPTIONSPAGEUC + 2)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property MeasureUnitMsg As String
|
|
Get
|
|
Return EgtMsg(MSG_OPTIONSPAGEUC + 3)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property TextColorMsg As String
|
|
Get
|
|
Return EgtMsg(MSG_OPTIONSPAGEUC + 13)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property ColorToSideAngMsg As String
|
|
Get
|
|
Return EgtMsg(MSG_OPTIONSPAGEUC + 19)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property CTSAboxEnableMsg As String
|
|
Get
|
|
Return EgtMsg(MSG_OPTIONSPAGEUC + 20)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property ToleranceMsg As String
|
|
Get
|
|
Return EgtMsg(MSG_OPTIONSPAGEUC + 21)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property TalloneMsg As String
|
|
Get
|
|
Return EgtMsg(MSG_OPTIONSPAGEUC + 22)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property InclinazioneMsg As String
|
|
Get
|
|
Return EgtMsg(MSG_OPTIONSPAGEUC + 23)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property SideAngleHdr As String
|
|
Get
|
|
Return EgtMsg(MSG_OPTIONSPAGEUC + 5)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property DirectInsertHdr As String
|
|
Get
|
|
Return EgtMsg(MSG_OPTIONSPAGEUC + 8)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property DIGeneralMsg As String
|
|
Get
|
|
Return EgtMsg(MSG_OPTIONSPAGEUC + 9)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property DICsvMsg As String
|
|
Get
|
|
Return EgtMsg(MSG_OPTIONSPAGEUC + 10)
|
|
End Get
|
|
End Property
|
|
|
|
' Engrave from color
|
|
Public ReadOnly Property ColorToEngraveMsg As String
|
|
Get
|
|
Return EgtMsg(MSG_OPTIONSPAGEUC + 26)
|
|
End Get
|
|
End Property
|
|
Public ReadOnly Property CTEboxEnableMsg As String
|
|
Get
|
|
Return EgtMsg(MSG_OPTIONSPAGEUC + 20)
|
|
End Get
|
|
End Property
|
|
Public ReadOnly Property ToleranceEMsg As String
|
|
Get
|
|
Return EgtMsg(MSG_OPTIONSPAGEUC + 21)
|
|
End Get
|
|
End Property
|
|
Public ReadOnly Property AffondamentoMsg As String
|
|
Get
|
|
Return EgtMsg(MSG_OPTIONSPAGEUC + 27)
|
|
End Get
|
|
End Property
|
|
Public ReadOnly Property LarghezzaMsg As String
|
|
Get
|
|
Return EgtMsg(MSG_OPTIONSPAGEUC + 28)
|
|
End Get
|
|
End Property
|
|
|
|
'Definizione comandi
|
|
Private m_cmdChangeColor As ICommand
|
|
|
|
#End Region
|
|
|
|
#End Region ' FIELDS & PROPERTIES
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New()
|
|
' Leggo nome lingua corrente
|
|
Dim sLanguage As String = String.Empty
|
|
GetMainPrivateProfileString(S_GENERAL, K_MESSAGES, "", sLanguage)
|
|
' Leggo elenco lingue disponibili da file ini e imposto lingua corrente
|
|
Dim nIndex As Integer = 1
|
|
While True
|
|
Dim ReadLanguage As Language = GetMainPrivateProfileLanguage(S_LANGUAGES, K_LANGUAGE & nIndex)
|
|
If IsNothing(ReadLanguage) Then Exit While
|
|
m_LanguageList.Add(ReadLanguage)
|
|
If String.Compare(ReadLanguage.Name, sLanguage, True) = 0 Then
|
|
m_SelLanguage = ReadLanguage
|
|
End If
|
|
nIndex += 1
|
|
End While
|
|
' Carico messaggi per lista tipologie di definizione angolo d'inclinazione
|
|
m_SideModeList = New List(Of String)({EgtMsg(MSG_OPTIONSPAGEUC + 6), EgtMsg(MSG_OPTIONSPAGEUC + 7)})
|
|
' Carico valore da file ini
|
|
m_SelSideModeIndex = GetMainPrivateProfileInt(S_COMPO, K_SIDEMODE, 0)
|
|
|
|
Dim m_OptionWindowV As OptionWindowV = DirectCast(Application.Current.Windows.OfType(Of OptionWindowV)().SingleOrDefault(), OptionWindowV)
|
|
|
|
' I parametri di TextColor presenti nell'INI vengono caricati
|
|
Dim sTextColor As String = " "
|
|
If GetPrivateProfileString(S_NEST, K_TEXTCOLOR, " ", sTextColor, m_sIniFile) <> 0 Then
|
|
Dim sTextColorArray() As String = sTextColor.Split(","c)
|
|
If sTextColorArray.Count() >= 3 Then
|
|
Dim nRed As Integer = 0 : StringToInt( sTextColorArray(0), nRed)
|
|
Dim nGreen As Integer = 0 : StringToInt( sTextColorArray(1), nGreen)
|
|
Dim nBlue As Integer = 0 : StringToInt( sTextColorArray(2), nBlue)
|
|
m_TextColorBackground = New Color3d( nRed, nGreen, nBlue)
|
|
Else
|
|
m_TextColorBackground = New Color3d( 0, 0, 0)
|
|
End If
|
|
End If
|
|
|
|
' Leggo se la modalità ColorToSideAng è abilitata
|
|
If GetPrivateProfileInt(S_COLORTOSIDEANG, K_CTSA_ENABLE, 0, m_sIniFile) <> 0 Then
|
|
CTSAChecked = True
|
|
Else
|
|
CTSAChecked = False
|
|
End If
|
|
|
|
' I parametri di ColorSideToAng presenti nell'INI vengono caricati a prescindere dall'abilitazione
|
|
Dim nVal As Integer
|
|
nVal = GetPrivateProfileInt(S_COLORTOSIDEANG, K_CTSA_TOLERANCE, nVal, m_sIniFile)
|
|
m_sToleranceTxBx = nVal.ToString()
|
|
' Nel caso dei colori singoli viene verificata la presenza della Key corrispondente a ciascuno dei
|
|
' 10 singoli colori (CTSAindex) e il Valore associato viene splittato in un array di stringhe
|
|
For index As Integer = 1 To 10
|
|
Dim sColor As String = " "
|
|
Dim sArray() As String
|
|
If GetPrivateProfileString(S_COLORTOSIDEANG, K_CTSA & index, " ", sColor, m_sIniFile) <> 0 Then
|
|
sArray = sColor.Split(","c)
|
|
Dim bIsActive As Boolean = If(sArray.Length >= 6, sArray(5).Equals("1"), True)
|
|
Dim nRed As Integer = 0 : StringToInt(If(sArray.Length >= 1, sArray(0), "0"), nRed)
|
|
Dim nGreen As Integer = 0 : StringToInt(If(sArray.Length >= 2, sArray(1), "0"), nGreen)
|
|
Dim nBlue As Integer = 0 : StringToInt(If(sArray.Length >= 3, sArray(2), "0"), nBlue)
|
|
Dim dSlant As Double = 0 : StringToDouble(If(sArray.Length >= 4, sArray(3), "0"), dSlant)
|
|
Dim dHeel As Double = 0 : StringToDouble(If(sArray.Length >= 5, sArray(4), "0"), dHeel)
|
|
' Leggo elenco colori disponibili da file ini
|
|
Dim ReadColor As ColorLsBxItem = New ColorLsBxItem(index,
|
|
bIsActive,
|
|
New Color3d(nRed, nGreen, nBlue, 100),
|
|
dSlant,
|
|
dHeel)
|
|
m_ColorItemList.Add(ReadColor)
|
|
Else
|
|
' Se CTSA di indice index non esiste nell'INI lo scrivo con dei valori di default e aggiungo ReadColor
|
|
' creato con i valori di default e indice index alla lista di colori
|
|
WritePrivateProfileString(S_COLORTOSIDEANG, K_CTSA & index, "255,255,255,0,0,0", m_sIniFile)
|
|
Dim ReadColor As ColorLsBxItem = New ColorLsBxItem(index, False, New Color3d(255, 255, 255, 100), 0, 0)
|
|
m_ColorItemList.Add(ReadColor)
|
|
End If
|
|
Next
|
|
|
|
' Leggo se la modalità ColorToEngrave è abilitata
|
|
If GetPrivateProfileInt(S_COLORTOENGRAVE, K_CTE_ENABLE, 0, m_sIniFile) <> 0 Then
|
|
CTEChecked = True
|
|
Else
|
|
CTEChecked = False
|
|
End If
|
|
|
|
' I parametri di ColorSideToAng presenti nell'INI vengono caricati a prescindere dall'abilitazione
|
|
nVal = GetPrivateProfileInt(S_COLORTOENGRAVE, K_CTE_TOLERANCE, nVal, m_sIniFile)
|
|
m_sToleranceETxBx = nVal.ToString()
|
|
' Nel caso dei colori singoli viene verificata la presenza della Key corrispondente a ciascuno dei
|
|
' 10 singoli colori (CTSAindex) e il Valore associato viene splittato in un array di stringhe
|
|
For index As Integer = 1 To 10
|
|
Dim sColor As String = " "
|
|
Dim sArray() As String
|
|
If GetPrivateProfileString(S_COLORTOENGRAVE, K_CTE & index, " ", sColor, m_sIniFile) <> 0 Then
|
|
sArray = sColor.Split(","c)
|
|
Dim bIsActive As Boolean = If(sArray.Length >= 6, sArray(5).Equals("1"), True)
|
|
Dim nRed As Integer = 0 : StringToInt(If(sArray.Length >= 1, sArray(0), "0"), nRed)
|
|
Dim nGreen As Integer = 0 : StringToInt(If(sArray.Length >= 2, sArray(1), "0"), nGreen)
|
|
Dim nBlue As Integer = 0 : StringToInt(If(sArray.Length >= 3, sArray(2), "0"), nBlue)
|
|
Dim dAff As Double = 0 : StringToDouble(If(sArray.Length >= 4, sArray(3), "0"), dAff)
|
|
Dim dLar As Double = 0 : StringToDouble(If(sArray.Length >= 5, sArray(4), "0"), dLar)
|
|
' Leggo elenco colori disponibili da file ini
|
|
Dim ReadColor As ColorLsEngraveBxItem = New ColorLsEngraveBxItem(index,
|
|
bIsActive,
|
|
New Color3d(nRed, nGreen, nBlue, 100),
|
|
dAff,
|
|
dLar)
|
|
m_ColorEngraveItemList.Add(ReadColor)
|
|
Else
|
|
' Se CTSA di indice index non esiste nell'INI lo scrivo con dei valori di default e aggiungo ReadColor
|
|
' creato con i valori di default e indice index alla lista di colori
|
|
WritePrivateProfileString(S_COLORTOENGRAVE, K_CTE & index, "255,255,255,0,0,0", m_sIniFile)
|
|
Dim ReadColor As ColorLsEngraveBxItem = New ColorLsEngraveBxItem(index, False, New Color3d(255, 255, 255, 100), 0, 0)
|
|
m_ColorEngraveItemList.Add(ReadColor)
|
|
End If
|
|
Next
|
|
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTOR
|
|
|
|
#Region "COMMANDS"
|
|
|
|
#Region "ChangeColorCommand"
|
|
|
|
''' <summary>
|
|
''' Returns a command that do ChangeColor.
|
|
''' </summary>
|
|
Public ReadOnly Property ChangeColorCommand As ICommand
|
|
Get
|
|
If m_cmdChangeColor Is Nothing Then
|
|
m_cmdChangeColor = New Command(AddressOf ChangeColor)
|
|
End If
|
|
Return m_cmdChangeColor
|
|
End Get
|
|
End Property
|
|
|
|
''' <summary>
|
|
''' Execute the ChangeColor. This method is invoked by the ChangeColorCommand.
|
|
''' </summary>
|
|
Public Sub ChangeColor(ByVal param As Object)
|
|
'' Recupero colore da Ini
|
|
'Dim TextColor As New Color3d(192, 192, 192)
|
|
'Dim NewCol As New Color3d(192, 192, 192)
|
|
'GetPrivateProfileColor(S_NEST, K_TEXTCOLOR, TextColor, m_sIniFile)
|
|
'' Creo dialogo colori
|
|
'Dim ColorDlg As New System.Windows.Forms.ColorDialog
|
|
'ColorDlg.FullOpen = True
|
|
'ColorDlg.Color = TextColor.ToColor()
|
|
'' Visualizzo dialogo
|
|
'ColorDlg.ShowDialog()
|
|
'NewCol.FromColor(ColorDlg.Color)
|
|
'' Salvo eventuali modifiche al colore scelto
|
|
'Dim sColor As String = NewCol.R & "," & NewCol.G & "," & NewCol.B
|
|
'WritePrivateProfileString(S_NEST, K_TEXTCOLOR, sColor, m_sIniFile)
|
|
'' Imposto il colore scelto sul pulsante
|
|
'TextColorBackground = New SolidColorBrush(Color.FromRgb(NewCol.R, NewCol.G, NewCol.B))
|
|
|
|
' Recupero colore da Ini
|
|
Dim NewCol As New Color3d(192, 192, 192, 100)
|
|
' Creo dialogo colori
|
|
Dim ColorDlg As New System.Windows.Forms.ColorDialog
|
|
ColorDlg.FullOpen = True
|
|
ColorDlg.Color = m_TextColorBackground.ToColor()
|
|
' Visualizzo dialogo
|
|
If ColorDlg.ShowDialog() <> DialogResult.OK Then Return
|
|
NewCol.FromColor(ColorDlg.Color)
|
|
' Salvo eventuali modifiche al colore scelto
|
|
Dim sColor As String = NewCol.R & "," & NewCol.G & "," & NewCol.B
|
|
WritePrivateProfileString(S_NEST, K_TEXTCOLOR, sColor, m_sIniFile)
|
|
' Imposto il colore scelto sul pulsante
|
|
m_TextColorBackground = NewCol
|
|
NotifyPropertyChanged("TextColorBackground")
|
|
End Sub
|
|
|
|
#End Region ' ChangeColorCommand
|
|
|
|
#Region "Checked"
|
|
|
|
' SideAngle
|
|
Private Property m_CTSAChecked As Boolean
|
|
Public Property CTSAChecked As Boolean
|
|
Get
|
|
Return m_CTSAChecked
|
|
End Get
|
|
Set(value As Boolean)
|
|
If value <> m_CTSAChecked Then
|
|
m_CTSAChecked = value
|
|
If CTSAChecked = True Then
|
|
WritePrivateProfileString(S_COLORTOSIDEANG, K_CTSA_ENABLE, "1", m_sIniFile)
|
|
ElseIf CTSAChecked = False Then
|
|
WritePrivateProfileString(S_COLORTOSIDEANG, K_CTSA_ENABLE, "0", m_sIniFile)
|
|
End If
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
' Engrave
|
|
Private Property m_CTEChecked As Boolean
|
|
Public Property CTEChecked As Boolean
|
|
Get
|
|
Return m_CTEChecked
|
|
End Get
|
|
Set(value As Boolean)
|
|
If value <> m_CTEChecked Then
|
|
m_CTEChecked = value
|
|
If CTEChecked = True Then
|
|
WritePrivateProfileString(S_COLORTOENGRAVE, K_CTE_ENABLE, "1", m_sIniFile)
|
|
ElseIf CTEChecked = False Then
|
|
WritePrivateProfileString(S_COLORTOENGRAVE, K_CTE_ENABLE, "0", m_sIniFile)
|
|
End If
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
#End Region ' Checked
|
|
|
|
#Region "Tolerance"
|
|
|
|
Private Property m_sToleranceTxBx As String
|
|
Public Property sToleranceTxBx As String
|
|
Get
|
|
Return m_sToleranceTxBx
|
|
End Get
|
|
Set(value As String)
|
|
If value <> m_sToleranceTxBx Then
|
|
m_sToleranceTxBx = value
|
|
Dim i As Integer = 0
|
|
Try
|
|
i = Integer.Parse(m_sToleranceTxBx, Globalization.NumberStyles.Any)
|
|
If i < 0 Then
|
|
m_sToleranceTxBx = "0"
|
|
ElseIf i > 50 Then
|
|
m_sToleranceTxBx = "50"
|
|
End If
|
|
Catch ex As Exception
|
|
m_sToleranceTxBx = ""
|
|
End Try
|
|
WritePrivateProfileString(S_COLORTOSIDEANG,
|
|
K_CTSA_TOLERANCE,
|
|
If(String.IsNullOrWhiteSpace(m_sToleranceTxBx) OrElse m_sToleranceTxBx.Equals("-"), "0", m_sToleranceTxBx),
|
|
m_sIniFile)
|
|
NotifyPropertyChanged("sToleranceTxBx")
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
Private Property m_sToleranceETxBx As String
|
|
Public Property sToleranceETxBx As String
|
|
Get
|
|
Return m_sToleranceETxBx
|
|
End Get
|
|
Set(value As String)
|
|
If value <> m_sToleranceETxBx Then
|
|
m_sToleranceETxBx = value
|
|
Dim i As Integer = 0
|
|
Try
|
|
i = Integer.Parse(m_sToleranceETxBx, Globalization.NumberStyles.Any)
|
|
If i < 0 Then
|
|
m_sToleranceETxBx = "0"
|
|
ElseIf i > 50 Then
|
|
m_sToleranceETxBx = "50"
|
|
End If
|
|
Catch ex As Exception
|
|
m_sToleranceETxBx = ""
|
|
End Try
|
|
WritePrivateProfileString(S_COLORTOENGRAVE,
|
|
K_CTE_TOLERANCE,
|
|
If(String.IsNullOrWhiteSpace(m_sToleranceETxBx) OrElse m_sToleranceETxBx.Equals("-"), "0", m_sToleranceETxBx),
|
|
m_sIniFile)
|
|
NotifyPropertyChanged("sToleranceETxBx")
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
#End Region ' Tolerance
|
|
|
|
#End Region ' COMMANDS"
|
|
|
|
'------------------------------------SideAngle----------------------------------------
|
|
Public Class ColorLsBxItem
|
|
Inherits VMBase
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
Private Property m_nCTSAIndex As Integer
|
|
Public Property nCTSAIndex As Integer
|
|
Get
|
|
Return m_nCTSAIndex
|
|
End Get
|
|
Set(value As Integer)
|
|
If value <> m_nCTSAIndex Then
|
|
m_nCTSAIndex = value
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
Private Property m_CTSAiChecked As Boolean
|
|
Public Property CTSAiChecked As Boolean
|
|
Get
|
|
Return m_CTSAiChecked
|
|
End Get
|
|
Set(value As Boolean)
|
|
If value <> m_CTSAiChecked Then
|
|
m_CTSAiChecked = value
|
|
CTSAiWriteString()
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
Private Property m_CTSAiBackground As Color3d
|
|
Public ReadOnly Property CTSAiBackground As Brush
|
|
Get
|
|
Dim x = New SolidColorBrush( Color.FromArgb( CByte( m_CTSAiBackground.A / 100 * 255),
|
|
CByte( m_CTSAiBackground.R),
|
|
CByte( m_CTSAiBackground.G),
|
|
CByte( m_CTSAiBackground.B)))
|
|
Return x
|
|
End Get
|
|
End Property
|
|
|
|
Private Property m_sCTSAiInclinazioneText As String
|
|
Public Property sCTSAiInclinazioneText As String
|
|
Get
|
|
Return m_sCTSAiInclinazioneText
|
|
End Get
|
|
Set(value As String)
|
|
If value <> m_sCTSAiInclinazioneText Then
|
|
Dim dVal As Double
|
|
If StringToDouble( value, dVal) Then
|
|
m_sCTSAiInclinazioneText = value
|
|
CTSAiWriteString()
|
|
else
|
|
m_sCTSAiInclinazioneText = ""
|
|
End If
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
Private Property m_sCTSAiTalloneText As String
|
|
Public Property sCTSAiTalloneText As String
|
|
Get
|
|
Return m_sCTSAiTalloneText
|
|
End Get
|
|
Set(value As String)
|
|
If value <> m_sCTSAiTalloneText Then
|
|
Dim dVal As Double
|
|
If StringToLen( value, dVal) Then
|
|
m_sCTSAiTalloneText = value
|
|
CTSAiWriteString()
|
|
else
|
|
m_sCTSAiTalloneText = ""
|
|
End If
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
' Definizione comandi
|
|
Private m_cmdChangeCTSAiColor As ICommand
|
|
|
|
#End Region ' FIELDS & PROPERTIES
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New(Index As Integer, IsActive As Boolean, Color As Color3d, Inclinazione As Double, Tallone As Double)
|
|
Me.m_nCTSAIndex = Index
|
|
Me.m_CTSAiChecked = IsActive
|
|
Me.m_CTSAiBackground = Color
|
|
Me.m_sCTSAiInclinazioneText = DoubleToString( Inclinazione, 3)
|
|
Me.m_sCTSAiTalloneText = LenToString( Tallone, 3)
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTOR
|
|
|
|
#Region "COMMANDS"
|
|
|
|
#Region "ChangeCTSAiColorCommand"
|
|
|
|
Public ReadOnly Property ChangeCTSAiColorCommand As ICommand
|
|
Get
|
|
If m_cmdChangeCTSAiColor Is Nothing Then
|
|
m_cmdChangeCTSAiColor = New Command(AddressOf ChangeCTSAiColor)
|
|
End If
|
|
Return m_cmdChangeCTSAiColor
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub ChangeCTSAiColor(ByVal param As Object)
|
|
' Creo dialogo colori
|
|
Dim ColorDlg As New System.Windows.Forms.ColorDialog
|
|
ColorDlg.FullOpen = True
|
|
ColorDlg.Color = m_CTSAiBackground.ToColor()
|
|
' Visualizzo dialogo
|
|
If ColorDlg.ShowDialog() <> DialogResult.OK Then Return
|
|
' Se ok, aggiorno
|
|
Dim NewCol As New Color3d(192, 192, 192, 100)
|
|
NewCol.FromColor(ColorDlg.Color)
|
|
' Imposto il colore scelto sul pulsante
|
|
m_CTSAiBackground = NewCol
|
|
CTSAiWriteString()
|
|
NotifyPropertyChanged("CTSAiBackground")
|
|
End Sub
|
|
|
|
#End Region ' ChangeCTSAiColorCommand
|
|
|
|
#End Region ' COMMANDS
|
|
|
|
#Region "METHODS"
|
|
|
|
Private Sub CTSAiWriteString()
|
|
' Sistemo i parametri double
|
|
Dim dSlant As Double = 0 : StringToDouble( sCTSAiInclinazioneText, dSlant)
|
|
Dim sSlant As String = DoubleToString( dSlant, 3)
|
|
Dim dHeel As Double = 0 : StringToLen( sCTSAiTalloneText, dHeel)
|
|
Dim sHeel As String = DoubleToString( dHeel, 3)
|
|
' Costruisco la stringa da mettere nell'INI
|
|
Dim sData As String = m_CTSAiBackground.R.ToString() & "," &
|
|
m_CTSAiBackground.G.ToString() & "," &
|
|
m_CTSAiBackground.B.ToString() & "," &
|
|
sSlant & "," &
|
|
sHeel & "," &
|
|
If( CTSAiChecked, "1", "0")
|
|
WritePrivateProfileString( S_COLORTOSIDEANG, K_CTSA & nCTSAIndex.ToString(), sData, m_sIniFile)
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
End Class
|
|
|
|
'-------------------------------------Engrave-----------------------------------------
|
|
Public Class ColorLsEngraveBxItem
|
|
Inherits VMBase
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
Private Property m_nCTEIndex As Integer
|
|
Public Property nCTEIndex As Integer
|
|
Get
|
|
Return m_nCTEIndex
|
|
End Get
|
|
Set(value As Integer)
|
|
If value <> m_nCTEIndex Then
|
|
m_nCTEIndex = value
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
Private Property m_CTEiChecked As Boolean
|
|
Public Property CTEiChecked As Boolean
|
|
Get
|
|
Return m_CTEiChecked
|
|
End Get
|
|
Set(value As Boolean)
|
|
If value <> m_CTEiChecked Then
|
|
m_CTEiChecked = value
|
|
CTEiWriteString()
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
Private Property m_CTEiBackground As Color3d
|
|
Public ReadOnly Property CTEiBackground As Brush
|
|
Get
|
|
Dim x = New SolidColorBrush(Color.FromArgb(CByte(m_CTEiBackground.A / 100 * 255),
|
|
CByte(m_CTEiBackground.R),
|
|
CByte(m_CTEiBackground.G),
|
|
CByte(m_CTEiBackground.B)))
|
|
Return x
|
|
End Get
|
|
End Property
|
|
|
|
Private Property m_sCTEiAffondamentoText As String
|
|
Public Property sCTEiAffondamentoText As String
|
|
Get
|
|
Return m_sCTEiAffondamentoText
|
|
End Get
|
|
Set(value As String)
|
|
If value <> m_sCTEiAffondamentoText Then
|
|
Dim dVal As Double
|
|
If StringToDouble(value, dVal) Then
|
|
m_sCTEiAffondamentoText = value
|
|
CTEiWriteString()
|
|
Else
|
|
m_sCTEiAffondamentoText = ""
|
|
End If
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
Private Property m_sCTEiLarghezzaText As String
|
|
Public Property sCTEiLarghezzaText As String
|
|
Get
|
|
Return m_sCTEiLarghezzaText
|
|
End Get
|
|
Set(value As String)
|
|
If value <> m_sCTEiLarghezzaText Then
|
|
Dim dVal As Double
|
|
If StringToLen(value, dVal) Then
|
|
m_sCTEiLarghezzaText = value
|
|
CTEiWriteString()
|
|
Else
|
|
m_sCTEiLarghezzaText = ""
|
|
End If
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
' Definizione comandi
|
|
Private m_cmdChangeCTEiColor As ICommand
|
|
|
|
#End Region ' FIELDS & PROPERTIES
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New(Index As Integer, IsActive As Boolean, Color As Color3d, Affondamento As Double, Larghezza As Double)
|
|
Me.m_nCTEIndex = Index
|
|
Me.m_CTEiChecked = IsActive
|
|
Me.m_CTEiBackground = Color
|
|
Me.m_sCTEiAffondamentoText = DoubleToString(Affondamento, 3)
|
|
Me.m_sCTEiLarghezzaText = LenToString(Larghezza, 3)
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTOR
|
|
|
|
#Region "COMMANDS"
|
|
|
|
#Region "ChangeCTSAiColorCommand"
|
|
|
|
Public ReadOnly Property ChangeCTEiColorCommand As ICommand
|
|
Get
|
|
If m_cmdChangeCTEiColor Is Nothing Then
|
|
m_cmdChangeCTEiColor = New Command(AddressOf ChangeCTEiColor)
|
|
End If
|
|
Return m_cmdChangeCTEiColor
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub ChangeCTEiColor(ByVal param As Object)
|
|
' Creo dialogo colori
|
|
Dim ColorDlg As New System.Windows.Forms.ColorDialog
|
|
ColorDlg.FullOpen = True
|
|
ColorDlg.Color = m_CTEiBackground.ToColor()
|
|
' Visualizzo dialogo
|
|
If ColorDlg.ShowDialog() <> DialogResult.OK Then Return
|
|
' Se ok, aggiorno
|
|
Dim NewCol As New Color3d(192, 192, 192, 100)
|
|
NewCol.FromColor(ColorDlg.Color)
|
|
' Imposto il colore scelto sul pulsante
|
|
m_CTEiBackground = NewCol
|
|
CTEiWriteString()
|
|
NotifyPropertyChanged("CTEiBackground")
|
|
End Sub
|
|
|
|
#End Region ' ChangeCTSAiColorCommand
|
|
|
|
#End Region ' COMMANDS
|
|
|
|
#Region "METHODS"
|
|
|
|
Private Sub CTEiWriteString()
|
|
' Sistemo i parametri double
|
|
Dim dAff As Double = 0 : StringToDouble(sCTEiAffondamentoText, dAff)
|
|
Dim sAff As String = DoubleToString(dAff, 3)
|
|
Dim dLar As Double = 0 : StringToLen(sCTEiLarghezzaText, dLar)
|
|
Dim sLar As String = DoubleToString(dLar, 3)
|
|
' Costruisco la stringa da mettere nell'INI
|
|
Dim sData As String = m_CTEiBackground.R.ToString() & "," &
|
|
m_CTEiBackground.G.ToString() & "," &
|
|
m_CTEiBackground.B.ToString() & "," &
|
|
sAff & "," &
|
|
sLar & "," &
|
|
If(CTEiChecked, "1", "0")
|
|
WritePrivateProfileString(S_COLORTOENGRAVE, K_CTE & nCTEIndex.ToString(), sData, m_sIniFile)
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
End Class
|
|
|
|
End Class
|