fix: Initial FK names assigned in TfrmTableEditor.listForeignKeysNewText() were lacking the referencing table's table name in case the referencing table was not created yet (pr from Jochen Neubeck)

ansgarbecker · ansgarbecker · commit d8cd61c08db3 · 2026-02-12T18:25:31.000+01:00
Closes #1835
diff --git a/source/table_editor.pas b/source/table_editor.pas
@@ -2998,7 +2998,7 @@ procedure TfrmTableEditor.listForeignKeysNewText(Sender: TBaseVirtualTree;
     2: begin
       Key.ReferenceTable := NewText;
       if not Key.KeyNameWasCustomized then begin
-        Key.KeyName := 'FK_'+DBObject.Name+'_'+Key.ReferenceTable;
+        Key.KeyName := 'FK_'+editName.Text+'_'+Key.ReferenceTable;
         i := 1;
         NameInUse := True;
         while NameInUse do begin
@@ -3008,7 +3008,7 @@ procedure TfrmTableEditor.listForeignKeysNewText(Sender: TBaseVirtualTree;
           end;
           if NameInUse then begin
             Inc(i);
-            Key.KeyName := 'FK_'+DBObject.Name+'_'+Key.ReferenceTable+'_'+IntToStr(i);
+            Key.KeyName := 'FK_'+editName.Text+'_'+Key.ReferenceTable+'_'+IntToStr(i);
           end;
         end;
 
