From 9887b008598a5748df62dc6e73ed6c9d13d2d775 Mon Sep 17 00:00:00 2001
From: SchreiberM <m.schreiber@didalog.de>
Date: Thu, 19 May 2016 17:05:33 +0200
Subject: [PATCH] MS

---
 .../frmConstructor_Main.resx                  |  2 +-
 .../frmConstructor_Main.vb                    | 28 +++++++++++--------
 2 files changed, 17 insertions(+), 13 deletions(-)

diff --git a/app/DD-Record-Organiser/frmConstructor_Main.resx b/app/DD-Record-Organiser/frmConstructor_Main.resx
index 50955b9..fa5b82a 100644
--- a/app/DD-Record-Organiser/frmConstructor_Main.resx
+++ b/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>
diff --git a/app/DD-Record-Organiser/frmConstructor_Main.vb b/app/DD-Record-Organiser/frmConstructor_Main.vb
index 1585c28..474e062 100644
--- a/app/DD-Record-Organiser/frmConstructor_Main.vb
+++ b/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"}
-
-        If GRID_TYPE = GridType.Carousel Or GRID_TYPE = GridType.Tiles Then
-            DefaultHiddenColumns.AddRange(QuickHiddenColumns)
-        End If
+        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"}
 
-        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)