fix: crash on macOS while setting listForeignKeys.Width

ansgarbecker · ansgarbecker · commit 6727efc567ec · 2026-08-06T16:06:32.000+02:00
Refs #2570
diff --git a/source/table_editor.lfm b/source/table_editor.lfm
@@ -617,7 +617,7 @@ object frmTableEditor: TfrmTableEditor
         Height = 142
         Top = 0
         Width = 178
-        Anchors = [akTop, akLeft, akRight, akBottom]
+        Anchors = [akTop, akRight, akBottom]
         AutoWidthLastColumn = True
         BorderStyle = bsNone
         Columns = <        
@@ -649,7 +649,7 @@ object frmTableEditor: TfrmTableEditor
         Top = 0
         Width = 8
         Align = alNone
-        Anchors = [akTop, akBottom]
+        Anchors = [akTop, akRight, akBottom]
         ResizeAnchor = akRight
         Visible = False
       end
diff --git a/source/table_editor.pas b/source/table_editor.pas
@@ -1116,7 +1116,8 @@ procedure TfrmTableEditor.btnShowReverseForeignKeysClick(Sender: TObject);
   else begin
     ListViewReverseForeignKeys.Visible := False;
     spltForeignKeyListings.Visible := False;
-    listForeignKeys.Width := listForeignKeys.Parent.Width - tlbForeignKeys.Width;
+    // Issue #2570: following line would crash on macOS. No need to set the width with correct anchoring.
+    // listForeignKeys.Width := listForeignKeys.Parent.Width - tlbForeignKeys.Width;
   end;
   AppSettings.WriteBool(asDisplayReverseForeignKeys, DoShow);
 end;
