fix: allow modify length of index with binary column

ansgarbecker · ansgarbecker · commit 173efeb6aa4f · 2025-10-26T14:07:11.000+01:00
Refs #900
diff --git a/source/table_editor.pas b/source/table_editor.pas
@@ -2258,7 +2258,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;
