- Creato l'oggetto EgtDataGridColumn per gestire diverse proprietà (Width, IsReadOnly, DisplayIndex, ecc.) per ogni colonna singolarmente di una EgtDataGrid

- Aggiunta gestione colonne (e relative proprietà) delle EgtDataGrid tramite lettura/scrittura su file ini
2021-07-12 17:29:51 +02:00
parent a20f40085c
commit f1640f75f8
15 changed files with 339 additions and 168 deletions
@@ -0,0 +1,41 @@
+Imports System.Collections.ObjectModel
+Imports EgtUILib
+Imports EgtWPFLib5
+
+Friend Module DataGridColumnsIniFile
+
+   Public m_sDataGridColumnsIniFile As String
+
+   Public Function GetPrivateProfileColumns(ParentDGName As String, ByRef ocColumns As ObservableCollection(Of EgtDataGridColumn)) As Boolean
+      Dim colIndex As Integer = 0
+      Dim str = String.Empty
+      While EgtUILib.GetPrivateProfileString(ParentDGName, colIndex, String.Empty, str, m_sDataGridColumnsIniFile) > 0
+         Dim sColumnParams() As String = str.Split(","c)
+         ' verifico numero minimo di parametri
+         If sColumnParams.Count >= 7 Then
+            ' cancello spazi
+            For index = 0 To sColumnParams.Count - 1
+               sColumnParams(index) = sColumnParams(index).Trim()
+            Next
+            ' creo colonna
+            Dim sName = sColumnParams(0)
+            Dim bReorder As Boolean = sColumnParams(1).Equals("1")
+            Dim bResize As Boolean = sColumnParams(2).Equals("1")
+            Dim bSort As Boolean = sColumnParams(3).Equals("1")
+            Dim bIsReadOnly As Boolean = sColumnParams(4).Equals("1")
+            Dim Width As Double
+            Dim WidthType As DataGridLengthUnitType
+            StringToDouble(sColumnParams(5), Width)
+            Integer.TryParse(sColumnParams(6), WidthType)
+            ocColumns.Add(New EgtDataGridColumn(ParentDGName, sName, bReorder, bResize, bSort, bIsReadOnly, New DataGridLength(Width, WidthType)))
+         End If
+         colIndex += 1
+      End While
+      Return ocColumns.Count > 0
+   End Function
+
+   Public Function WriteColumnPrivateProfileParam(ParentDataGridName As String, DisplayIndex As String, sColumnParams As String) As Boolean
+      Return WritePrivateProfileString(ParentDataGridName, DisplayIndex, sColumnParams, m_sDataGridColumnsIniFile)
+   End Function
+
+End Module