From b49cd51ff98dffa45954ecc01ca28165ae4bdbe1 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <anse@heidisql.com>
Date: Fri, 4 Feb 2022 06:58:36 +0100
Subject: [PATCH] Issue #1503: scale hardcoded control dimensions in column
 default editor

---
 source/grideditlinks.pas | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/source/grideditlinks.pas b/source/grideditlinks.pas
index 0cc9d29f..47f6b983 100644
--- a/source/grideditlinks.pas
+++ b/source/grideditlinks.pas
@@ -1251,13 +1251,15 @@ end;
 { Column default editor }
 
 constructor TColumnDefaultEditorLink.Create(Tree: TVirtualStringTree; AllowEdit: Boolean; Col: TTableColumn);
-const
-  m = 5;
 var
   SQLFunc: TSQLFunction;
+  m: Integer;
 begin
   inherited;
 
+  // Margin between controls and to edge of panel
+  m := TExtForm.ScaleSize(5, FParentForm);
+
   FPanel := TPanel.Create(FParentForm);
   FPanel.Hide;
   FPanel.Parent := FParentForm;
@@ -1357,7 +1359,7 @@ begin
 
   FBtnOk := TButton.Create(FPanel);
   FBtnOk.Parent := FPanel;
-  FBtnOk.Width := 60;
+  FBtnOk.Width := TExtForm.ScaleSize(60, FParentForm);
   FBtnOk.Top := FRadioAutoInc.Top + FRadioAutoInc.Height + m;
   FBtnOk.Left := FPanel.Width - 3*m - 2*FBtnOk.Width - 2*FPanel.BorderWidth;
   FBtnOk.OnClick := BtnOkClick;