opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Autofit first '#' column in routine editor, which has not enough width in some cases. Fixes issue #2993.

Browse Source
This commit is contained in:
Ansgar Becker
2012-10-19 06:14:13 +00:00
parent 505ede02aa
commit a9ce7eb5b9
2 changed files with 11 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
source/routine_editor.dfm
View File

@@ -276,6 +276,7 @@ object frmRoutineEditor: TfrmRoutineEditor
TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toFullRepaintOnResize, toGridExtensions, toInitOnSave, toToggleOnDblClick, toWheelPanning, toEditOnClick]
TreeOptions.PaintOptions = [toHideFocusRect, toHotTrack, toShowButtons, toShowDropmark, toShowHorzGridLines, toShowVertGridLines, toThemeAware, toUseBlendedImages, toFullVertGridLines, toUseExplorerTheme]
TreeOptions.SelectionOptions = [toExtendedFocus, toFullRowSelect]
OnAfterPaint = listParametersAfterPaint
OnBeforePaint = listParametersBeforePaint
OnCreateEditor = listParametersCreateEditor
OnEditing = listParametersEditing
@@ -286,7 +287,6 @@ object frmRoutineEditor: TfrmRoutineEditor
OnNewText = listParametersNewText
Columns = <
item
Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coShowDropMark, coVisible, coAllowFocus]
Position = 0
Width = 25
WideText = '#'

10
source/routine_editor.pas
View File

@@ -76,6 +76,8 @@ type
procedure btnDiscardClick(Sender: TObject);
procedure comboDefinerDropDown(Sender: TObject);
procedure btnMoveParamClick(Sender: TObject);
procedure listParametersAfterPaint(Sender: TBaseVirtualTree;
TargetCanvas: TCanvas);
private
{ Private declarations }
FAlterRoutineType: String;
@@ -189,6 +191,7 @@ 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;
@@ -266,6 +269,13 @@ 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