opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Don't auto-fit width of columns in routine parameter tree. Just store and restore what the user has set. Closes #903.

Browse Source
This commit is contained in:
Ansgar Becker
2020-02-22 16:47:18 +01:00
parent 05d02627f3
commit bb86bf4944
2 changed files with 1 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
source/routine_editor.dfm
View File

@ -299,13 +299,12 @@ object frmRoutineEditor: TfrmRoutineEditor
item item
Position = 0 Position = 0
Text = '#' Text = '#'
Width = 25
end end
item item
Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus] Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus]
Position = 1 Position = 1
Text = 'Name' Text = 'Name'
Width = 419 Width = 390
end end
item item
Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus] Options = [coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus]

10
source/routine_editor.pas
View File

@ -77,8 +77,6 @@ type
procedure btnDiscardClick(Sender: TObject); procedure btnDiscardClick(Sender: TObject);
procedure comboDefinerDropDown(Sender: TObject); procedure comboDefinerDropDown(Sender: TObject);
procedure btnMoveParamClick(Sender: TObject); procedure btnMoveParamClick(Sender: TObject);
procedure listParametersAfterPaint(Sender: TBaseVirtualTree;
TargetCanvas: TCanvas);
private private
{ Private declarations } { Private declarations }
FAlterRoutineType: String; FAlterRoutineType: String;
@ -198,7 +196,6 @@ begin
Modified := True; Modified := True;
btnSave.Enabled := Modified and (editName.Text <> ''); btnSave.Enabled := Modified and (editName.Text <> '');
btnDiscard.Enabled := Modified; btnDiscard.Enabled := Modified;
listParameters.Header.AutoFitColumns(False, smaUseColumnOption, 0, 0);
SynMemoCreateCode.Text := ComposeCreateStatement(editName.Text); SynMemoCreateCode.Text := ComposeCreateStatement(editName.Text);
end; end;
@ -276,13 +273,6 @@ begin
end; end;
procedure TfrmRoutineEditor.listParametersAfterPaint(Sender: TBaseVirtualTree;
TargetCanvas: TCanvas);
begin
listParameters.Header.AutoFitColumns(False, smaUseColumnOption, 0, 0);
end;
procedure TfrmRoutineEditor.listParametersBeforePaint(Sender: TBaseVirtualTree; procedure TfrmRoutineEditor.listParametersBeforePaint(Sender: TBaseVirtualTree;
TargetCanvas: TCanvas); TargetCanvas: TCanvas);
begin begin