Fix staying invisible columns in data grid after deselecting one or more and reselecting them.

This commit is contained in:
Ansgar Becker
2010-03-14 12:02:11 +00:00
parent 17e4a63f81
commit c82fa61eb1

View File

@@ -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;