feat: auto-adjust width of various combo boxes

refs #2551

Author: ansgarbecker

source/connections.dfm

@@ -343,6 +343,7 @@ object connform: Tconnform
         Top = 36
         Width = 316
         Height = 22
+        AutoDropDownWidth = True
         Style = csDropDownList
         Anchors = [akLeft, akTop, akRight]
         TabOrder = 1

source/createdatabase.dfm

@@ -87,6 +87,7 @@ object CreateDatabaseForm: TCreateDatabaseForm
     Top = 42
     Width = 213
     Height = 21
+    AutoDropDownWidth = True
     Style = csDropDownList
     DropDownCount = 16
     Sorted = True

source/customize_highlighter.dfm

@@ -45,6 +45,7 @@ object frmCustomizeHighlighter: TfrmCustomizeHighlighter
     Top = 8
     Width = 145
     Height = 23
+    AutoDropDownWidth = True
     Style = csDropDownList
     Sorted = True
     TabOrder = 0

source/event_editor.dfm

@@ -171,6 +171,7 @@ object frmEventEditor: TfrmEventEditor
         Top = 3
         Width = 194
         Height = 21
+        AutoDropDownWidth = True
         Anchors = [akLeft, akTop, akRight]
         TabOrder = 4
         Text = 'comboDefiner'
@@ -247,6 +248,7 @@ object frmEventEditor: TfrmEventEditor
         Top = 48
         Width = 133
         Height = 21
+        AutoDropDownWidth = True
         Style = csDropDownList
         TabOrder = 6
         OnChange = comboEveryIntervalChange

source/grideditlinks.pas

@@ -969,6 +969,7 @@ function TEnumEditorLink.PrepareEdit(Tree: TBaseVirtualTree; Node: PVirtualNode;
       FCombo.Items.AddStrings(DisplayList)
     else
       FCombo.Items.AddStrings(ValueList);
+    FCombo.AutoDropDownWidth := True;
     FCombo.ItemIndex := ValueList.IndexOf(FCellText);
     if AllowCustomText and FAllowEdit then begin
       FCombo.Style := csDropDown;

source/insertfiles.dfm

@@ -86,6 +86,7 @@ object frmInsertFiles: TfrmInsertFiles
       Top = 23
       Width = 159
       Height = 21
+      AutoDropDownWidth = True
       Style = csDropDownList
       Anchors = [akLeft, akTop, akRight]
       TabOrder = 1

source/routine_editor.dfm

@@ -239,6 +239,7 @@ object frmRoutineEditor: TfrmRoutineEditor
         Top = 87
         Width = 310
         Height = 21
+        AutoDropDownWidth = True
         TabOrder = 4
         Text = 'comboReturns'
         OnChange = Modification
@@ -267,6 +268,7 @@ object frmRoutineEditor: TfrmRoutineEditor
         Top = 8
         Width = 194
         Height = 21
+        AutoDropDownWidth = True
         Anchors = [akLeft, akTop, akRight]
         TabOrder = 1
         Text = 'comboDefiner'

source/table_editor.dfm

@@ -150,6 +150,7 @@ object frmTableEditor: TfrmTableEditor
         Top = 3
         Width = 102
         Height = 23
+        AutoDropDownWidth = True
         Style = csDropDownList
         DropDownCount = 16
         Sorted = True
@@ -178,6 +179,7 @@ object frmTableEditor: TfrmTableEditor
         Top = 26
         Width = 221
         Height = 23
+        AutoDropDownWidth = True
         Style = csDropDownList
         TabOrder = 7
         OnSelect = comboEngineSelect

source/tabletools.dfm

@@ -472,6 +472,7 @@ object frmTableTools: TfrmTableTools
             Top = 127
             Width = 422
             Height = 22
+            AutoDropDownWidth = True
             Anchors = [akLeft, akTop, akRight]
             DropDownCount = 16
             ParentShowHint = False
@@ -532,6 +533,7 @@ object frmTableTools: TfrmTableTools
             Top = 3
             Width = 339
             Height = 22
+            AutoDropDownWidth = True
             Style = csDropDownList
             Anchors = [akLeft, akTop, akRight]
             Enabled = False
@@ -560,6 +562,7 @@ object frmTableTools: TfrmTableTools
             Top = 49
             Width = 339
             Height = 22
+            AutoDropDownWidth = True
             Style = csDropDownList
             Anchors = [akLeft, akTop, akRight]
             DropDownCount = 16
@@ -581,6 +584,7 @@ object frmTableTools: TfrmTableTools
             Top = 26
             Width = 339
             Height = 22
+            AutoDropDownWidth = True
             Style = csDropDownList
             Anchors = [akLeft, akTop, akRight]
             Enabled = False
@@ -600,6 +604,7 @@ object frmTableTools: TfrmTableTools
             Top = 72
             Width = 339
             Height = 22
+            AutoDropDownWidth = True
             Style = csDropDownList
             Anchors = [akLeft, akTop, akRight]
             DropDownCount = 16

source/texteditor.dfm

@@ -151,6 +151,7 @@ object frmTextEditor: TfrmTextEditor
       Width = 145
       Height = 22
       Align = alLeft
+      AutoDropDownWidth = True
       Style = csDropDownList
       Sorted = True
       TabOrder = 1