From bb86bf4944579d1fe80bf664b3a5bfef6e8e671f Mon Sep 17 00:00:00 2001
From: Ansgar Becker <anse@heidisql.com>
Date: Sat, 22 Feb 2020 16:47:18 +0100
Subject: [PATCH] Don't auto-fit width of columns in routine parameter tree.
 Just store and restore what the user has set. Closes #903.

---
 source/routine_editor.dfm |  3 +--
 source/routine_editor.pas | 10 ----------
 2 files changed, 1 insertion(+), 12 deletions(-)

diff --git a/source/routine_editor.dfm b/source/routine_editor.dfm
index 5f687ba7..5f47a25f 100644
--- a/source/routine_editor.dfm
+++ b/source/routine_editor.dfm
@@ -299,13 +299,12 @@ object frmRoutineEditor: TfrmRoutineEditor
           item
             Position = 0
             Text = '#'
-            Width = 25
           end
           item
             Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus]
             Position = 1
             Text = 'Name'
-            Width = 419
+            Width = 390
           end
           item
             Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus]
diff --git a/source/routine_editor.pas b/source/routine_editor.pas
index 4863659b..27909441 100644
--- a/source/routine_editor.pas
+++ b/source/routine_editor.pas
@@ -77,8 +77,6 @@ type
     procedure btnDiscardClick(Sender: TObject);
     procedure comboDefinerDropDown(Sender: TObject);
     procedure btnMoveParamClick(Sender: TObject);
-    procedure listParametersAfterPaint(Sender: TBaseVirtualTree;
-      TargetCanvas: TCanvas);
   private
     { Private declarations }
     FAlterRoutineType: String;
@@ -198,7 +196,6 @@ begin
   Modified := True;
   btnSave.Enabled := Modified and (editName.Text <> '');
   btnDiscard.Enabled := Modified;
-  listParameters.Header.AutoFitColumns(False, smaUseColumnOption, 0, 0);
   SynMemoCreateCode.Text := ComposeCreateStatement(editName.Text);
 end;
 
@@ -276,13 +273,6 @@ begin
 end;
 
 
-procedure TfrmRoutineEditor.listParametersAfterPaint(Sender: TBaseVirtualTree;
-  TargetCanvas: TCanvas);
-begin
-  listParameters.Header.AutoFitColumns(False, smaUseColumnOption, 0, 0);
-end;
-
-
 procedure TfrmRoutineEditor.listParametersBeforePaint(Sender: TBaseVirtualTree;
   TargetCanvas: TCanvas);
 begin