fix: default name for new constraint too long for MySQL

Refs #2609

Author: ansgarbecker

source/table_editor.pas

@@ -3126,6 +3126,7 @@ procedure TfrmTableEditor.listForeignKeysNewText(Sender: TBaseVirtualTree;
   RefColumns: TTableColumnList;
   TypesMatch: Boolean;
   RefObj: TDBObject;
+  NewConstraintNameBase: String;
 begin
   // Cell text in foreign key list edited
   Key := FForeignKeys[Node.Index];
@@ -3140,7 +3141,8 @@ procedure TfrmTableEditor.listForeignKeysNewText(Sender: TBaseVirtualTree;
     2: begin
       Key.ReferenceTable := NewText;
       if not Key.KeyNameWasCustomized then begin
-        Key.KeyName := 'FK_'+editName.Text+'_'+Key.ReferenceTable;
+        NewConstraintNameBase := 'FK_' + Copy(editName.Text, 1, 25) + '_' + Copy(Key.ReferenceTable, 1, 25);
+        Key.KeyName := NewConstraintNameBase;
         i := 1;
         NameInUse := True;
         while NameInUse do begin
@@ -3150,7 +3152,7 @@ procedure TfrmTableEditor.listForeignKeysNewText(Sender: TBaseVirtualTree;
           end;
           if NameInUse then begin
             Inc(i);
-            Key.KeyName := 'FK_'+editName.Text+'_'+Key.ReferenceTable+'_'+IntToStr(i);
+            Key.KeyName := NewConstraintNameBase + '_' + IntToStr(i);
           end;
         end;