Issue #900: allow modify length of index with binary column

ansgarbecker · ansgarbecker · commit c9a23b2be72c · 2025-10-13T17:12:43.000+02:00
diff --git a/source/table_editor.pas b/source/table_editor.pas
@@ -2281,7 +2281,7 @@ procedure TfrmTableEditor.treeIndexesEditing(Sender: TBaseVirtualTree;
       IndexedColName := VT.Text[Node, 0];
       for i:=0 to FColumns.Count-1 do begin
         if FColumns[i].Name = IndexedColName then begin
-          Allowed := FColumns[i].DataType.Category = dtcText;
+          Allowed := FColumns[i].DataType.Category in [dtcText, dtcBinary];
           break;
         end;
       end;
