MS

app/DD-Record-Organiser/frmConstructor_Main.resx

@@ -1484,7 +1484,7 @@
     <value>False</value>
   </data>
   <data name="tslblFileslocked.Size" type="System.Drawing.Size, System.Drawing">
-    <value>110, 16</value>
+    <value>110, 22</value>
   </data>
   <data name="tslblFileslocked.Text" xml:space="preserve">
     <value>Kein Dateizugriff</value>

app/DD-Record-Organiser/frmConstructor_Main.vb

@@ -170,7 +170,6 @@ Public Class frmConstructor_Main
             End Try
         End If
 
-
         _FormClosing = True
         ' Check_Record_Changed()
         CloseWDDocview()
@@ -538,19 +537,24 @@ Public Class frmConstructor_Main
     End Sub
 
     Public Sub Hide_Grid_Columns()
-        Dim DefaultHiddenColumns As New List(Of String) From {"Record-ID", "Form-ID"}
-        Dim QuickHiddenColumns As New List(Of String) From {"AddedWho", "AddedWhen", "ChangedWho", "ChangedWhen"}
+        Try
+            Dim DefaultHiddenColumns As New List(Of String) From {"Record-ID", "Form-ID", "ROW_COLOR"}
+            Dim QuickHiddenColumns As New List(Of String) From {"AddedWho", "AddedWhen", "ChangedWho", "ChangedWhen"}
 
-        If GRID_TYPE = GridType.Carousel Or GRID_TYPE = GridType.Tiles Then
-            DefaultHiddenColumns.AddRange(QuickHiddenColumns)
-        End If
-
-        For Each colname As String In DefaultHiddenColumns
-            Dim col = grvwTiles.Columns.Item(colname)
-            If col IsNot Nothing Then
-                col.Visible = False
+            If GRID_TYPE = GridType.Carousel Or GRID_TYPE = GridType.Tiles Then
+                DefaultHiddenColumns.AddRange(QuickHiddenColumns)
             End If
-        Next
+
+            For Each colname As String In DefaultHiddenColumns
+                Dim col = grvwTiles.Columns.Item(colname)
+                If col IsNot Nothing Then
+                    col.Visible = False
+                End If
+            Next
+        Catch ex As Exception
+            ClassLogger.Add(">> Unexpected Error in Hide_Grid_Columns")
+        End Try
+      
     End Sub
 
     'Public Function Get_Grid_Sql(ConstructorId As Integer, FormId As Integer)