Egalware/egtbeamwall
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Optimizer 2.7.11.6

Browse Source 
-piccola modifica su colonne editabile
This commit is contained in:
Demetrio Cassarino
2025-11-17 12:47:15 +01:00
parent 24b9809353
commit 7ed7ad27ee
3 changed files with 13 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files
EgtBEAMWALL.Optimizer/ItemParamList/PParameterListVM.vb
-9
View File
@@ -110,18 +110,9 @@ Public Class PParameterListVM
' Aggiungo riferimento a Map
Map.SetRefPParameterListVM(Me)
'Dim NewColumnList As New ObservableCollection(Of EgwWPFBaseLib.ColumnLayout)({New EgwWPFBaseLib.ColumnLayout("colNAME", DataGridLengthUnitType.Auto, 1, True, Nothing, False, False, True, True, False, False),
' New EgwWPFBaseLib.ColumnLayout("colDESC", DataGridLengthUnitType.Pixel, 30, True, Nothing, True, True, True, True, True, True),
' New EgwWPFBaseLib.ColumnLayout("colVALUE", DataGridLengthUnitType.Pixel, 30, True, Nothing, True, True, True, False, True, True),
' New EgwWPFBaseLib.ColumnLayout("colMIN", DataGridLengthUnitType.Pixel, 30, True, Nothing, True, True, True, False, True, True),
' New EgwWPFBaseLib.ColumnLayout("colMAX", DataGridLengthUnitType.Pixel, 30, True, Nothing, True, True, True, False, True, True)})
'EgwWPFBaseLib.EgwDataGrid.WriteColumnLayout(Path.ChangeExtension(DataGridColumnsIniFile.m_sDataGridColumnsIniFile, ".json"), S_PARAMETERLIST_P, NewColumnList)
' carico le colonne della datagrid
EgwWPFBaseLib.EgwDataGrid.ReadColumnLayout(Path.ChangeExtension(DataGridColumnsIniFile.m_sDataGridColumnsIniFile, ".json"), S_PARAMETERLIST_P, PParameterListColumns)
'' carico le colonne della datagrid
'GetPrivateProfileColumns(S_PARAMETERLIST_P, PParameterListColumns)
' recupero riferimento a colonna Value
m_colPParam_Value = PParameterListColumns.FirstOrDefault(Function(x) x.Key = COL_VALUE)
End Sub
EgtBEAMWALL.Optimizer/My Project/AssemblyInfo.vb
+1 -1
View File
@@ -67,5 +67,5 @@ Imports System.Windows
' Revision
'
<Assembly: AssemblyVersion("2.7.11.5")>
<Assembly: AssemblyVersion("2.7.11.6")>
<Assembly: AssemblyFileVersion("2.7.11.5")>
EgtBEAMWALL.Optimizer/Project/ProjectVM.vb
+12 -15
View File
@@ -475,39 +475,51 @@ Public Class ProjectVM
ManageIsEnabled(True)
' aggiungere gestione colonne editabili delle tabelle
If Not IsNothing(Map.refPartListVM.colPart_Do) Then
Map.refPartListVM.colPart_Do.IsReadOnly = False
Map.refPartListVM.colPart_Do.ResetIsReadOnlyToOrig()
End If
If Not IsNothing(Map.refPParameterListVM.colPParam_Value) Then
Map.refPParameterListVM.colPParam_Value.IsReadOnly = False
Map.refPParameterListVM.colPParam_Value.ResetIsReadOnlyToOrig()
End If
If Not IsNothing(Map.refRawPartListVM.colRawPart_StartCut) Then
Map.refRawPartListVM.colRawPart_StartCut.IsReadOnly = False
Map.refRawPartListVM.colRawPart_StartCut.ResetIsReadOnlyToOrig()
End If
If m_BTLStructureVM.nPROJTYPE <> BWType.BEAM AndAlso Not IsNothing(Map.refRawPartListVM.colRawPart_W) Then
Map.refRawPartListVM.colRawPart_W.IsReadOnly = False
Map.refRawPartListVM.colRawPart_W.ResetIsReadOnlyToOrig()
End If
If Not IsNothing(Map.refRawPartListVM.colRawPart_L) Then
Map.refRawPartListVM.colRawPart_L.IsReadOnly = False
Map.refRawPartListVM.colRawPart_L.ResetIsReadOnlyToOrig()
End If
If Not IsNothing(Map.refRawPartListVM.colRawPart_PosZ) Then
Map.refRawPartListVM.colRawPart_PosZ.IsReadOnly = False
Map.refRawPartListVM.colRawPart_PosZ.ResetIsReadOnlyToOrig()
End If
If Not IsNothing(Map.refRawPartListVM.colPartInRawPart_Offset) Then
Map.refRawPartListVM.colPartInRawPart_Offset.IsReadOnly = False
Map.refRawPartListVM.colPartInRawPart_Offset.ResetIsReadOnlyToOrig()
End If
If Not IsNothing(Map.refRawPartListVM.colPartInRawPart_Rot) Then
Map.refRawPartListVM.colPartInRawPart_Rot.IsReadOnly = False
Map.refRawPartListVM.colPartInRawPart_Rot.ResetIsReadOnlyToOrig()
End If
If Not IsNothing(Map.refRawPartListVM.colPartInRawPart_Flip) Then
Map.refRawPartListVM.colPartInRawPart_Flip.IsReadOnly = False
Map.refRawPartListVM.colPartInRawPart_Flip.ResetIsReadOnlyToOrig()
End If
If Not IsNothing(Map.refRawPartListVM.colPartInRawPart_PosX) Then
Map.refRawPartListVM.colPartInRawPart_PosX.IsReadOnly = False
Map.refRawPartListVM.colPartInRawPart_PosX.ResetIsReadOnlyToOrig()
End If
If Not IsNothing(Map.refRawPartListVM.colPartInRawPart_PosY) Then
Map.refRawPartListVM.colPartInRawPart_PosY.IsReadOnly = False
Map.refRawPartListVM.colPartInRawPart_PosY.ResetIsReadOnlyToOrig()
End If
If Not IsNothing(Map.refFeatureInPartInRawPartListVM.colFeatureInPartInRawPart_Do) Then
Map.refFeatureInPartInRawPartListVM.colFeatureInPartInRawPart_Do.IsReadOnly = False
Map.refFeatureInPartInRawPartListVM.colFeatureInPartInRawPart_Do.ResetIsReadOnlyToOrig()
End If
' fermo il timer
@@ -520,21 +532,6 @@ Public Class ProjectVM
End Sub
'Friend Sub ManageQParamsRowVisibility(bVisible As Boolean)
' If bVisible Then
' DimensionsIniFile.ReadGridDimensions(ConstDims.TOPPANEL_OPTIMIZER, GridDims)
' Else
' GridDimension.SetSoftwareMod(True)
' Dim FeatureRow = m_GridDims(4)
' Dim QParRow = m_GridDims(5)
' m_GridDims(4).GridLen = New GridLength(1, GridUnitType.Star)
' m_GridDims(4).NotifyPropertyChanged(NameOf(FeatureRow.GridLen))
' m_GridDims(5).GridLen = New GridLength(0)
' m_GridDims(5).NotifyPropertyChanged(NameOf(QParRow.GridLen))
' GridDimension.SetSoftwareMod(False)
' End If
'End Sub
Friend Sub NotifyAllPanelVisibility()
NotifyPropertyChanged(NameOf(FeatureManager_Visibility))
NotifyPropertyChanged(NameOf(ShowBeamPanel_Visibility))