Nicola Pievani
93bc8aaf9c
-> correzione annullamento nuovo assemblato, -> gestione automatico del ricalcolo della ferramenta in caso di inversione delle ante (cambio Swing) -> evidenziazione dei parametri modificati (sui telai) e segnalazione in caso di ricalcolo (si: ricalcolo, no: ognora il ricalcolo, annulla: ripristina l'ultimo valore inserito) -> aggiunta dei bottoni per il ricalcolo su ogni componente della porta (solo se la componente ha un riferimento valido)
2142 lines
102 KiB
VB.net
2142 lines
102 KiB
VB.net
Imports System.ComponentModel
|
|
Imports System.Collections.ObjectModel
|
|
Imports System.IO
|
|
Imports EgtUILib
|
|
Imports EgtWPFLib5
|
|
|
|
Public Class Hardware
|
|
Implements INotifyPropertyChanged
|
|
|
|
Friend Shared DoRefresh As Boolean = True
|
|
Friend Shared FirstSelection As Boolean = True
|
|
Dim ReLoading As Boolean = False
|
|
Dim bTypeListExist As Boolean = False
|
|
Dim m_GroupChapterName As New ObservableCollection(Of String)
|
|
Dim ErrorReading As String = String.Empty
|
|
Dim BackupDir As String = IniFile.m_CompoDir & ConstGen.BACKUPDIR
|
|
Dim bNewHardware As Boolean = False
|
|
Dim bIsFrame As Boolean = False
|
|
|
|
Dim CurrHardwareFilePath As String = String.Empty
|
|
|
|
Dim sLastTemplate As String = String.Empty
|
|
Dim m_LastDirectory As CompoBrandDir
|
|
|
|
' Path StdTemplate.ini
|
|
Private m_StdTemplate As String = String.Empty ' il percorso viene aggiornato ad ogni scelta dell'hardware in LoadType()
|
|
Public ReadOnly Property StdTemplate As String
|
|
Get
|
|
Return m_StdTemplate
|
|
End Get
|
|
End Property
|
|
|
|
' i parametetri sono suddivisi in sottocapitolli (gruppi di parametri)
|
|
Private m_GroupChapters As New ObservableCollection(Of Compo)
|
|
Public Property GroupChapters As ObservableCollection(Of Compo)
|
|
Get
|
|
Return m_GroupChapters
|
|
End Get
|
|
Set(value As ObservableCollection(Of Compo))
|
|
m_GroupChapters = value
|
|
End Set
|
|
End Property
|
|
|
|
#Region "BRAND"
|
|
|
|
Public ReadOnly Property BrandList As ObservableCollection(Of CompoBrandDir)
|
|
Get
|
|
If Not IsNothing(m_HardwareGeneral) Then
|
|
Return m_HardwareGeneral.HardwareFolderList
|
|
Else
|
|
Return Nothing
|
|
End If
|
|
End Get
|
|
End Property
|
|
|
|
Private m_SelBrand As CompoBrandDir
|
|
Public Property SelBrand As CompoBrandDir
|
|
Get
|
|
Return m_SelBrand
|
|
End Get
|
|
Set(value As CompoBrandDir)
|
|
If Not IsNothing(m_SelBrand) Then
|
|
' sto carciando la cartella per la prima volta
|
|
m_LastDirectory = New CompoBrandDir(m_SelBrand, m_HardwareGeneral.Path)
|
|
End If
|
|
|
|
If SaveControl() = SaveResult.nCancel Then
|
|
RefreshTemplateListEgtDOORCreator()
|
|
Return
|
|
End If
|
|
|
|
If IsNothing(value) Then
|
|
m_SelBrand = m_LastDirectory
|
|
End If
|
|
|
|
' se decido di procedere allora elimino il file temporaneo
|
|
DeleteTempFile()
|
|
' verifico che la selezione abbia senso, altrimenti mantengo la selezione precedente
|
|
If Not IsNothing(value) Then
|
|
m_SelBrand = value
|
|
ElseIf Not IsNothing(value) AndAlso Not Directory.Exists(value.ModelDir) Then
|
|
' 50542 = {0}: Directory does not exist!
|
|
ErrorReading = String.Format(EgtMsg(50542),value.ModelDir)
|
|
RefreshTemplateListEgtDOORCreator()
|
|
Else
|
|
Return
|
|
End If
|
|
|
|
' se l'oggetto Brand esiste
|
|
If Not IsNothing(m_SelBrand) Then
|
|
' riconosce il tipo di Hardaware in base alla cartella in cui è slavato
|
|
If m_SelBrand.ModelDir.ToLower.Contains(FRAME_FOLDER) Then
|
|
bIsFrame = True
|
|
Map.refHardwarePageVM.GenericPart = Map.refHardwarePageVM.Jamb
|
|
Else
|
|
bIsFrame = False
|
|
Map.refHardwarePageVM.GenericPart = Map.refHardwarePageVM.Door
|
|
End If
|
|
|
|
' Carico lista template (la lista dei file lua)
|
|
TemplateList = m_SelBrand.ModelFileList
|
|
DoRefresh = True
|
|
' verifico che la lista contenga almeno un file
|
|
If m_SelBrand.ModelFileList.Count > 0 Then
|
|
' verifico se esisteva un file selzionato, e che quetso esista ancora
|
|
If Not String.IsNullOrWhiteSpace(SelTemplate) AndAlso File.Exists(m_SelBrand.ModelDir & "\" & SelTemplate & LUA_EXTENSION) Then
|
|
' ricarico l'elemento dalla lista
|
|
For Each ItemFile In m_SelBrand.ModelFileList
|
|
If ItemFile = m_SelTemplate Then
|
|
SelTemplate = ItemFile
|
|
Exit For
|
|
End If
|
|
Next
|
|
ElseIf File.Exists(m_SelBrand.ModelDir & "\" & m_SelBrand.ModelFileList(0) & LUA_EXTENSION) Then
|
|
' se non esiste nessuna selezione carico il primo file della lista
|
|
SelTemplate = m_SelBrand.ModelFileList(0)
|
|
Else
|
|
' se i controlli precedenti falliscono allora restituisco stringa vuota
|
|
SelTemplate = String.Empty
|
|
'Map.refSceneManagerVM.RefreshBtn()
|
|
End If
|
|
Else
|
|
SelTemplate = String.Empty
|
|
'Map.refSceneManagerVM.RefreshBtn()
|
|
End If
|
|
Else
|
|
SelTemplate = String.Empty
|
|
'Map.refSceneManagerVM.RefreshBtn()
|
|
End If
|
|
' termine della selezione
|
|
NotifyPropertyChanged("SelBrand")
|
|
End Set
|
|
End Property
|
|
|
|
#End Region ' Brand
|
|
|
|
#Region "TEMPLATE"
|
|
|
|
Private m_HardwareGeneral As CompoType
|
|
Public Property HardwareGeneral As CompoType
|
|
Get
|
|
Return m_HardwareGeneral
|
|
End Get
|
|
Set(value As CompoType)
|
|
m_HardwareGeneral = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_TemplateList As New ObservableCollection(Of String)
|
|
Public Property TemplateList As ObservableCollection(Of String)
|
|
Get
|
|
Return m_TemplateList
|
|
End Get
|
|
Set(value As ObservableCollection(Of String))
|
|
m_TemplateList = value
|
|
DoRefresh = False
|
|
NotifyPropertyChanged("TemplateList")
|
|
End Set
|
|
End Property
|
|
|
|
Private m_SelTemplate As String = ""
|
|
' questa proprietà non è usata nel momento in cui generiamo un nuovo Hardware
|
|
Public Property SelTemplate As String
|
|
Get
|
|
Return m_SelTemplate
|
|
End Get
|
|
Set(value As String)
|
|
' salvo l'ultimo valore registrato
|
|
sLastTemplate = m_SelTemplate
|
|
If m_SelTemplate = value AndAlso Not IsNothing(m_LastDirectory) AndAlso m_SelBrand.ModelDirGraphic = m_LastDirectory.ModelDirGraphic Then Return
|
|
m_SelTemplate = value
|
|
If SaveControl() = SaveResult.nCancel Then
|
|
Application.Current.Dispatcher.BeginInvoke(New Action(Sub()
|
|
m_SelTemplate = sLastTemplate
|
|
NotifyPropertyChanged("SelTemplate")
|
|
End Sub), System.Windows.Threading.DispatcherPriority.ContextIdle, Nothing)
|
|
NotifyPropertyChanged("TemplateList")
|
|
Return
|
|
End If
|
|
sLastTemplate = m_SelTemplate
|
|
' elimino il file temporaneo
|
|
DeleteTempFile()
|
|
' pulisco la lista dei capitoli per il nuovo Hardware
|
|
ClearGroupChapters()
|
|
' controllo che la selezione abbia restituito un nome
|
|
If Not String.IsNullOrWhiteSpace(m_SelTemplate) Then
|
|
If bTypeListExist Then
|
|
' se restituisce dei problemi in fase di caricamento del file allora eseguo un reload delle liste
|
|
If Not SetTypeFromTemplate(m_SelTemplate) Then
|
|
m_SelTemplate = String.Empty
|
|
ShowErrorMsg()
|
|
RefreshTemplateListEgtDOORCreator()
|
|
Return
|
|
End If
|
|
NotifyPropertyChanged("VisibilityType")
|
|
End If
|
|
FirstSelection = True ' Comunico grafica di eseguire lo zoom
|
|
ReadChapterTemplate() ' Rileggo i parametri del SetdTemplate
|
|
ReadTemplate(m_SelTemplate) ' Carico i dati del template
|
|
' Map.refSceneManagerVM.RefreshBtn()
|
|
End If
|
|
NotifyPropertyChanged("SelTemplate")
|
|
LoadSwingFromTemplate()
|
|
Map.refSceneManagerVM.RefreshBtn()
|
|
' NotifyPropertyChanged("TemplateList")
|
|
ShowErrorMsg()
|
|
End Set
|
|
End Property
|
|
|
|
Private m_VisibilityTemplate As Visibility = Visibility.Visible
|
|
Public Property VisibilityTemplate As Visibility
|
|
Get
|
|
Return m_VisibilityTemplate
|
|
End Get
|
|
Set(value As Visibility)
|
|
m_VisibilityTemplate = value
|
|
End Set
|
|
End Property
|
|
|
|
#End Region ' Name-Template
|
|
|
|
#Region "TYPELIST"
|
|
|
|
Private m_TypeList As New List(Of TypeHardware)
|
|
Public Property TypeList As List(Of TypeHardware)
|
|
Get
|
|
Return m_TypeList
|
|
End Get
|
|
Set(value As List(Of TypeHardware))
|
|
m_TypeList = value
|
|
NotifyPropertyChanged("TypeList")
|
|
End Set
|
|
End Property
|
|
|
|
' se non dovessere esistere un tipo, al momento del salvataggio cerca il file con nome Template ed estensione .Templ
|
|
Private m_SelType As TypeHardware = New TypeHardware(TYPE_STD_TEMPLATE, TYPE_STD_TEMPLATE_INI)
|
|
Public Property SelType As TypeHardware
|
|
Get
|
|
Return m_SelType
|
|
End Get
|
|
Set(value As TypeHardware)
|
|
' verifico se tipo è cambiato -- OrElse value.Name <> m_SelType.Name
|
|
Dim bChanged As Boolean = If(Not IsNothing(m_SelType), value.NameINI <> m_SelType.NameINI, True)
|
|
m_SelType = value
|
|
' se cambiato carico il suo progetto con quotature/suggerimenti
|
|
If bChanged Then Map.refHardwareHelpSceneHostV.LoadHelpProject()
|
|
NotifyPropertyChanged("SelType")
|
|
End Set
|
|
End Property
|
|
|
|
Private m_VisibilityType As Visibility = Visibility.Collapsed
|
|
Public Property VisibilityType As Visibility
|
|
Get
|
|
Return m_VisibilityType
|
|
End Get
|
|
Set(value As Visibility)
|
|
m_VisibilityType = value
|
|
NotifyPropertyChanged("VisibilityType")
|
|
End Set
|
|
End Property
|
|
|
|
' se non viene modificata il tipo non può essere modificato
|
|
Private m_IsEnableType As Boolean = False
|
|
Public Property IsEnableType As Boolean
|
|
Get
|
|
If Not VisibilityType = Visibility.Visible Then Return False
|
|
Return m_IsEnableType
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_IsEnableType = value
|
|
NotifyPropertyChanged("IsEnableType")
|
|
End Set
|
|
End Property
|
|
|
|
#End Region ' TypeList
|
|
|
|
#Region "MATCHING"
|
|
'creo il capitolo "Match File"
|
|
Private Function CreateChapterMatching() As Compo
|
|
If Me.SelBrand.ModelDir.ToLower.Contains(FRAME_FOLDER) Then Return Nothing
|
|
|
|
' creo la classe che ospiterà gli oggetti di tipo ComboBox
|
|
Dim CompoMatch As New Compo(m_HardwareGeneral, True)
|
|
CompoMatch.TemplateDDFName = MATCHING_FILE_TEMPLATE
|
|
CompoMatch.TemplateName = MATCHING_FILE_TEMPLATE
|
|
' creo le liste delle configurazioni
|
|
Dim LocalHardwareListName As New ObservableCollection(Of String)
|
|
Dim LocalHardwareListDDFName As New ObservableCollection(Of String)
|
|
' se questo file non esiste dovrei interrompere il caricamento?
|
|
If File.Exists(m_HardwareGeneral.Path & "\" & MATCHING_FILE_NAME) Then
|
|
LocalHardwareListName.Add(MATCHING_FILE_AUTOMATIC)
|
|
LocalHardwareListDDFName.Add(MATCHING_FILE_AUTOMATIC)
|
|
End If
|
|
' aggiungo alla lista il riferiemento "None"
|
|
LocalHardwareListName.Add(MATCHING_FILE_NONE)
|
|
LocalHardwareListDDFName.Add(MATCHING_FILE_NONE)
|
|
' ricerco il capitolo [Matching] nel file di configurazione della componente
|
|
' carcio la lista "LocalHardwareListDDFName" l'elemco
|
|
IniFile.GetPrivateProfileMatchHardware(ConstCompo.MATCHING_INI, "List", LocalHardwareListDDFName, LocalHardwareListName, m_HardwareGeneral.Path & "\" & CONFIGINI_FILE_NAME)
|
|
' verifico se esistano cartelle con estensione ".Frame" nel direttorio della componente
|
|
If m_HardwareGeneral.FrameFolderList.Count > 0 Then
|
|
' allora aggiungo alla lista il riferiento della compoenente stessa
|
|
LocalHardwareListName.Add(m_HardwareGeneral.Name)
|
|
LocalHardwareListDDFName.Add(m_HardwareGeneral.DDFName)
|
|
End If
|
|
' rimuovo dall'elenco eventuali cartelle che non contengano cartelle con estensione ".Frame"
|
|
For Each Item In Map.refCompoPanelHardwareVM.CompoTypeList
|
|
For ElemntIndex As Integer = LocalHardwareListDDFName.Count - 1 To 0 Step -1
|
|
If Item.DDFName = LocalHardwareListDDFName(ElemntIndex) Then
|
|
' se non esistono direttori ".Frame" nel cartella indicata allora rimuovo dalla lista
|
|
If Item.FrameFolderList.Count < 1 Then
|
|
Dim Index As Integer = LocalHardwareListName.IndexOf(Item.Name)
|
|
LocalHardwareListName.RemoveAt(Index)
|
|
LocalHardwareListDDFName.RemoveAt(Index)
|
|
Exit For
|
|
End If
|
|
End If
|
|
Next
|
|
Next
|
|
If LocalHardwareListDDFName.Count < 1 Then Return Nothing
|
|
' aggiungo il primo parametro "Matching" (lista appena costruita)
|
|
Dim ComboBoxMatch As New ComboBoxParam(ConstCompo.MATCHING_INI, EgtMsg(50224), CompoMatch, LocalHardwareListName, LocalHardwareListDDFName, LocalHardwareListName(0))
|
|
CompoMatch.CompoParamList.Add(ComboBoxMatch)
|
|
If OptionModule.m_ConfigurationSoftware = ConfigType.Door Then CompoMatch.GroupVisibilityChapter = Visibility.Collapsed
|
|
Return CompoMatch
|
|
End Function
|
|
|
|
' Definita la componete che vogliamo associare restituice l'elenco di tutti i direttori con estensione ".Frame"
|
|
Public Function SelectMatching(ByRef ComboBoxMatch As ComboBoxParam, ByRef CompoMatch As Compo) As ObservableCollection(Of CompoBrandDir)
|
|
Dim BrandList As New ObservableCollection(Of CompoBrandDir)
|
|
For Each Item In Map.refCompoPanelHardwareVM.CompoTypeList
|
|
If Item.Name = ComboBoxMatch.SelItem Then
|
|
BrandList = Item.FrameFolderList
|
|
Exit For
|
|
End If
|
|
Next
|
|
Return BrandList
|
|
End Function
|
|
|
|
' a seconda della scelta fatta nel passaggio precedente Aggiorna la grafica per mostrare l'elenco dei brand e dei file
|
|
Public Sub SelectFileMatching(ComboBoxMatch As ComboBoxParam, BrandList As ObservableCollection(Of CompoBrandDir))
|
|
' eseguo una copia locale della componente Matching
|
|
Dim CompoMatch As Compo = ComboBoxMatch.CurrCompo
|
|
Dim BrandListGraphic As New ObservableCollection(Of String)
|
|
' estrapolo dalla lista del BrandList
|
|
For Each Item In Map.refCompoPanelHardwareVM.CompoTypeList
|
|
If Item.Name = ComboBoxMatch.SelItem Then
|
|
BrandList = Item.FrameFolderList
|
|
For Each Element In BrandList
|
|
BrandListGraphic.Add(Element.ModelDirGraphic)
|
|
Next
|
|
Exit For
|
|
End If
|
|
Next
|
|
' prima di procedere ripulisco completamente l'elenco
|
|
If CompoMatch.CompoParamList.Count > 1 Then
|
|
CompoMatch.CompoParamList.RemoveAt(2)
|
|
CompoMatch.CompoParamList.RemoveAt(1)
|
|
End If
|
|
' se la lista dei brand non è vuota e la lista dei file non è vuota allora mostro a video gli elenchi aggiornati
|
|
If BrandList.Count > 0 AndAlso BrandList(0).ModelFileList.Count > 0 Then
|
|
Dim ComboBoxBrand As New ComboBoxParam(ConstCompo.BRAND_INI, EgtMsg(50225), CompoMatch, BrandListGraphic, BrandListGraphic, BrandListGraphic(0))
|
|
CompoMatch.CompoParamList.Add(ComboBoxBrand)
|
|
Dim FileList As New ObservableCollection(Of String)
|
|
FileList = BrandList(0).ModelFileList
|
|
Dim ComboBoxTemplate As New ComboBoxParam(ConstCompo.BRAND_FILE_INI, EgtMsg(50226), CompoMatch, FileList, FileList, FileList(0))
|
|
CompoMatch.CompoParamList.Add(ComboBoxTemplate)
|
|
Else
|
|
|
|
End If
|
|
End Sub
|
|
|
|
' dalla scelta del brand restituisce la lista dei file corretta
|
|
Public Sub SelectBrandMatching(ComboBoxBrand As ComboBoxParam)
|
|
' eseguo una copia della componente
|
|
Dim CurrCompo As Compo = ComboBoxBrand.CurrCompo
|
|
' se il parametro che sto caricando non Brand allora esco
|
|
If CurrCompo.CompoParamList.Count < 2 Then Return
|
|
' esguo una copia del parametro Matching
|
|
Dim ComboBoxMatch As ComboBoxParam = DirectCast(CurrCompo.CompoParamList(0), ComboBoxParam)
|
|
' definisco le liste dei brand (assegnata la componete di riferimento)
|
|
Dim BrandListGraphic As New ObservableCollection(Of String)
|
|
Dim BrandList As New ObservableCollection(Of CompoBrandDir)
|
|
' ricavo l'elenco dei brand
|
|
For Each Item In Map.refCompoPanelHardwareVM.CompoTypeList
|
|
If Item.Name = ComboBoxMatch.SelItem Then
|
|
BrandList = Item.FrameFolderList
|
|
For Each Element In BrandList
|
|
BrandListGraphic.Add(Element.ModelDirGraphic)
|
|
Next
|
|
Exit For
|
|
End If
|
|
Next
|
|
Dim Index As Integer = -1
|
|
For Each Item In BrandList
|
|
If Item.ModelDirGraphic = ComboBoxBrand.SelItem Then
|
|
Index = BrandList.IndexOf(Item)
|
|
Exit For
|
|
End If
|
|
Next
|
|
If Index = -1 Then Return
|
|
If CurrCompo.CompoParamList.Count > 1 Then
|
|
CurrCompo.CompoParamList.RemoveAt(2)
|
|
End If
|
|
Dim FileList As New ObservableCollection(Of String)
|
|
FileList = BrandList(Index).ModelFileList
|
|
Dim ComboBoxTemplate As New ComboBoxParam(ConstCompo.BRAND_FILE_INI, EgtMsg(50226), CurrCompo, FileList, FileList, FileList(0))
|
|
CurrCompo.CompoParamList.Add(ComboBoxTemplate)
|
|
End Sub
|
|
|
|
#End Region ' Matching
|
|
|
|
#Region "GENERAL FUNCTION"
|
|
|
|
#Region "Caricamento"
|
|
|
|
Public Function ShowErrorMsg() As Boolean
|
|
If Not String.IsNullOrEmpty(ErrorReading) Then
|
|
MessageBox.Show(ErrorReading, EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Error)
|
|
End If
|
|
ErrorReading = String.Empty
|
|
Return True
|
|
End Function
|
|
|
|
' elimina il file temporaneo CurrHardware.lua
|
|
Public Function DeleteTempFile() As Boolean
|
|
If String.IsNullOrWhiteSpace(CurrHardwareFilePath) Then Return False
|
|
Try
|
|
File.Delete(CurrHardwareFilePath)
|
|
Catch ex As Exception
|
|
End Try
|
|
Return True
|
|
Return True
|
|
End Function
|
|
|
|
' Carica il nome della Componente, La lista dei template, La lista dei tipi (Config.ini)
|
|
Public Sub LoadTemplate(ByRef CurrCompoType As CompoType)
|
|
' eseguo un aggiornamento della lista
|
|
CurrCompoType.LoadListTemplate()
|
|
' carico il general dell'hardware
|
|
m_HardwareGeneral = CurrCompoType.DeepCopy()
|
|
If m_HardwareGeneral.HardwareFolderList.Count = 0 Then
|
|
Dim CurrFolder = New CompoBrandDir(m_HardwareGeneral.Path, Path.GetFileName(m_HardwareGeneral.Path))
|
|
m_HardwareGeneral.HardwareFolderList.Add(CurrFolder)
|
|
End If
|
|
NotifyPropertyChanged("BrandList")
|
|
' carico la lista dei Type
|
|
bTypeListExist = LoadType()
|
|
If Not bTypeListExist Then
|
|
'SelBrand = Nothing
|
|
SelBrand = BrandList(0)
|
|
ElseIf BrandList.Count > 0 Then
|
|
SelBrand = BrandList(0)
|
|
Else
|
|
EgtNewFile()
|
|
End If
|
|
Dim ErrorList As String = String.Empty
|
|
If EgtUILib.GetPrivateProfileInt(S_TEMPLATE, K_ISACTIVE, 1, CurrCompoType.Path & "\" & CONFIGINI_FILE_NAME) = 0 Then
|
|
VisibilityTemplate = Visibility.Collapsed
|
|
NotifyPropertyChanged("VisibilityTemplate")
|
|
End If
|
|
End Sub
|
|
|
|
' carico lo swing da assegnare al part
|
|
Private Sub LoadSwingFromTemplate()
|
|
m_StdTemplate = m_HardwareGeneral.Path & "\" & STD_TEMPLATE
|
|
If Not File.Exists(m_StdTemplate) Then Return
|
|
Dim SwingTemplate As String = String.Empty
|
|
If Not IsNothing(Map.refHardwarePageVM.GenericPart) And Not String.IsNullOrEmpty(Map.refHardwarePageVM.GenericPart.Swing) Then
|
|
SwingTemplate = Map.refHardwarePageVM.GenericPart.Swing
|
|
Else
|
|
SwingTemplate = "RH"
|
|
End If
|
|
IniFile.StdTemplateGetPrivateProfileString("Hardware", "Swing", SwingTemplate, SwingTemplate)
|
|
Map.refHardwarePageVM.GenericPart.SetSwing(SwingTemplate)
|
|
If bIsFrame Then
|
|
IniFile.StdTemplateGetPrivateProfileString("Hardware", "SwingFrame", "RH", SwingTemplate)
|
|
Map.refHardwarePageVM.GenericPart.SetSwing(SwingTemplate)
|
|
|
|
' per gestire in futuro lo swing delle ante
|
|
'Dim Local_Jamb As Part = Map.refHardwarePageVM.GenericPart
|
|
'If Not IsNothing(m_JambL) AndAlso Not IsNothing(m_JambR) AndAlso m_JambL.SwingAlias.Name.Contains("LH") Then
|
|
' m_JambL.TypePart = ConstGen.PART_FRAME_LEFT & ConstGen.HINGE
|
|
' m_JambR.TypePart = ConstGen.PART_FRAME_RIGHT & ConstGen.LOCK
|
|
'Else
|
|
' If Not IsNothing(m_JambL) Then m_JambL.TypePart = ConstGen.PART_FRAME_LEFT & ConstGen.LOCK
|
|
' If Not IsNothing(m_JambR) Then m_JambR.TypePart = ConstGen.PART_FRAME_RIGHT & ConstGen.HINGE
|
|
'End If
|
|
'If Not IsNothing(m_JambB) Then m_JambB.TypePart = ConstGen.PART_FRAME_BOTTOM & ConstGen.BOTTOM
|
|
'If Not IsNothing(m_JambT) Then m_JambT.TypePart = ConstGen.PART_FRAME_TOP & ConstGen.TOP
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub FindSideJamb()
|
|
If Map.refHardwarePageVM.GenericPart.CompoList.Count < 1 Then Return
|
|
If String.IsNullOrEmpty(HardwareGeneral.JambSide) Then
|
|
For Each Item In Map.refHardwarePageVM.GenericPart.CompoList(0).CompoParamList
|
|
If TypeOf Item Is ComboBoxParam AndAlso
|
|
Item.DDFName = "side" Then
|
|
Dim CBoxPar As ComboBoxParam = DirectCast(Item, ComboBoxParam)
|
|
HardwareGeneral.SetJambSide(CBoxPar.SelItem)
|
|
Exit For
|
|
End If
|
|
Next
|
|
End If
|
|
If HardwareGeneral.JambSide.ToLower.Contains("hinge") Then
|
|
Map.refHardwarePageVM.GenericPart.TypePart = PART_FRAME_LEFT & HINGE
|
|
Map.refHardwarePageVM.GenericPart.SetWidth(OptionModule.m_WidthJamb)
|
|
Map.refHardwarePageVM.GenericPart.SetHeight(OptionModule.m_Height)
|
|
Return
|
|
ElseIf HardwareGeneral.JambSide.ToLower.Contains("lock") Then
|
|
Map.refHardwarePageVM.GenericPart.TypePart = PART_FRAME_LEFT & LOCK
|
|
Map.refHardwarePageVM.GenericPart.SetWidth(OptionModule.m_WidthJamb)
|
|
Map.refHardwarePageVM.GenericPart.SetHeight(OptionModule.m_Height)
|
|
Return
|
|
ElseIf HardwareGeneral.JambSide.ToLower.Contains("top") Then
|
|
Map.refHardwarePageVM.GenericPart.TypePart = PART_FRAME_TOP & TOP
|
|
Map.refHardwarePageVM.GenericPart.SetWidth(OptionModule.m_Width)
|
|
Map.refHardwarePageVM.GenericPart.SetHeight(OptionModule.m_ThicknessHead)
|
|
Return
|
|
ElseIf HardwareGeneral.JambSide.ToLower.Contains("bottom") Then
|
|
Map.refHardwarePageVM.GenericPart.TypePart = PART_FRAME_BOTTOM & BOTTOM
|
|
Map.refHardwarePageVM.GenericPart.SetWidth(OptionModule.m_Width)
|
|
Map.refHardwarePageVM.GenericPart.SetHeight(OptionModule.m_ThicknessHead)
|
|
Return
|
|
End If
|
|
|
|
End Sub
|
|
|
|
' carico la lista dei tipi --> devo stampare gli errori
|
|
Private Function LoadType() As Boolean
|
|
' costruisco la Path del template da leggere
|
|
m_StdTemplate = m_HardwareGeneral.Path & "\" & STD_TEMPLATE
|
|
If Not File.Exists(m_StdTemplate) Then Return False
|
|
Dim List As New List(Of String) ' lista temporanea "1/Mort"
|
|
If IniFile.StdTemplateGetPrivateProfileList(S_HARDWARE, K_TYPE, List) Then
|
|
m_VisibilityType = Visibility.Visible ' rendo visibile la lista
|
|
' leggo nomi
|
|
Dim ArrayNameSplit(1) As String
|
|
For IndexListType As Integer = 0 To List.Count - 1
|
|
ArrayNameSplit = List(IndexListType).Split("/"c)
|
|
If IsNumeric(ArrayNameSplit(0)) Then
|
|
m_TypeList.Add(New TypeHardware(ArrayNameSplit(1), ArrayNameSplit(0)))
|
|
Else
|
|
' In file StdTempate.ini is missing numeric param in [Type]
|
|
ErrorReading = EgtMsg(50171) & vbCrLf
|
|
m_TypeList.Add(New TypeHardware(EgtMsg(50101), "0"))
|
|
Return False ' interrompo la lettura
|
|
End If
|
|
Next
|
|
' se esiste una lista di nomi di tipi carico di default il primo che trovo
|
|
If m_TypeList.Count > 0 Then SelType = m_TypeList(0)
|
|
'NotifyPropertyChanged("TypeListName")
|
|
Else
|
|
m_TypeList.Add(New TypeHardware(TYPE_STD_TEMPLATE, TYPE_STD_TEMPLATE_INI))
|
|
m_VisibilityType = Visibility.Collapsed
|
|
Return False ' se la lista è vuota restituisco falso
|
|
End If
|
|
Return True
|
|
End Function
|
|
|
|
' setta il valore del template --> devo stampare gli errori
|
|
Private Function SetTypeFromTemplate(value As String) As Boolean
|
|
' carico di Default il valore 1
|
|
For IndexListType As Integer = 0 To TypeList.Count - 1
|
|
If TypeList(IndexListType).NameINI = "1" Then
|
|
SelType = TypeList(IndexListType)
|
|
VisibilityType = Visibility.Visible
|
|
NotifyPropertyChanged("SelType")
|
|
Exit For
|
|
End If
|
|
Next
|
|
' inizio la lettura del file lua selezionato
|
|
Dim CurrItemPath As String = CurrPath()
|
|
Dim ErrorMsg As String = String.Empty
|
|
' se il file ha estensione nge
|
|
If Path.HasExtension(CurrItemPath) AndAlso Path.GetExtension(CurrItemPath).ToLower = NGE_EXTENSION Then
|
|
' File does not exist
|
|
If Not File.Exists(CurrItemPath) Then ErrorReading = EgtMsg(50172) & vbCrLf : Return False ' controllo che esiste il file altrimenti esco
|
|
Dim ConfigDefault As String = String.Empty ' configurazione del template
|
|
EgtUILib.GetPrivateProfileString(S_NGECONFIG, K_DEFAULT, "", ConfigDefault, m_HardwareGeneral.Path & "\" & CONFIGINI_FILE_NAME)
|
|
For IndexTypeList As Integer = 0 To TypeList.Count - 1
|
|
' Definition type is not correct:
|
|
If TypeList(IndexTypeList).NameINI = ConfigDefault Then Exit For Else ErrorReading = EgtMsg(50173) & ConfigDefault & vbCrLf : Return False
|
|
Next
|
|
Else
|
|
' se il file ha estensione allora aggiungo l'estensione .lua
|
|
If Path.GetExtension(CurrItemPath).ToLower <> LUA_EXTENSION Then
|
|
CurrItemPath &= LUA_EXTENSION
|
|
End If
|
|
' controllo che esiste il file altrimenti esco
|
|
' File does not exist
|
|
If Not File.Exists(CurrItemPath) Then ErrorReading = CurrItemPath & ": " & EgtMsg(50172) & vbCrLf : Return False
|
|
' m_TemplateSelItem = value
|
|
' carico un vettore con le stringhe del file corrente
|
|
Dim ReadCurrCompo() As String = File.ReadAllLines(CurrItemPath)
|
|
Dim EndOfFile As Boolean = False
|
|
' leggo il vettore di stringhe del file corrente
|
|
For LineIndex = 0 To ReadCurrCompo.Count - 1
|
|
' copio il valore della riga
|
|
Dim CurrCompoFileLine As String = ReadCurrCompo(LineIndex)
|
|
' cerco il titolo [Graphic parameters]: se lo trovo
|
|
If RegexFunction.IsGraphicParametersTitle(CurrCompoFileLine) Then
|
|
' mi preparo per leggere la prima riga dopo il titolo
|
|
Dim ParamIndex As Integer = 1
|
|
If Not String.IsNullOrWhiteSpace(ParamLine(ReadCurrCompo(LineIndex + ParamIndex), K_DEFAULT)) Then
|
|
Dim ConfigDefault As String = Trim(ParamLine(ReadCurrCompo(LineIndex + ParamIndex), K_DEFAULT))
|
|
If Not IsNumeric(ConfigDefault) Then
|
|
' 50162 =In file {0} param 'Default' must be numeric.
|
|
ErrorReading = String.Format(EgtMsg(50162), CurrItemPath)
|
|
ErrorReading &= vbCrLf
|
|
Return False ' valore letto non è numerico
|
|
Else
|
|
For IndexListType As Integer = 0 To TypeList.Count - 1
|
|
If TypeList(IndexListType).NameINI = ConfigDefault Then
|
|
SelType = TypeList(IndexListType)
|
|
NotifyPropertyChanged("SelType")
|
|
Exit For
|
|
End If
|
|
Next
|
|
Exit For
|
|
End If
|
|
End If
|
|
End If
|
|
Next
|
|
End If
|
|
Return True
|
|
End Function
|
|
|
|
' ricerca il nome dei capitoli associati e chiama la lettura dei parametri
|
|
Public Sub ReadChapterTemplate()
|
|
Dim sParam As String = String.Empty ' la stringa che contiene tutte le informazioni della componente
|
|
Dim ParamIndex As Integer = 1
|
|
Dim ChapterIndex As Integer = 1 ' numero del capitolo
|
|
Dim IndexChapter As String = "1"
|
|
For IndexTypeList As Integer = 0 To m_TypeList.Count - 1
|
|
If m_TypeList(IndexTypeList) Is SelType Then
|
|
IndexChapter = m_TypeList(IndexTypeList).NameINI
|
|
Exit For
|
|
End If
|
|
Next
|
|
Dim S_CHAPTER As String = S_GR_PARAM_HARDWARE & IndexChapter & "." ' il nome del capitolo da leggere "ParametersN."
|
|
While EgtUILib.GetPrivateProfileString(S_CHAPTER & ChapterIndex, K_PARAM & ParamIndex, "", sParam, m_StdTemplate) > 0 ' Verifico che esista il capitolo nuovo "Type-ChapterIndex"
|
|
Dim Chapter As New Compo(m_HardwareGeneral, True)
|
|
Dim Name As String = String.Empty
|
|
Dim LuaName As String = String.Empty
|
|
|
|
' legge il nome del parametro
|
|
If StdTemplateGetPrivateProfileChapterName(S_CHAPTER & ChapterIndex, K_NAME, LuaName, Name) Then
|
|
Chapter.TemplateDDFName = LuaName
|
|
Chapter.TemplateName = Name
|
|
End If
|
|
' leggo il nome dei capitoli dei parametri
|
|
Dim GroupName As String = String.Empty
|
|
If StdTemplateGetPrivateProfileGroupChapter(S_CHAPTER & ChapterIndex, "GroupChapter", GroupName) Then
|
|
Chapter.GroupNameChapter = GroupName
|
|
SetGroupChaptername(Trim(GroupName))
|
|
End If
|
|
Dim bIsActive As Boolean = True
|
|
' legge se è attivo
|
|
Dim nIsActive As Integer = StdTemplateGetPrivateProfileInt(S_CHAPTER & ChapterIndex, K_ISACTIVE, nIsActive)
|
|
' verifico che non stia leggendo un nuovo hardware
|
|
If Not bNewHardware And nIsActive > 3 Then
|
|
nIsActive = 0
|
|
End If
|
|
Select Case nIsActive
|
|
Case 0
|
|
Chapter.SetIsFixed(False)
|
|
Chapter.SetIsActiveChapter(False)
|
|
Case 1
|
|
Chapter.SetIsFixed(False)
|
|
Chapter.SetIsActiveChapter(True)
|
|
Case 2
|
|
Chapter.SetIsFixed(True)
|
|
Chapter.SetIsActiveChapter(True)
|
|
Case 3
|
|
Chapter.SetIsFixed(False)
|
|
Chapter.SetIsActiveChapter(False)
|
|
Chapter.GroupVisibilityChapter = Visibility.Collapsed
|
|
End Select
|
|
' leggo se il capitolo appartiene al tipo di materiale
|
|
Dim sMaterialList As New List(Of String)
|
|
StdTemplateGetPrivateProfileList(S_CHAPTER & ChapterIndex, K_MATERIAL, sMaterialList)
|
|
For Each ItemMaterial In sMaterialList
|
|
Chapter.GroupVisibilityChapter = Visibility.Collapsed
|
|
If ItemMaterial = Map.refHardwarePageVM.GenericPart.SelectedMaterial.NameDDF Then
|
|
Chapter.GroupVisibilityChapter = Visibility.Visible
|
|
Exit For
|
|
End If
|
|
Next
|
|
|
|
While EgtUILib.GetPrivateProfileString(S_CHAPTER & ChapterIndex, K_PARAM & ParamIndex, "", sParam, m_StdTemplate) > 0 ' Verifico che esista il parametro nuovo "Param-ParamIndex"
|
|
If Not String.IsNullOrWhiteSpace(sParam) Then
|
|
Dim NewParam As New CompoParam(m_HardwareGeneral.DDFName, m_HardwareGeneral.Name, Chapter)
|
|
Dim sHelpParam As String = String.Empty
|
|
EgtUILib.GetPrivateProfileString(S_CHAPTER & ChapterIndex, "HelpParam" & ParamIndex, "", sHelpParam, m_StdTemplate)
|
|
' leggo il tipo di parametro, se la lettura va a buon fine la carico
|
|
If Chapter.ReadParamHardware(sParam, sHelpParam, NewParam, ErrorReading) Then Chapter.CompoParamList.Add(NewParam)
|
|
If TypeOf NewParam Is TextBoxOnOffParam Then
|
|
Dim Param = DirectCast(NewParam, TextBoxOnOffParam)
|
|
Param.SetIsActive(False)
|
|
ElseIf TypeOf NewParam Is ComboBoxParamLua Then
|
|
Dim Param As ComboBoxParamLua = DirectCast(NewParam, ComboBoxParamLua)
|
|
Param.ItemListDDF = RefreshListGeometry(Param.ItemListDDF)
|
|
Param.ItemList = RefreshListGeometry(Param.ItemList)
|
|
ElseIf TypeOf NewParam Is ComboBoxOnOffParam Then
|
|
Dim Param = DirectCast(NewParam, ComboBoxOnOffParam)
|
|
Param.SetIsActive(False)
|
|
End If
|
|
|
|
End If
|
|
ParamIndex += 1
|
|
End While ' termina lettura del capitolo
|
|
GroupChapters.Add(Chapter)
|
|
ParamIndex = 1
|
|
ChapterIndex += 1
|
|
End While ' termina lettura della configurazione
|
|
' se la componente è di tipo frame allora esce
|
|
Dim LocalCompoMatch As Compo = CreateChapterMatching()
|
|
If Not IsNothing(LocalCompoMatch) AndAlso LocalCompoMatch.GroupVisibilityChapter = Visibility.Visible Then
|
|
LocalCompoMatch.SetIsFixed(True)
|
|
GroupChapters.Add(LocalCompoMatch)
|
|
End If
|
|
End Sub
|
|
|
|
' carico la liste dei nomi dei capitoli
|
|
Private Function SetGroupChaptername(sName As String) As Boolean
|
|
If m_GroupChapterName.Count = 0 Then m_GroupChapterName.Add(sName)
|
|
Dim bFounded As Boolean = False
|
|
For Index1 As Integer = 0 To m_GroupChapterName.Count - 1
|
|
If m_GroupChapterName(Index1) = sName Then
|
|
bFounded = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
If Not bFounded Then m_GroupChapterName.Add(sName)
|
|
Return True
|
|
End Function
|
|
|
|
' elimina le liste di parametri precedenti ad ogni selezione
|
|
Public Sub ClearGroupChapters()
|
|
If Not IsNothing(GroupChapters) Then
|
|
GroupChapters.Clear()
|
|
End If
|
|
NotifyPropertyChanged("GroupChapters")
|
|
End Sub
|
|
|
|
' legge il file lua: verifica che il file esista e se necessario il tipo di versione (solo per le Lock)
|
|
Friend Function ReadTemplate(sFile As String) As Boolean
|
|
' inizio la lettura del file lua selezionato
|
|
Dim FileContent() As String
|
|
Dim CurrItemPath As String = CurrPath()
|
|
Dim MatchingFile As String = String.Empty
|
|
|
|
Dim Version As String = "2" ' 2 è la versione nuova, 1 la versione vecchia
|
|
Dim IsActiveVersion As Integer = 0
|
|
Dim MakeHole As Boolean = False
|
|
If StdTemplateGetPrivateProfileChapterVersioning("Versioning", "IsActive", IsActiveVersion) Then
|
|
Version = "1"
|
|
End If
|
|
|
|
If Not Path.HasExtension(CurrItemPath) Then
|
|
CurrItemPath &= LUA_EXTENSION
|
|
ElseIf Path.GetExtension(CurrItemPath).ToLower <> LUA_EXTENSION Then
|
|
CurrItemPath &= LUA_EXTENSION
|
|
End If
|
|
Dim ErrorMsg As String = String.Empty
|
|
' se il file ha estensione o se ha estensione nge: esco
|
|
If Path.GetExtension(CurrItemPath).ToLower = NGE_EXTENSION Then
|
|
ErrorMsg = "File has nge extension."
|
|
Return False
|
|
End If
|
|
' file does not exists
|
|
If Not File.Exists(CurrItemPath) Then ErrorMsg = EgtMsg(50172) : Return False ' controllo che esiste il file altrimenti esco
|
|
FileContent = File.ReadAllLines(CurrItemPath)
|
|
' se il file esiste ma è vuoto
|
|
If FileContent.Count = 0 Then
|
|
MessageBox.Show(EgtMsg(50107), EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Error)
|
|
End If
|
|
|
|
' cerco la versione caricata
|
|
If IsActiveVersion = 1 Then
|
|
For Each Line In FileContent
|
|
Dim CurrLine As String = Utility.DeleteLuaComment(Line)
|
|
Dim sLine() As String = CurrLine.Split("="c)
|
|
If sLine.Count < 2 OrElse sLine.Count > 2 Then Continue For
|
|
If sLine(0).Contains(".VER") Then
|
|
If Not IsNothing(sLine(1)) AndAlso IsNumeric(sLine(1).Replace("'", "")) Then
|
|
Version = Trim(sLine(1).Replace("'", ""))
|
|
End If
|
|
Exit For
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
Select Case Version
|
|
Case "2"
|
|
For IndexLine As Integer = 0 To FileContent.Count - 1
|
|
Dim CurrLine As String = Utility.DeleteLuaComment(FileContent(IndexLine))
|
|
Dim sLine() As String = CurrLine.Split("="c)
|
|
If sLine.Count < 2 OrElse sLine.Count > 2 Then Continue For
|
|
FindParamTemplateInConfigList(Trim(sLine(0)), Trim(sLine(1)))
|
|
Next
|
|
' nuova versione
|
|
Case "1"
|
|
' se è una lock
|
|
If m_HardwareGeneral.DDFName = "locks" Then
|
|
' cerco il Parametro mh per l'attivazione del foro
|
|
For Each Line In FileContent
|
|
Dim CurrLine As String = Utility.DeleteLuaComment(Line)
|
|
Dim sLine() As String = CurrLine.Split("="c)
|
|
If sLine.Count < 2 OrElse sLine.Count > 2 Then Continue For
|
|
If Trim(sLine(0)) = "tLkmPar.mh" Then
|
|
If Not IsNothing(sLine(1)) AndAlso Trim(sLine(1)) = "true" Then
|
|
MakeHole = True
|
|
End If
|
|
Exit For
|
|
End If
|
|
Next
|
|
For IndexLine As Integer = 0 To FileContent.Count - 1
|
|
Dim CurrLine As String = Utility.DeleteLuaComment(FileContent(IndexLine))
|
|
Dim sLine() As String = CurrLine.Split("="c)
|
|
If sLine.Count < 2 OrElse sLine.Count > 2 Then Continue For
|
|
FindParamTemplateInConfigListOldVersionLock(Trim(sLine(0)), Trim(sLine(1)), MakeHole)
|
|
Next
|
|
Return True
|
|
End If
|
|
For IndexLine As Integer = 0 To FileContent.Count - 1
|
|
Dim CurrLine As String = Utility.DeleteLuaComment(FileContent(IndexLine))
|
|
Dim sLine() As String = CurrLine.Split("="c)
|
|
If sLine.Count < 2 OrElse sLine.Count > 2 Then Continue For
|
|
FindParamTemplateInConfigList(Trim(sLine(0)), Trim(sLine(1)))
|
|
Next
|
|
End Select
|
|
For IndexName As Integer = 0 To m_GroupChapterName.Count - 1
|
|
CascadedChapter(m_GroupChapters, m_GroupChapterName(IndexName))
|
|
Next
|
|
|
|
' ricerco il nome dell'associazione
|
|
MatchingFile = ReadMatchingFile(FileContent)
|
|
LoadMatchingFile(MatchingFile)
|
|
ReadDefaultParamDDF(FileContent)
|
|
Return True
|
|
End Function
|
|
|
|
Private Function CascadedChapter(CompoList As ObservableCollection(Of Compo), sGroupName As String) As Boolean
|
|
' salvo l'indice del primo parametro visibile
|
|
Dim bLastVisible As Boolean = False
|
|
For Index As Integer = 0 To CompoList.Count - 1
|
|
If CompoList(Index).GroupNameChapter <> sGroupName Then Continue For
|
|
If CompoList(Index).IsActiveChapter Then
|
|
CompoList(Index).GroupVisibilityChapter = Visibility.Visible
|
|
ElseIf Not CompoList(Index).IsActiveChapter And Not bLastVisible Then
|
|
CompoList(Index).GroupVisibilityChapter = Visibility.Visible
|
|
bLastVisible = True
|
|
Else
|
|
CompoList(Index).GroupVisibilityChapter = Visibility.Collapsed
|
|
End If
|
|
Next
|
|
Return True
|
|
End Function
|
|
|
|
' caricamento dei dati del file lua
|
|
Private Function FindParamTemplateInConfigList(sParam As String, sValue As String) As Boolean
|
|
For IndexGroupChapters As Integer = 0 To m_GroupChapters.Count - 1
|
|
For IndexChapter As Integer = 0 To m_GroupChapters(IndexGroupChapters).CompoParamList.Count - 1
|
|
If m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter).DDFName = sParam Then
|
|
' ho trovato una corrispondenza tra il valore de file ini e quello lua in lettura
|
|
' allora significa che tutto il capitolo associato deve essere attivo
|
|
Dim AcitvateParamNotExists As Boolean = True
|
|
For Each ItemParam In m_GroupChapters(IndexGroupChapters).CompoParamList
|
|
If TypeOf ItemParam Is ActivateParam Then
|
|
AcitvateParamNotExists = False
|
|
Exit For
|
|
End If
|
|
Next
|
|
If AcitvateParamNotExists Then m_GroupChapters(IndexGroupChapters).SetIsActiveChapter(True)
|
|
' m_GroupChapters(IndexGroupChapters).SetIsActiveChapter(True)
|
|
If TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is TextBoxDGCParam Then
|
|
Dim Text As TextBoxDGCParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), TextBoxDGCParam)
|
|
' se testo numerico, eseguo opportunbe conversioni per H,W e T
|
|
sValue = ConvertToDGD(Text.TypeVar, sValue)
|
|
' separare il valore tra parentesi dai termini fuoir parentesi
|
|
Dim sItems() As String = sValue.Split("+"c)
|
|
If sItems.Count > 2 Then
|
|
For IndexArray As Integer = 1 To sItems.Count - 2
|
|
sItems(0) &= "+" & sItems(IndexArray)
|
|
Next
|
|
sItems(1) = sItems(sItems.Count - 1)
|
|
End If
|
|
Dim sLen As String = Trim(Utility.GetMeasure(sItems(0)))
|
|
Dim dVal As Double = 0.0
|
|
Text.SetValue(sLen)
|
|
Text.SetConst(Text.ConstList(0))
|
|
If sItems.Count >= 2 Then
|
|
For IndexConst As Integer = 0 To Text.ConstList.Count - 1
|
|
If Text.ConstList(IndexConst) = Trim(sItems(1)) Then Text.SetConst(Text.ConstList(IndexConst)) : Exit For
|
|
Next
|
|
End If
|
|
ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is TextBoxThicknessParam Then
|
|
Dim Text As TextBoxThicknessParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), TextBoxThicknessParam)
|
|
' se testo numerico, eseguo opportunbe conversioni per H,W e T
|
|
sValue = ConvertToDGD(Text.TypeVar, sValue)
|
|
Dim dVal As Double
|
|
Text.SetConst(Text.ConstList(2))
|
|
Text.SetValue("")
|
|
If StringToDouble(sValue, dVal) AndAlso dVal < 0.0 Then
|
|
For IndexItem As Integer = 0 To Text.ConstList.Count - 1
|
|
If Text.ConstList(IndexItem).dValue = dVal Then
|
|
Text.SetConst(Text.ConstList(IndexItem))
|
|
Exit For
|
|
End If
|
|
Next
|
|
End If
|
|
If Text.SelConst.Name = OptionModule.m_SelectedMeasureUnit Then
|
|
Dim sLen As String = Trim(Utility.GetMeasure(sValue))
|
|
Text.SetValue(sLen)
|
|
End If
|
|
|
|
ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is TextBoxNgeParam Then
|
|
Dim Text As TextBoxNgeParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), TextBoxNgeParam)
|
|
Text.SetValue(Trim(Utility.DeleteSuperScript(sValue)))
|
|
|
|
ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is TextBoxLuaParam Then
|
|
Dim Text As TextBoxLuaParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), TextBoxLuaParam)
|
|
Text.SetValue(Trim(Utility.DeleteSuperScript(sValue)))
|
|
|
|
ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is TextBoxOnOffParam Then
|
|
Dim Text As TextBoxOnOffParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), TextBoxOnOffParam)
|
|
Text.SetIsActive(True)
|
|
' se testo numerico, eseguo opportunbe conversioni per H,W e T
|
|
sValue = ConvertToDGD(Text.TypeVar, sValue)
|
|
' controllo il tipo di dato che si aspetta
|
|
Select Case Text.TypeVar
|
|
Case ConstGen.INCHES
|
|
Dim sLen As String = Trim(Utility.GetMeasure(sValue))
|
|
Text.SetValue(sLen)
|
|
Case ConstGen.MM
|
|
Dim sLen As String = Trim(Utility.GetMeasure(sValue))
|
|
Text.SetValue(sLen)
|
|
Case ConstGen.VAL_DOUBLE
|
|
Dim dVal As Double = 0.0
|
|
If StringToDouble(sValue, dVal) Then Text.SetValue(sValue) Else Text.SetValue("0.000")
|
|
Case ConstGen.VAL_STRING
|
|
Text.SetValue(Trim(Utility.DeleteSuperScript(sValue)))
|
|
End Select
|
|
|
|
ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is TextBoxParam Then
|
|
Dim Text As TextBoxParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), TextBoxParam)
|
|
' se testo numerico, eseguo opportunbe conversioni per H,W e T
|
|
sValue = ConvertToDGD(Text.TypeVar, sValue)
|
|
' controllo il tipo di dato che si aspetta
|
|
Select Case Text.TypeVar
|
|
Case ConstGen.INCHES
|
|
Dim sLen As String = Trim(Utility.GetMeasure(sValue))
|
|
Text.SetValue(sLen)
|
|
Case ConstGen.MM
|
|
Dim sLen As String = Trim(Utility.GetMeasure(sValue))
|
|
Text.SetValue(sLen)
|
|
Case ConstGen.VAL_DOUBLE
|
|
Dim dVal As Double = 0.0
|
|
If StringToDouble(sValue, dVal) Then Text.SetValue(sValue) Else Text.SetValue("0.000")
|
|
Case ConstGen.VAL_STRING
|
|
Text.SetValue(Trim(Utility.DeleteSuperScript(sValue)))
|
|
End Select
|
|
|
|
ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is CheckBoxParam Then
|
|
Dim Text As CheckBoxParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), CheckBoxParam)
|
|
Text.SetIsChecked(Utility.ConvertCheckBox(sValue))
|
|
ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is ComboBoxParamLua Then
|
|
Dim Text As ComboBoxParamLua = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), ComboBoxParamLua)
|
|
Text.ItemListDDF = RefreshListGeometry(Text.ItemListDDF)
|
|
Text.ItemList = RefreshListGeometry(Text.ItemList)
|
|
If Text.ItemList.Count > 0 Then Text.SetSelItem(Text.ItemList(0))
|
|
For IndexCombo As Integer = 0 To Text.ItemListDDF.Count - 1
|
|
If Trim(Utility.DeleteSuperScript(Text.ItemListDDF(IndexCombo))) = Trim(Utility.DeleteSuperScript(sValue)) Then Text.SetSelItem(Text.ItemList(IndexCombo))
|
|
Next
|
|
|
|
ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is ComboBoxOnOffParam Then
|
|
Dim Text As ComboBoxOnOffParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), ComboBoxOnOffParam)
|
|
Text.SetIsActive(True)
|
|
Text.SetSelItem(Text.ItemList(0))
|
|
For IndexCombo As Integer = 0 To Text.ItemListDDF.Count - 1
|
|
If Trim(Utility.DeleteSuperScript(Text.ItemListDDF(IndexCombo))) = Trim(Utility.DeleteSuperScript(sValue)) Then Text.SetSelItem(Text.ItemList(IndexCombo))
|
|
Next
|
|
|
|
ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is ComboBoxParam Then
|
|
Dim Text As ComboBoxParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), ComboBoxParam)
|
|
Text.SetSelItem(Text.ItemList(0))
|
|
For IndexCombo As Integer = 0 To Text.ItemListDDF.Count - 1
|
|
If Trim(Utility.DeleteSuperScript(Text.ItemListDDF(IndexCombo))) = Trim(Utility.DeleteSuperScript(sValue)) Then Text.SetSelItem(Text.ItemList(IndexCombo))
|
|
Next
|
|
ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is GhostParam Then
|
|
Dim Text As GhostParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), GhostParam)
|
|
Text.Value = sValue
|
|
ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is ActivateParam Then
|
|
Dim Text As ActivateParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), ActivateParam)
|
|
Text.SetIsActivated(Utility.ConvertCheckBox(sValue))
|
|
m_GroupChapters(IndexGroupChapters).SetIsActiveChapter(Text.IsActivated)
|
|
End If
|
|
Return True
|
|
End If
|
|
Next
|
|
Next
|
|
Return False
|
|
End Function
|
|
|
|
Private Function RefreshListGeometry(ByRef GeometryList As ObservableCollection(Of String)) As ObservableCollection(Of String)
|
|
Dim CurrListGeomtry As New ObservableCollection(Of String)
|
|
If bIsFrame Then
|
|
For Each ItemGeomtry In GeometryList
|
|
If ItemGeomtry.ToLower.Contains("frame") Then
|
|
CurrListGeomtry.Add(ItemGeomtry)
|
|
End If
|
|
Next
|
|
Return CurrListGeomtry
|
|
End If
|
|
For Each ItemGeomtry In GeometryList
|
|
If Not ItemGeomtry.ToLower.Contains("frame") Then
|
|
CurrListGeomtry.Add(ItemGeomtry)
|
|
End If
|
|
Next
|
|
Return CurrListGeomtry
|
|
End Function
|
|
|
|
' so già che il file contiene un foro al posto di una mortise
|
|
Private Function FindParamTemplateInConfigListOldVersionLock(sParam As String, sValue As String, MakeHole As Boolean) As Boolean
|
|
If MakeHole Then
|
|
Select Case sParam
|
|
Case "tLkmPar.L2"
|
|
sParam = ""
|
|
Case "tLkmPar.H2"
|
|
sParam = "tLkmPar.HB2"
|
|
Case "tLkmPar.T2"
|
|
sParam = "tLkmPar.TB2"
|
|
Case "tLkmPar.D_X"
|
|
sParam = "tLkmPar.DH_X"
|
|
Case "tLkmPar.LG2"
|
|
sParam = ""
|
|
Case "tLkmPar.LA"
|
|
sParam = ""
|
|
Case "tLkmPar.s"
|
|
sParam = ""
|
|
Case "tLkmPar.p2"
|
|
sParam = ""
|
|
Case "tLkmPar.d2"
|
|
sParam = ""
|
|
End Select
|
|
Else
|
|
Select Case sParam
|
|
Case "tLkmPar.LGH"
|
|
sParam = ""
|
|
End Select
|
|
End If
|
|
Return FindParamTemplateInConfigList(sParam, sValue)
|
|
End Function
|
|
|
|
' ricerco nel file .lua dell'hardware se esiste un'associazione
|
|
Private Function ReadMatchingFile(sFile() As String) As String
|
|
Dim LineIndex As Integer = 0
|
|
Dim ParamIndex As Integer = 1
|
|
Dim FrameFile As String = String.Empty
|
|
For LineIndex = 0 To sFile.Count - 1
|
|
If RegexFunction.IsMatchingParameterTitle(sFile(LineIndex)) Then
|
|
FrameFile = Trim(RegexFunction.ParamLine(sFile(LineIndex + ParamIndex), K_MATCHING_FILE))
|
|
While String.IsNullOrEmpty(FrameFile) And LineIndex + ParamIndex < sFile(LineIndex + ParamIndex).Count
|
|
ParamIndex += 1
|
|
FrameFile = Trim(RegexFunction.ParamLine(sFile(LineIndex + ParamIndex), K_MATCHING_FILE))
|
|
Exit For
|
|
End While
|
|
End If
|
|
Next
|
|
Return FrameFile
|
|
End Function
|
|
|
|
' legge e carica i parametri da settare nel ddf
|
|
Private Function ReadDefaultParamDDF(sFile() As String) As Boolean
|
|
Dim LineIndex As Integer = 0
|
|
Dim ParamIndex As Integer = 1
|
|
Dim KeyParam As String = String.Empty
|
|
Dim ValueParam As String = String.Empty
|
|
' inizio a leggere tutto il file lua
|
|
For LineIndex = 0 To sFile.Count - 1
|
|
' verifico che eista il titolo [DDF parameters]
|
|
If RegexFunction.IsDDFParameterTitle(sFile(LineIndex)) Then
|
|
For Each Item In GroupChapters
|
|
If Item.TemplateDDFName = "DDF" Then
|
|
' carico il nome di ogni parametro scritto nella configurazione
|
|
For Each ItemParam In Item.CompoParamList
|
|
' recupero il nome del parametro ddf scritto nel file lua
|
|
KeyParam = Trim(RegexFunction.KeyParamLine(sFile(LineIndex + ParamIndex)))
|
|
While String.IsNullOrEmpty(KeyParam) AndAlso KeyParam = ItemParam.DDFName And LineIndex + ParamIndex < sFile(LineIndex + ParamIndex).Count
|
|
ParamIndex += 1
|
|
KeyParam = Trim(RegexFunction.KeyParamLine(sFile(LineIndex + ParamIndex)))
|
|
End While
|
|
If String.IsNullOrEmpty(KeyParam) Then Continue For
|
|
ValueParam = RegexFunction.ParamLine(sFile(LineIndex + ParamIndex), KeyParam)
|
|
If String.IsNullOrEmpty(ValueParam) Then Continue For
|
|
FindParamTemplateInConfigList(KeyParam, ValueParam)
|
|
' passo alla riga successiva
|
|
LineIndex = LineIndex + ParamIndex
|
|
ParamIndex = 1
|
|
Next
|
|
End If
|
|
Next
|
|
End If
|
|
Next
|
|
Return True
|
|
End Function
|
|
|
|
' aggiorna la grafica (dato il nome del file) --> devo stampare gli errori
|
|
Private Function LoadMatchingFile(MatchingFile As String) As Boolean
|
|
If String.IsNullOrEmpty(MatchingFile) Then Return False
|
|
For Each ItemChapter In m_GroupChapters
|
|
If ItemChapter.TemplateDDFName = "Match File" Then
|
|
Dim ComboBoxMatch As ComboBoxParam = DirectCast(ItemChapter.CompoParamList(0), ComboBoxParam)
|
|
Dim sItem() As String = MatchingFile.Split("\"c)
|
|
' Hinge\StdMort.Frame\1_5s
|
|
If sItem.Count > 2 Then
|
|
For IndexCompoType As Integer = 0 To Map.refCompoPanelVM.CompoTypeList.Count - 1
|
|
If Path.GetFileName(Map.refCompoPanelVM.CompoTypeList(IndexCompoType).Path) = sItem(0) Then
|
|
' ricerco la radice del direttorio
|
|
For IndexParam As Integer = 0 To ComboBoxMatch.ItemListDDF.Count - 1
|
|
If ComboBoxMatch.ItemListDDF(IndexParam) = Map.refCompoPanelVM.CompoTypeList(IndexCompoType).DDFName Then
|
|
ComboBoxMatch.SetSelItem(ComboBoxMatch.ItemList(IndexParam))
|
|
Exit For
|
|
End If
|
|
Next
|
|
' se il caricamento è fallito (non son stati caricati anche gli altri campi) allora esco
|
|
If ItemChapter.CompoParamList.Count < 2 Then
|
|
MatchingFile = String.Empty
|
|
Exit For
|
|
End If
|
|
' ricerco il brand
|
|
Dim ComboBoxBrand As ComboBoxParam = DirectCast(ItemChapter.CompoParamList(1), ComboBoxParam)
|
|
For IndexBrand As Integer = 0 To ComboBoxBrand.ItemListDDF.Count - 1
|
|
If ComboBoxBrand.ItemListDDF(IndexBrand) = sItem(1) Then
|
|
ComboBoxBrand.SetSelItem(ComboBoxBrand.ItemListDDF(IndexBrand))
|
|
Exit For
|
|
End If
|
|
Next
|
|
' se non è stato trovato il brand corretto allora esco
|
|
If IsNothing(ComboBoxBrand.SelItem) Then
|
|
MatchingFile = String.Empty
|
|
Exit For
|
|
End If
|
|
' ricerco il file
|
|
Dim ComboBoxFile As ComboBoxParam = DirectCast(ItemChapter.CompoParamList(2), ComboBoxParam)
|
|
For IndexFile As Integer = 0 To ComboBoxFile.ItemListDDF.Count - 1
|
|
If ComboBoxFile.ItemListDDF(IndexFile) = sItem(2) Then
|
|
ComboBoxFile.SetSelItem(ComboBoxFile.ItemListDDF(IndexFile))
|
|
Exit For
|
|
End If
|
|
Next
|
|
If IsNothing(ComboBoxFile.SelItem) Then
|
|
MatchingFile = String.Empty
|
|
Exit For
|
|
End If
|
|
' termino le associazioni
|
|
Exit For
|
|
End If
|
|
Next
|
|
ElseIf MatchingFile <> "None" Then
|
|
' se non è corretta l'estensione allora svuoto il nome associato
|
|
MatchingFile = String.Empty
|
|
Else
|
|
For IndexParam As Integer = 0 To ComboBoxMatch.ItemListDDF.Count - 1
|
|
If ComboBoxMatch.ItemListDDF(IndexParam) = "None" Then
|
|
ComboBoxMatch.SetSelItem(ComboBoxMatch.ItemListDDF(IndexParam))
|
|
Exit For
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
' se l'associazione è andata a buon fine allora esco, altrimenti continuo
|
|
If Not IsNothing(ComboBoxMatch.SelItem) Then Exit For
|
|
|
|
' "Automatic"
|
|
If String.IsNullOrEmpty(MatchingFile) Then
|
|
' cerco di associare con "Automatic"
|
|
For IndexParam As Integer = 0 To ComboBoxMatch.ItemListDDF.Count - 1
|
|
If ComboBoxMatch.ItemListDDF(IndexParam) = "Automatic" Then
|
|
ComboBoxMatch.SetSelItem(ComboBoxMatch.ItemListDDF(IndexParam))
|
|
Exit For
|
|
End If
|
|
Next
|
|
' se fallisce associo "None"
|
|
If IsNothing(ComboBoxMatch.SelItem) Then
|
|
For IndexParam As Integer = 0 To ComboBoxMatch.ItemListDDF.Count - 1
|
|
If ComboBoxMatch.ItemListDDF(IndexParam) = "None" Then
|
|
ComboBoxMatch.SetSelItem(ComboBoxMatch.ItemList(IndexParam))
|
|
Exit For
|
|
End If
|
|
Next
|
|
End If
|
|
ElseIf Trim(MatchingFile) = "None" Then
|
|
For IndexParam As Integer = 0 To ComboBoxMatch.ItemListDDF.Count - 1
|
|
If ComboBoxMatch.ItemListDDF(IndexParam) = "None" Then
|
|
ComboBoxMatch.SetSelItem(ComboBoxMatch.ItemList(IndexParam))
|
|
Exit For
|
|
End If
|
|
Next
|
|
End If
|
|
End If
|
|
Next
|
|
Return True
|
|
End Function
|
|
|
|
#End Region ' Caricamneto
|
|
|
|
#Region "Salvataggio, Duplica, Nuovo, Aggiorna"
|
|
|
|
Public Function Duplicate(sSelBrand As String, sTemplate As String) As Boolean
|
|
DoRefresh = False
|
|
If IsNothing(sTemplate) Then
|
|
' Missing name of the new template!
|
|
MessageBox.Show(EgtMsg(50174), EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Exclamation)
|
|
Return False
|
|
End If
|
|
' ricostruico il percorso del file da dupicare
|
|
Dim OldDirPath As String = CurrPath()
|
|
' ricostruisco il nuovo file da creare
|
|
Dim ModelDir As String = String.Empty
|
|
If sSelBrand <> RegexFunction.ModelTemplate(m_HardwareGeneral.Path) Then ModelDir = sSelBrand & "\"
|
|
Dim CurrDirPath As String = m_HardwareGeneral.Path & "\" & ModelDir & sTemplate & LUA_EXTENSION
|
|
|
|
Dim IndexModel As Integer
|
|
Dim TemSelBrand As String = String.Empty
|
|
' carico la lista dei file presenti nel direttorio selezionato
|
|
Dim Temp_TemplateList As New ObservableCollection(Of String)
|
|
For IndexModel = 0 To m_HardwareGeneral.HardwareFolderList.Count - 1
|
|
If m_HardwareGeneral.HardwareFolderList(IndexModel).ModelDirGraphic = sSelBrand Then
|
|
TemSelBrand = m_HardwareGeneral.HardwareFolderList(IndexModel).ModelDirGraphic
|
|
Temp_TemplateList = m_HardwareGeneral.HardwareFolderList(IndexModel).ModelFileList
|
|
Exit For
|
|
End If
|
|
Next
|
|
' controllo se il nome è già presente nel direttorio selezionato
|
|
Dim bNameExist As Boolean = False
|
|
Dim IndexHardwList As Integer
|
|
For IndexHardwList = 0 To Temp_TemplateList.Count - 1
|
|
If Temp_TemplateList(IndexHardwList) = sTemplate Then
|
|
' se il nome è nella lista allora esco dal ciclo e rendo falsa la variabile bNameExist
|
|
bNameExist = True
|
|
Exit For
|
|
End If
|
|
bNameExist = False
|
|
Next
|
|
|
|
Dim MsgBoxResult As MessageBoxResult = MessageBoxResult.OK
|
|
' se il nome esite già nel direttorio selezionato
|
|
If bNameExist Then
|
|
' The file: {0} already exist in directory {1} . Do you want to overwrite it
|
|
Select Case MessageBox.Show(String.Format(EgtMsg(50175), sTemplate, sSelBrand), "Warning", MessageBoxButton.YesNo, MessageBoxImage.Warning)
|
|
' decido di sovrescrivere il file esistente
|
|
Case MessageBoxResult.Yes
|
|
If CurrDirPath = OldDirPath Then
|
|
MsgBoxResult = MessageBoxResult.Yes
|
|
End If
|
|
' non eseguo nulla perchè il file è sempre se stesso!
|
|
' Return True
|
|
Case Else
|
|
' deicido di non sovrescrivere interrompo
|
|
Return False
|
|
End Select
|
|
End If
|
|
' se non esiste il file con questo nome
|
|
If Not MsgBoxResult = MessageBoxResult.Yes Then
|
|
' elimino ilnome dalla lista dei file (alla fine il nome verrà aggiunto ancora)
|
|
For IndexTempList As Integer = 0 To Temp_TemplateList.Count - 1
|
|
If Temp_TemplateList(IndexTempList) = sTemplate Then
|
|
Temp_TemplateList.RemoveAt(IndexTempList)
|
|
Exit For
|
|
End If
|
|
Next
|
|
' carico le variabili temporanee e aggiorno la grafica (lista dei file e Brand selezionato)
|
|
m_SelBrand = m_HardwareGeneral.HardwareFolderList(IndexModel)
|
|
TemplateList = Temp_TemplateList
|
|
NotifyPropertyChanged("TemplateList")
|
|
NotifyPropertyChanged("SelBrand")
|
|
' copio il file
|
|
Try
|
|
File.Copy(OldDirPath, CurrDirPath, True)
|
|
m_SelTemplate = sTemplate
|
|
Catch ex As System.IO.IOException
|
|
MessageBox.Show("Error in copying: " & ex.Message)
|
|
' interrompo la copia e la creazione
|
|
Return False
|
|
End Try
|
|
' aggiungo il nome alla lista
|
|
RefreshTemplateListEgtDOORCreator()
|
|
End If
|
|
|
|
'TemplateList.Add(sTemplate)
|
|
For IndexTempList As Integer = 0 To m_TemplateList.Count - 1
|
|
' aggiorno la grafica con il valore selzionato tra i template
|
|
If m_TemplateList(IndexTempList) = sTemplate Then SelTemplate = m_TemplateList(IndexTempList)
|
|
Next
|
|
' SetLayerName(sTemplate)
|
|
DoRefresh = True
|
|
Return True
|
|
End Function
|
|
|
|
Public Function NewHardware(sSelBrand As String, sTemplate As String, sType As TypeHardware) As Boolean
|
|
DoRefresh = False
|
|
' ricostruico il percorso del file nuovo
|
|
Dim ModelDir As String = String.Empty
|
|
ModelDir = String.Empty
|
|
If sSelBrand <> RegexFunction.ModelTemplate(m_HardwareGeneral.Path) Then ModelDir = sSelBrand & "\"
|
|
Dim CurrDirPath As String = m_HardwareGeneral.Path & "\" & ModelDir & sTemplate & LUA_EXTENSION
|
|
Dim IndexModel As Integer
|
|
Dim TemSelBrand As String = String.Empty
|
|
' carico la lista dei file presenti nel direttorio selezionato
|
|
Dim Temp_TemplateList As New ObservableCollection(Of String)
|
|
For IndexModel = 0 To m_HardwareGeneral.HardwareFolderList.Count - 1
|
|
If m_HardwareGeneral.HardwareFolderList(IndexModel).ModelDirGraphic = sSelBrand Then
|
|
TemSelBrand = m_HardwareGeneral.HardwareFolderList(IndexModel).ModelDirGraphic
|
|
Temp_TemplateList = m_HardwareGeneral.HardwareFolderList(IndexModel).ModelFileList
|
|
Exit For
|
|
End If
|
|
Next
|
|
' controllo se il nome è già presente nel direttorio selezionato
|
|
Dim bNameExist As Boolean = False
|
|
Dim IndexHardwList As Integer
|
|
For IndexHardwList = 0 To Temp_TemplateList.Count - 1
|
|
If Temp_TemplateList(IndexHardwList) = sTemplate Then
|
|
' se il nome è nella lista allora esco dal ciclo e rendo falsa la variabile bNameExist
|
|
bNameExist = True
|
|
Exit For
|
|
End If
|
|
bNameExist = False
|
|
Next
|
|
' se il nome esite già nel direttorio selezionato
|
|
If bNameExist Then
|
|
' The file: {0} already exist in directory {1} . Do you want to overwrite it
|
|
Select Case MessageBox.Show(String.Format(EgtMsg(50175), sTemplate, sSelBrand), "Warning", MessageBoxButton.YesNo, MessageBoxImage.Warning)
|
|
' decido di sovrescrivere il file esistente
|
|
Case MessageBoxResult.Yes
|
|
If File.Exists(CurrDirPath) Then
|
|
Try
|
|
' elimino il file
|
|
File.Delete(CurrDirPath)
|
|
Catch ex As FileNotFoundException
|
|
' non è un problema
|
|
Catch ex As Exception
|
|
' non è un problema
|
|
End Try
|
|
End If
|
|
Case Else
|
|
' deicido di non sovrescrivere interrompo
|
|
Return False
|
|
End Select
|
|
End If
|
|
' elimino il nome dalla lista dei file (alla fine il nome verrà aggiunto ancora)
|
|
For IndexTempList As Integer = 0 To Temp_TemplateList.Count - 1
|
|
If Temp_TemplateList(IndexTempList) = sTemplate Then
|
|
Temp_TemplateList.RemoveAt(IndexTempList)
|
|
Exit For
|
|
End If
|
|
Next
|
|
' carico le variabili temporanee e aggiorno la grafica (lista dei file e Brand selezionato)
|
|
bNewHardware = True
|
|
SelBrand = m_HardwareGeneral.HardwareFolderList(IndexModel)
|
|
TemplateList = Temp_TemplateList
|
|
SelType = sType
|
|
NotifyPropertyChanged("TemplateList")
|
|
NotifyPropertyChanged("SelBrand")
|
|
' ripulisco la lista da eventuali residui di altri Hardware
|
|
ClearGroupChapters()
|
|
' rileggo le component dell'hardware da StdTemplate
|
|
ReadChapterTemplate()
|
|
' salvo il nome del file corrente nel Layer
|
|
SetLayerName(sTemplate)
|
|
bNewHardware = False
|
|
Dim ErrorMsg As String = String.Empty
|
|
Dim NewFileContent As New ObservableCollection(Of String)
|
|
If Not WriteFile(NewFileContent) Then Return False
|
|
|
|
' scrivo tutto sul file corrente
|
|
Try
|
|
File.WriteAllLines(CurrDirPath, NewFileContent)
|
|
Catch ex As System.IO.IOException
|
|
' Error in copying:
|
|
MessageBox.Show(String.Format(EgtMsg(50176), ex.Message))
|
|
Return False
|
|
End Try
|
|
|
|
Map.refProjectManagerHardwareVM.IsModified = False
|
|
RefreshTemplateListEgtDOORCreator()
|
|
'TemplateList.Add(sTemplate)
|
|
For IndexTempList As Integer = 0 To m_TemplateList.Count - 1
|
|
' aggiorno la grafica con il valore selzionato tra i template
|
|
If m_TemplateList(IndexTempList) = sTemplate Then SelTemplate = m_TemplateList(IndexTempList)
|
|
Next
|
|
DoRefresh = True
|
|
Return True
|
|
End Function
|
|
|
|
' nel caso di creazione di nuovo Hardware questa funzione attribuisce il nome del file al parametro Nome (quello usato dal layer)
|
|
Public Function SetLayerName(sTemplateName As String) As Boolean
|
|
For Each Compo In m_GroupChapters
|
|
For Each Param In Compo.CompoParamList
|
|
If Param.DDFName.Contains("Nome") And TypeOf Param Is TextBoxParam Then
|
|
Dim Text As TextBoxParam = DirectCast(Param, TextBoxParam)
|
|
Dim LayerName = String.Empty
|
|
If Not String.IsNullOrWhiteSpace(sTemplateName) Then
|
|
LayerName = Path.GetFileName(sTemplateName)
|
|
If Not String.IsNullOrWhiteSpace(LayerName) Then
|
|
Text.SetValue(Trim(LayerName))
|
|
Else
|
|
Text.SetValue(Trim(sTemplateName))
|
|
End If
|
|
End If
|
|
Return True
|
|
End If
|
|
Next
|
|
Next
|
|
Return False
|
|
End Function
|
|
|
|
' per caricare a video il nome del file nge
|
|
Public Function SetGeometryName(sGeometryName As String) As Boolean
|
|
For Each Compo In m_GroupChapters
|
|
For Each Param In Compo.CompoParamList
|
|
If Param.DDFName.Contains(".CGF") And TypeOf Param Is TextBoxNgeParam Then
|
|
Dim Text As TextBoxNgeParam = DirectCast(Param, TextBoxNgeParam)
|
|
Text.SetValue(Trim(sGeometryName))
|
|
Return True
|
|
End If
|
|
Next
|
|
Next
|
|
Return False
|
|
End Function
|
|
|
|
' per caricare a video il nome del file nge
|
|
Public Function GetGeometryName() As String
|
|
For Each Compo In m_GroupChapters
|
|
For Each Param In Compo.CompoParamList
|
|
If Param.DDFName.Contains(".CGF") And TypeOf Param Is TextBoxNgeParam Then
|
|
Dim Text As TextBoxNgeParam = DirectCast(Param, TextBoxNgeParam)
|
|
If String.IsNullOrEmpty(Text.Value) Then
|
|
Return ""
|
|
Else
|
|
Return Text.Value
|
|
End If
|
|
End If
|
|
Next
|
|
Next
|
|
Return ""
|
|
End Function
|
|
|
|
' per caricare a video il nome del file lua
|
|
Public Function SetLuaFileInAggregate(sLuaFile As String, ByVal sDDFParam As String) As Boolean
|
|
If String.IsNullOrWhiteSpace(sDDFParam) Then sDDFParam = ".Name"
|
|
For Each Compo In m_GroupChapters
|
|
For Each Param In Compo.CompoParamList
|
|
If Param.DDFName.Contains(sDDFParam) And TypeOf Param Is TextBoxLuaParam Then
|
|
Dim Text As TextBoxLuaParam = DirectCast(Param, TextBoxLuaParam)
|
|
Text.SetValue(Trim(sLuaFile))
|
|
End If
|
|
Next
|
|
Next
|
|
Return False
|
|
End Function
|
|
|
|
Public Function DuplicateGeometryName(OldTemplateName As String) As Boolean
|
|
Dim OldGeometryName As String = String.Empty
|
|
Dim NewGeometryName As String = String.Empty
|
|
If String.IsNullOrWhiteSpace(OldTemplateName) OrElse Not File.Exists(OldTemplateName) Then Return False
|
|
Dim FileContent() As String = File.ReadAllLines(OldTemplateName)
|
|
For Each Line In FileContent
|
|
Dim CurrLine As String = Utility.DeleteLuaComment(Line)
|
|
Dim sLine() As String = CurrLine.Split("="c)
|
|
If sLine.Count < 2 OrElse sLine.Count > 2 Then Continue For
|
|
If Not Trim(sLine(0)).Contains(".CGF") Then Continue For
|
|
OldGeometryName = Path.GetDirectoryName(OldTemplateName) & "\" & Trim(sLine(1).Replace("'", ""))
|
|
If Not File.Exists(OldGeometryName) Then Return False
|
|
NewGeometryName = CopyGeometryName(OldTemplateName, OldGeometryName)
|
|
Try
|
|
File.Copy(OldGeometryName, NewGeometryName, True)
|
|
Catch ex As System.IO.IOException
|
|
' Error in copying:
|
|
MessageBox.Show(String.Format(EgtMsg(50176), ex.Message))
|
|
' interrompo la copia e la creazione
|
|
Return False
|
|
End Try
|
|
Exit For
|
|
Next
|
|
For Each Compo In m_GroupChapters
|
|
For Each Param In Compo.CompoParamList
|
|
If Param.DDFName.Contains(".CGF") And TypeOf Param Is TextBoxNgeParam Then
|
|
Dim Text As TextBoxNgeParam = DirectCast(Param, TextBoxNgeParam)
|
|
If Not String.IsNullOrEmpty(Text.Value) Then
|
|
Text.SetValue(Path.GetFileName(NewGeometryName))
|
|
Return RefreshTempHardware()
|
|
Else
|
|
Text.SetValue("")
|
|
Return RefreshTempHardware()
|
|
End If
|
|
End If
|
|
|
|
Next
|
|
Next
|
|
Return False
|
|
End Function
|
|
|
|
' duplica i nomi dei file presenti nel file
|
|
Public Function DuplicateFileLuaInAggreagate(OldTemplateName As String) As Boolean
|
|
Dim OldFileLuaName As String = String.Empty
|
|
Dim NewFileLuaName As String = String.Empty
|
|
If String.IsNullOrWhiteSpace(OldTemplateName) OrElse Not File.Exists(OldTemplateName) Then Return False
|
|
Dim FileContent() As String = File.ReadAllLines(OldTemplateName)
|
|
For Each Line In FileContent
|
|
Dim CurrLine As String = Utility.DeleteLuaComment(Line)
|
|
Dim sLine() As String = CurrLine.Split("="c)
|
|
If sLine.Count < 2 OrElse sLine.Count > 2 Then Continue For
|
|
If Not Trim(sLine(0)).Contains(".Name") Then Continue For
|
|
OldFileLuaName = Path.GetDirectoryName(OldTemplateName) & "\" & Trim(sLine(1).Replace("'", ""))
|
|
If Not File.Exists(OldFileLuaName) Then Return False
|
|
NewFileLuaName = CopyGeometryName(OldTemplateName, OldFileLuaName)
|
|
Try
|
|
File.Copy(OldFileLuaName, NewFileLuaName, True)
|
|
Catch ex As System.IO.IOException
|
|
' Error in copying:
|
|
MessageBox.Show(String.Format(EgtMsg(50176), ex.Message))
|
|
' interrompo la copia e la creazione
|
|
Return False
|
|
End Try
|
|
|
|
For Each Compo In m_GroupChapters
|
|
For Each Param In Compo.CompoParamList
|
|
If Param.DDFName.Contains(Trim(sLine(0))) And TypeOf Param Is TextBoxLuaParam Then
|
|
Dim Text As TextBoxLuaParam = DirectCast(Param, TextBoxLuaParam)
|
|
If Not String.IsNullOrEmpty(Text.Value) Then
|
|
Text.SetValue(Path.GetFileName(NewFileLuaName))
|
|
RefreshTempHardware()
|
|
Else
|
|
Text.SetValue("")
|
|
RefreshTempHardware()
|
|
End If
|
|
End If
|
|
|
|
Next
|
|
Next
|
|
Next
|
|
Return False
|
|
End Function
|
|
|
|
Private Function CopyGeometryName(OldTemplateName As String, OldGeometryName As String) As String
|
|
Dim CurrDir As String = Path.GetDirectoryName(Me.CurrPath)
|
|
Dim OldFileName As String = Path.GetFileName(OldGeometryName)
|
|
If OldFileName.Contains(Path.GetFileNameWithoutExtension(OldTemplateName)) Then
|
|
Return CurrDir & "\" & OldFileName.Replace(Path.GetFileNameWithoutExtension(OldTemplateName), Path.GetFileNameWithoutExtension(Me.m_SelTemplate))
|
|
Else
|
|
Return CurrDir & "\" & Me.m_SelTemplate & "_" & OldFileName
|
|
End If
|
|
Return String.Empty
|
|
End Function
|
|
|
|
' crea il file temporaneao e scrive i valori dei parametri della componente per aggiornare la parte grafica
|
|
Public Function RefreshTempHardware() As Boolean
|
|
Dim ErrorMsg As String = String.Empty
|
|
' Pulisco da componenti precedenti
|
|
Map.refHardwarePageVM.GenericPart.CompoList.Clear()
|
|
If String.IsNullOrWhiteSpace(Map.refHardwarePageVM.CurrHardware.SelTemplate) Then Return False
|
|
Dim NewFileContent As New ObservableCollection(Of String)
|
|
If Not WriteFile(NewFileContent) Then Return False
|
|
' costruisco il nome del percorso del file corrente
|
|
Dim ModelDir As String = String.Empty
|
|
' costruisco il percorso del file temporaneo nella cartella corrente:
|
|
Dim CurrDirectoryInModelDir As String = Path.GetDirectoryName(Map.refHardwarePageVM.CurrHardware.SelTemplate)
|
|
CurrDirectoryInModelDir = Trim(CurrDirectoryInModelDir.Replace(m_HardwareGeneral.Path, ""))
|
|
'If m_SelBrand.ModelDir <> RegexFunction.ModelTemplate(m_HardwareGeneral.Path) Then ModelDir = m_SelBrand.ModelDirGraphic & "\"
|
|
If m_SelBrand.ModelDir <> m_HardwareGeneral.Path Then ModelDir = m_SelBrand.ModelDirGraphic & "\"
|
|
If Not String.IsNullOrWhiteSpace(CurrDirectoryInModelDir) Then ModelDir = ModelDir & CurrDirectoryInModelDir & "\"
|
|
Dim sTempFileHardw As String = m_HardwareGeneral.Path & "\" & ModelDir & TEMP_FILE_HARDWARE
|
|
' salvo il file
|
|
File.WriteAllLines(sTempFileHardw, NewFileContent)
|
|
'LoadSwingFromTemplate()
|
|
' aggiungo la componente
|
|
Map.refHardwarePageVM.GenericPart.AddNewHardware(m_HardwareGeneral, ModelDir & Path.GetFileNameWithoutExtension(TEMP_FILE_HARDWARE))
|
|
CurrHardwareFilePath = sTempFileHardw
|
|
If bIsFrame Then
|
|
FindSideJamb()
|
|
End If
|
|
Return True
|
|
End Function
|
|
|
|
Public Function Save() As Boolean
|
|
Dim ErrorMsg As String = String.Empty
|
|
' costruisco la Path del template da leggere
|
|
Dim TemplFile = m_HardwareGeneral.Path & "\" & m_SelType.Name & ".templ "
|
|
If Not File.Exists(TemplFile) Then Return False
|
|
Dim FileContent() As String = File.ReadAllLines(TemplFile)
|
|
Dim NewFileContent As New ObservableCollection(Of String)
|
|
If Not WriteFile(NewFileContent) Then Return False
|
|
' costruisco il nome del percorso del file corrente
|
|
Dim CurrConfig As String = m_HardwareGeneral.Path & "\" & CONFIGINI_FILE_NAME
|
|
Dim CurrItemPath As String = CurrPath()
|
|
' salvo il file
|
|
File.WriteAllLines(CurrItemPath, NewFileContent)
|
|
'RefreshTemplateListEgtDOORCreator()
|
|
Map.refProjectManagerHardwareVM.IsModified = False
|
|
Map.refSceneManagerVM.RefreshBtn()
|
|
Return True
|
|
End Function
|
|
|
|
Private Function WriteFile(ByRef NewFileContent As ObservableCollection(Of String)) As Boolean
|
|
For IndexName As Integer = 0 To m_GroupChapterName.Count - 1
|
|
CascadedChapter(m_GroupChapters, m_GroupChapterName(IndexName))
|
|
Next
|
|
Dim TemplFile = m_HardwareGeneral.Path & "\" & m_SelType.Name & ".templ "
|
|
If Not File.Exists(TemplFile) Then Return False
|
|
Dim FileContent() As String = File.ReadAllLines(TemplFile)
|
|
' inizio la lettura riga per riga
|
|
For IndexLine As Integer = 0 To FileContent.Count - 1
|
|
NewFileContent.Add(FileContent(IndexLine))
|
|
WriteLuaCommentParamDDF(FileContent, IndexLine, NewFileContent)
|
|
Dim CurrLine As String = Utility.DeleteLuaComment(FileContent(IndexLine))
|
|
Dim sLine() As String = CurrLine.Split("="c)
|
|
If sLine.Count < 2 OrElse sLine.Count > 2 Then Continue For ' significa che non è un parametro
|
|
Dim sValue As String = Trim(sLine(1))
|
|
Dim sTemplValue As String = Trim(sLine(1))
|
|
If Not ConvertValueForLua(sValue) Then
|
|
Continue For
|
|
End If
|
|
FileContent(IndexLine) = FileContent(IndexLine).Replace(sTemplValue, sValue)
|
|
NewFileContent.RemoveAt(NewFileContent.Count - 1)
|
|
If Not sValue = " nil" Then
|
|
NewFileContent.Add(FileContent(IndexLine))
|
|
End If
|
|
Next
|
|
If IsNothing(NewFileContent) Then Return False
|
|
Return True
|
|
End Function
|
|
|
|
Private Function WriteLuaCommentParamDDF(sFile() As String, ByRef LineIndex As Integer, ByRef NewFileContent As ObservableCollection(Of String)) As Boolean
|
|
Dim ParamIndex As Integer = 0
|
|
Dim KeyParam As String = String.Empty
|
|
Dim sValue As String = String.Empty
|
|
' verifico che esiste il titolo da stempare
|
|
If RegexFunction.IsDDFParameterTitle(sFile(LineIndex)) Then
|
|
ParamIndex = 1
|
|
' conto il numero di parametri ddf
|
|
Dim IndexParamDDF As Integer = 0
|
|
For Each ItemChapetr In GroupChapters
|
|
If ItemChapetr.TemplateDDFName = "DDF" Then
|
|
IndexParamDDF = ItemChapetr.CompoParamList.Count
|
|
Exit For
|
|
End If
|
|
Next
|
|
' cerco un numero finito di parametri
|
|
For IndexParam As Integer = 0 To IndexParamDDF - 1
|
|
If LineIndex + ParamIndex > sFile.Count - 1 Then Return False
|
|
' recuro il nome del parametro
|
|
KeyParam = Trim(RegexFunction.KeyParamLine(sFile(LineIndex + ParamIndex)))
|
|
While String.IsNullOrEmpty(KeyParam) And LineIndex + ParamIndex < sFile(LineIndex + ParamIndex).Count
|
|
ParamIndex += 1
|
|
KeyParam = Trim(RegexFunction.KeyParamLine(sFile(LineIndex + ParamIndex)))
|
|
End While
|
|
If String.IsNullOrEmpty(KeyParam) Then Continue For
|
|
sValue = RegexFunction.ParamLine(sFile(LineIndex + ParamIndex), KeyParam)
|
|
Dim ReplaceValue = sValue
|
|
ConvertValueForLua(sValue)
|
|
sFile(LineIndex + ParamIndex) = sFile(LineIndex + ParamIndex).Replace(ReplaceValue, sValue)
|
|
If Not sValue = " nil" Then
|
|
NewFileContent.Add(sFile(LineIndex + ParamIndex))
|
|
End If
|
|
LineIndex = LineIndex + ParamIndex
|
|
Next
|
|
End If
|
|
Return True
|
|
End Function
|
|
|
|
Public Function RefreshTemplateListEgtDOORCreator() As Boolean
|
|
ReLoading = True
|
|
For IndexHardw As Integer = 0 To Map.refCompoPanelVM.CompoTypeList.Count - 1
|
|
If m_HardwareGeneral.DDFName = Map.refCompoPanelVM.CompoTypeList(IndexHardw).DDFName Then
|
|
' entro nella cartella della componente selezionata e ricarico le liste dei Brand
|
|
Map.refCompoPanelVM.CompoTypeList(IndexHardw).LoadListTemplate()
|
|
For Each ItemCompo In Map.refCompoPanelHardwareVM.CompoTypeList
|
|
If ItemCompo.DDFName = Map.refCompoPanelVM.CompoTypeList(IndexHardw).DDFName Then
|
|
ItemCompo.LoadListTemplate()
|
|
End If
|
|
Next
|
|
' carico l'elnco delle cartelle Frame
|
|
m_HardwareGeneral.FrameFolderList = Map.refCompoPanelVM.CompoTypeList(IndexHardw).FrameFolderList
|
|
' devo ricaricare tutte le liste!
|
|
m_HardwareGeneral.HardwareFolderList = Map.refCompoPanelVM.CompoTypeList(IndexHardw).HardwareFolderList
|
|
If m_HardwareGeneral.HardwareFolderList.Count = 0 Then
|
|
Dim CurrFolder = New CompoBrandDir(m_HardwareGeneral.Path, Path.GetFileName(m_HardwareGeneral.Path))
|
|
m_HardwareGeneral.HardwareFolderList.Add(CurrFolder)
|
|
End If
|
|
NotifyPropertyChanged("BrandList")
|
|
For Each Item In BrandList
|
|
If m_LastDirectory.ModelDir = Item.ModelDir Then
|
|
SelBrand = Item
|
|
NotifyPropertyChanged("BrandList")
|
|
NotifyPropertyChanged("SelBrand")
|
|
Exit For
|
|
End If
|
|
Next
|
|
ReLoading = False
|
|
Return True
|
|
Exit For
|
|
End If
|
|
Next
|
|
ReLoading = False
|
|
Return False
|
|
End Function
|
|
|
|
' dato il nome del parametri sostiuisce il valore da stampare
|
|
Public Function ConvertValueForLua(ByRef sValue As String) As Boolean
|
|
Dim bIsActive As Boolean = True
|
|
Dim NameParam = Utility.FindNameParam(sValue)
|
|
If String.IsNullOrEmpty(NameParam) Then Return False
|
|
|
|
If NameParam = K_MATCHING_FILE Then
|
|
For IndexGroupChapters As Integer = 0 To m_GroupChapters.Count - 1
|
|
If m_GroupChapters(IndexGroupChapters).TemplateName = MATCHING_FILE_TEMPLATE Then
|
|
sValue = String.Empty
|
|
If DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(0), ComboBoxParam).SelItem = MATCHING_FILE_AUTOMATIC Then
|
|
sValue = String.Empty
|
|
Return True
|
|
ElseIf DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(0), ComboBoxParam).SelItem = MATCHING_FILE_NONE Then
|
|
sValue = MATCHING_FILE_NONE
|
|
Return True
|
|
End If
|
|
For Each Item In Map.refCompoPanelVM.CompoTypeList
|
|
If Item.Name = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(0), ComboBoxParam).SelItem Then
|
|
sValue &= Path.GetFileName(Item.Path)
|
|
Exit For
|
|
End If
|
|
Next
|
|
If m_GroupChapters(IndexGroupChapters).CompoParamList.Count > 2 Then
|
|
sValue &= "\" & DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(1), ComboBoxParam).SelItem
|
|
sValue &= "\" & DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(2), ComboBoxParam).SelItem
|
|
Return True
|
|
End If
|
|
End If
|
|
Next
|
|
Return False
|
|
End If
|
|
|
|
For IndexGroupChapters As Integer = 0 To m_GroupChapters.Count - 1
|
|
For IndexChapter As Integer = 0 To m_GroupChapters(IndexGroupChapters).CompoParamList.Count - 1
|
|
If m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter).DDFName = NameParam Then
|
|
' verifico che il parametro da stampare sia abilitato alla stampa (altriementi NON scrivere nel file)
|
|
If Not m_GroupChapters(IndexGroupChapters).IsActiveChapter Then sValue = " nil" : Return True
|
|
If TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is TextBoxDGCParam Then
|
|
Dim Text As TextBoxDGCParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), TextBoxDGCParam)
|
|
sValue = String.Empty
|
|
Select Case Text.TypeVar
|
|
Case ConstGen.INCHES
|
|
If OptionModule.m_SelectedMeasureUnit = ConstGen.VAL_INCHES Then
|
|
If Text.ToolTipValue.Contains("Invalid") Then
|
|
sValue = "0.0000"
|
|
Else
|
|
sValue = Text.TypeVar & "( " & Text.Value & ")"
|
|
End If
|
|
Else
|
|
sValue = Text.Value
|
|
If MmToInches(sValue) Then sValue = Text.TypeVar & "( " & sValue & ")"
|
|
End If
|
|
Case ConstGen.MM
|
|
If OptionModule.m_SelectedMeasureUnit = ConstGen.VAL_INCHES Then
|
|
sValue = Text.Value
|
|
InchesToMm(sValue)
|
|
Else
|
|
If Text.ToolTipValue.Contains("Invalid") Then
|
|
sValue = "0.0000"
|
|
Else
|
|
sValue = Text.Value
|
|
End If
|
|
End If
|
|
End Select
|
|
' se testo numerico, eseguo opportune conversioni per H,W e T
|
|
sValue = ConvertFromDGD(Text.TypeVar, sValue)
|
|
sValue &= " + " & Text.SelConst
|
|
Return True
|
|
|
|
ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is TextBoxThicknessParam Then
|
|
Dim Text As TextBoxThicknessParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), TextBoxThicknessParam)
|
|
sValue = String.Empty
|
|
If Text.SelConst.dValue = 0 Then
|
|
Select Case Text.TypeVar
|
|
Case ConstGen.INCHES
|
|
If OptionModule.m_SelectedMeasureUnit = ConstGen.VAL_INCHES Then
|
|
If Text.ToolTipValue.Contains("Invalid") Then
|
|
sValue = "0.0000"
|
|
Else
|
|
sValue = Text.TypeVar & "( " & Text.Value & ")"
|
|
End If
|
|
Else
|
|
sValue = Text.Value
|
|
If MmToInches(sValue) Then sValue = Text.TypeVar & "( " & sValue & ")"
|
|
End If
|
|
Case ConstGen.MM
|
|
If OptionModule.m_SelectedMeasureUnit = ConstGen.VAL_INCHES Then
|
|
sValue = Text.Value
|
|
InchesToMm(sValue)
|
|
Else
|
|
If Text.ToolTipValue.Contains("Invalid") Then
|
|
sValue = "0.0000"
|
|
Else
|
|
sValue = Text.Value
|
|
End If
|
|
End If
|
|
End Select
|
|
' se testo numerico, eseguo opportune conversioni per H,W e T
|
|
sValue = ConvertFromDGD(Text.TypeVar, sValue)
|
|
Return True
|
|
End If
|
|
sValue = DoubleToString(Text.SelConst.dValue, 1)
|
|
Return True
|
|
|
|
ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is TextBoxNgeParam Then
|
|
Dim Text As TextBoxNgeParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), TextBoxNgeParam)
|
|
sValue = String.Empty
|
|
sValue = "'" & Text.Value & "'"
|
|
Return True
|
|
|
|
ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is TextBoxLuaParam Then
|
|
Dim Text As TextBoxLuaParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), TextBoxLuaParam)
|
|
sValue = String.Empty
|
|
sValue = "'" & Text.Value & "'"
|
|
Return True
|
|
|
|
ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is TextBoxOnOffParam Then
|
|
Dim Text As TextBoxOnOffParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), TextBoxOnOffParam)
|
|
sValue = String.Empty
|
|
If Not Text.IsActive Then sValue = " nil" : Return True
|
|
' controllo il tipo di dato che si aspetta
|
|
Select Case Text.TypeVar
|
|
Case ConstGen.INCHES
|
|
If OptionModule.m_SelectedMeasureUnit = ConstGen.VAL_INCHES Then
|
|
If Text.ToolTipValue.Contains("Invalid") Then
|
|
sValue = "0.0000"
|
|
Else
|
|
sValue = Text.TypeVar & "( " & Text.Value & ")"
|
|
End If
|
|
'sValue = Text.TypeVar & "( " & Text.ToolTipValue & ")"
|
|
Else
|
|
sValue = Text.Value
|
|
If MmToInches(sValue) Then sValue = Text.TypeVar & "( " & sValue & ")"
|
|
End If
|
|
Case ConstGen.MM
|
|
If OptionModule.m_SelectedMeasureUnit = ConstGen.VAL_INCHES Then
|
|
sValue = Text.Value
|
|
InchesToMm(sValue)
|
|
Else
|
|
If Text.ToolTipValue.Contains("Invalid") Then
|
|
sValue = "0.0000"
|
|
Else
|
|
sValue = Text.Value
|
|
End If
|
|
'sValue = Text.ToolTipValue
|
|
End If
|
|
Case ConstGen.VAL_DOUBLE
|
|
sValue = Text.Value
|
|
Case ConstGen.VAL_STRING
|
|
sValue = "'" & Text.Value & "'"
|
|
End Select
|
|
' se testo numerico, eseguo opportune conversioni per H,W e T
|
|
sValue = ConvertFromDGD(Text.TypeVar, sValue)
|
|
Return True
|
|
ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is TextBoxParam Then
|
|
Dim Text As TextBoxParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), TextBoxParam)
|
|
sValue = String.Empty
|
|
' controllo il tipo di dato che si aspetta
|
|
Select Case Text.TypeVar
|
|
Case ConstGen.INCHES
|
|
If OptionModule.m_SelectedMeasureUnit = ConstGen.VAL_INCHES Then
|
|
If Text.ToolTipValue.Contains("Invalid") Then
|
|
sValue = "0.0000"
|
|
Else
|
|
sValue = Text.TypeVar & "( " & Text.Value & ")"
|
|
End If
|
|
'sValue = Text.TypeVar & "( " & Text.ToolTipValue & ")"
|
|
Else
|
|
sValue = Text.Value
|
|
If MmToInches(sValue) Then sValue = Text.TypeVar & "( " & sValue & ")"
|
|
End If
|
|
Case ConstGen.MM
|
|
If OptionModule.m_SelectedMeasureUnit = ConstGen.VAL_INCHES Then
|
|
sValue = Text.Value
|
|
InchesToMm(sValue)
|
|
Else
|
|
If Text.ToolTipValue.Contains("Invalid") Then
|
|
sValue = "0.0000"
|
|
Else
|
|
sValue = Text.Value
|
|
End If
|
|
'sValue = Text.ToolTipValue
|
|
End If
|
|
Case ConstGen.VAL_DOUBLE
|
|
sValue = Text.Value
|
|
Case ConstGen.VAL_STRING
|
|
sValue = "'" & Text.Value & "'"
|
|
End Select
|
|
' se testo numerico, eseguo opportune conversioni per H,W e T
|
|
sValue = ConvertFromDGD(Text.TypeVar, sValue)
|
|
Return True
|
|
|
|
ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is TextBoxNgeParam Then
|
|
Dim Text As TextBoxNgeParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), TextBoxNgeParam)
|
|
sValue = "'" & Text.Value & "'"
|
|
Return True
|
|
|
|
ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is CheckBoxParam Then
|
|
Dim Text As CheckBoxParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), CheckBoxParam)
|
|
sValue = String.Empty
|
|
If Text.IsChecked Then sValue = " true" Else sValue = " false"
|
|
Return True
|
|
|
|
ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is ActivateParam Then
|
|
Dim Text As ActivateParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), ActivateParam)
|
|
sValue = String.Empty
|
|
If Text.IsActivated Then sValue = " true" Else sValue = " false"
|
|
Return True
|
|
|
|
ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is ComboBoxParamLua Then
|
|
Dim Text As ComboBoxParamLua = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), ComboBoxParamLua)
|
|
sValue = String.Empty
|
|
For Index As Integer = 0 To Text.ItemList.Count - 1
|
|
If Text.SelItem = Text.ItemList(Index) Then sValue = Text.ItemListDDF(Index) : Return True
|
|
Next
|
|
sValue = Text.SelItem
|
|
Return True
|
|
|
|
ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is ComboBoxOnOffParam Then
|
|
'-- attenzione a quando abbiamo da stampare delle stringhe! e non dei valori numerici
|
|
Dim Text As ComboBoxOnOffParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), ComboBoxOnOffParam)
|
|
sValue = String.Empty
|
|
If Not Text.IsActive Then sValue = " nil" : Return True
|
|
For Index As Integer = 0 To Text.ItemList.Count - 1
|
|
If Text.SelItem = Text.ItemList(Index) Then sValue = Text.ItemListDDF(Index) : Return True
|
|
Next
|
|
sValue = Text.SelItem
|
|
Return True
|
|
|
|
ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is ComboBoxParam Then
|
|
'-- attenzione a quando abbiamo da stampare delle stringhe! e non dei valori numerici
|
|
Dim Text As ComboBoxParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), ComboBoxParam)
|
|
sValue = String.Empty
|
|
For Index As Integer = 0 To Text.ItemList.Count - 1
|
|
If Text.SelItem = Text.ItemList(Index) Then sValue = Text.ItemListDDF(Index) : Return True
|
|
Next
|
|
sValue = Text.SelItem
|
|
Return True
|
|
|
|
ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is GhostParam Then
|
|
Dim Text As GhostParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), GhostParam)
|
|
sValue = Text.Value
|
|
Return True
|
|
End If
|
|
End If
|
|
Next
|
|
Next
|
|
Return True
|
|
End Function
|
|
|
|
' lista delle riposte della funzione SaveControl
|
|
Enum SaveResult As Integer
|
|
nYes
|
|
nNo
|
|
nCancel
|
|
End Enum
|
|
|
|
' restituisce il messaggio della selezione
|
|
Public Function SaveControl() As SaveResult
|
|
If ReLoading Then Return SaveResult.nYes
|
|
|
|
If Not Map.refProjectManagerHardwareVM.IsModified Then Return SaveResult.nNo
|
|
' Do you want to save the current changes?
|
|
Select Case MessageBox.Show(EgtMsg(50177), "", MessageBoxButton.YesNoCancel, MessageBoxImage.Question)
|
|
Case MessageBoxResult.Yes ' decido di salvare
|
|
Save()
|
|
Return SaveResult.nYes
|
|
Case MessageBoxResult.No ' decido di non salvare
|
|
Map.refProjectManagerHardwareVM.IsModified = False
|
|
Return SaveResult.nNo
|
|
Case Else ' altrimenti non salvo
|
|
Return SaveResult.nCancel
|
|
End Select
|
|
End Function
|
|
|
|
Public Function DeleteHardware() As Boolean
|
|
DoRefresh = False
|
|
DeleteGeometry()
|
|
DeleteFileLuaInAggreagate()
|
|
Dim CurrDirPath As String = CurrPath()
|
|
BackupDeletingFile(CurrDirPath)
|
|
For Each ItemFile In m_TemplateList
|
|
If ItemFile = m_SelTemplate Then
|
|
Dim IndexList As Integer = m_TemplateList.IndexOf(m_SelTemplate)
|
|
m_TemplateList.Remove(m_SelTemplate)
|
|
If IndexList > 0 Then
|
|
SelTemplate = m_TemplateList(IndexList - 1)
|
|
ElseIf IndexList = 0 And m_TemplateList.Count > 0 Then
|
|
SelTemplate = m_TemplateList(IndexList)
|
|
Else
|
|
SelTemplate = Nothing
|
|
End If
|
|
Exit For
|
|
End If
|
|
Next
|
|
If File.Exists(CurrDirPath) Then
|
|
Try
|
|
File.Delete(CurrDirPath)
|
|
Catch ex As Exception
|
|
End Try
|
|
End If
|
|
DoRefresh = True
|
|
RefreshTemplateListEgtDOORCreator()
|
|
NotifyPropertyChanged("TemplateList")
|
|
Return True
|
|
End Function
|
|
|
|
Private Function DeleteGeometry() As Boolean
|
|
Dim sGeometryName As String
|
|
For Each Compo In m_GroupChapters
|
|
For Each Param In Compo.CompoParamList
|
|
If Param.DDFName.Contains(".CGF") And TypeOf Param Is TextBoxNgeParam Then
|
|
Dim Text As TextBoxNgeParam = DirectCast(Param, TextBoxNgeParam)
|
|
If Not String.IsNullOrWhiteSpace(Text.Value) Then
|
|
sGeometryName = Path.GetDirectoryName(Me.CurrPath) & "\" & Text.Value
|
|
BackupDeletingFile(sGeometryName)
|
|
If File.Exists(sGeometryName) Then
|
|
Try
|
|
File.Delete(sGeometryName)
|
|
Catch ex As Exception
|
|
End Try
|
|
End If
|
|
End If
|
|
Return True
|
|
End If
|
|
Next
|
|
Next
|
|
Return False
|
|
End Function
|
|
|
|
Private Function DeleteFileLuaInAggreagate() As Boolean
|
|
Dim sFileName As String
|
|
For Each Compo In m_GroupChapters
|
|
For Each Param In Compo.CompoParamList
|
|
If Param.DDFName.Contains(".Name") And TypeOf Param Is TextBoxLuaParam Then
|
|
Dim Text As TextBoxLuaParam = DirectCast(Param, TextBoxLuaParam)
|
|
If Not String.IsNullOrWhiteSpace(Text.Value) Then
|
|
sFileName = Path.GetDirectoryName(Me.CurrPath) & "\" & Text.Value
|
|
BackupDeletingFile(sFileName)
|
|
If File.Exists(sFileName) Then
|
|
Try
|
|
File.Delete(sFileName)
|
|
Catch ex As Exception
|
|
End Try
|
|
End If
|
|
End If
|
|
End If
|
|
Next
|
|
Next
|
|
Return False
|
|
End Function
|
|
|
|
' salvo nella cartella di Backup
|
|
Public Function BackupDeletingFile(DeletingFileName As String) As Boolean
|
|
Dim sCurrTime As String = Date.UtcNow.ToString.Replace(" ", "_")
|
|
sCurrTime = sCurrTime.Replace("/", "-")
|
|
sCurrTime = sCurrTime.Replace(":", "-")
|
|
Dim BackupFileName As String = Path.GetFileNameWithoutExtension(DeletingFileName) & " " & sCurrTime
|
|
If Not Directory.Exists(BackupDir) Then
|
|
Directory.CreateDirectory(BackupDir)
|
|
End If
|
|
BackupFileName = BackupDir & "\" & BackupFileName & Path.GetExtension(DeletingFileName)
|
|
' copio il file
|
|
Try
|
|
File.Copy(DeletingFileName, BackupFileName, True)
|
|
Catch ex As System.IO.IOException
|
|
' Error in copying:
|
|
MessageBox.Show(String.Format(EgtMsg(50176), ex.Message))
|
|
' interrompo la copia e la creazione
|
|
Return False
|
|
End Try
|
|
Return True
|
|
End Function
|
|
|
|
#End Region ' Salvataggio, Duplica, Nuovo, Aggiorna
|
|
|
|
Public Function CurrPath() As String
|
|
Dim ModelDir As String = String.Empty
|
|
'If m_SelBrand.ModelDir <> RegexFunction.ModelTemplate(m_HardwareGeneral.Path) Then ModelDir = m_SelBrand.ModelDirGraphic & "\"
|
|
If m_SelBrand.ModelDirGraphic <> RAD_DIR Then ModelDir = m_SelBrand.ModelDirGraphic & "\"
|
|
Return m_HardwareGeneral.Path & "\" & ModelDir & sLastTemplate & LUA_EXTENSION
|
|
End Function
|
|
|
|
Public Sub New()
|
|
' ogni nuovo hardware che creao devo avere la lista di componenti vuota
|
|
Me.ClearGroupChapters()
|
|
End Sub
|
|
|
|
#End Region ' Genaral Function
|
|
|
|
Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
|
|
Public Sub NotifyPropertyChanged(propName As String)
|
|
RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propName))
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
Public Class TypeHardware
|
|
Inherits VMBase
|
|
|
|
Private m_Name As String
|
|
Public Property Name As String
|
|
Get
|
|
Return m_Name
|
|
End Get
|
|
Set(value As String)
|
|
m_Name = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_NameINI As String
|
|
Public Property NameINI As String
|
|
Get
|
|
Return m_NameINI
|
|
End Get
|
|
Set(value As String)
|
|
m_NameINI = value
|
|
End Set
|
|
End Property
|
|
|
|
Sub New(Name As String, NameINI As String)
|
|
m_Name = Name
|
|
m_NameINI = NameINI
|
|
NotifyPropertyChanged("Name")
|
|
NotifyPropertyChanged("NameINI")
|
|
End Sub
|
|
|
|
End Class
|