From c82fa61eb1193aefd631774342afdb82f0611344 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Sun, 14 Mar 2010 12:02:11 +0000
Subject: [PATCH] Fix staying invisible columns in data grid after deselecting
 one or more and reselecting them.

---
 source/main.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/source/main.pas b/source/main.pas
index 507088e6..9f54e648 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -3495,7 +3495,9 @@ var
     col.Hint := TblCol.Comment;
     col.Options := col.Options + [coSmartResize];
     if DatagridHiddenColumns.IndexOf(TblCol.Name) > -1 then
-      col.Options := col.Options - [coVisible];
+      col.Options := col.Options - [coVisible]
+    else
+      col.Options := col.Options + [coVisible];
     // Sorting color and title image
     col.Color := clWindow;
     col.ImageIndex := -1;