From ac3f8e2438209104ea2a5da801ae4bb48a525bd7 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Wed, 2 Apr 2014 04:42:17 +0000
Subject: [PATCH] Disable UNSIGNED and ZEROFILL checkboxes for BIT type
 columns. See http://www.heidisql.com/forum.php?t=15354

---
 source/table_editor.pas | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/source/table_editor.pas b/source/table_editor.pas
index 7145a63f..188e1059 100644
--- a/source/table_editor.pas
+++ b/source/table_editor.pas
@@ -990,7 +990,9 @@ begin
     0: Result := False;
     3: Result := Col.DataType.HasLength;
     4: begin
-      Result := (Col.DataType.Category in [dtcInteger, dtcReal]) and (DBObject.Connection.Parameters.IsMySQL);
+      Result := (Col.DataType.Category in [dtcInteger, dtcReal])
+        and (Col.DataType.Index <> dtBit)
+        and (DBObject.Connection.Parameters.IsMySQL);
       if (not Result) and Col.Unsigned then begin
         Col.Unsigned := False;
         Col.Status := esModified;
@@ -1011,7 +1013,9 @@ begin
       end;
     end;
     6: begin
-      Result := (Col.DataType.Category in [dtcInteger, dtcReal]) and (DBObject.Connection.Parameters.IsMySQL);
+      Result := (Col.DataType.Category in [dtcInteger, dtcReal])
+        and (Col.DataType.Index <> dtBit)
+        and (DBObject.Connection.Parameters.IsMySQL);
       if (not Result) and Col.ZeroFill then begin
         Col.ZeroFill := False;
         Col.Status := esModified;