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

Issue #1503: move SaveListSetup and RestoreListSetup to extra_controls unit, and handle column widths DPI independently

Browse Source
This commit is contained in:
Ansgar Becker
2021-12-26 13:58:25 +01:00
parent 500cad6e9a
commit 142e26ec22
7 changed files with 166 additions and 163 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
source/routine_editor.pas
View File

@ -4,7 +4,7 @@ interface
uses
Windows, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, SynEdit, SynMemo, StdCtrls,
ComCtrls, ToolWin, VirtualTrees, SynRegExpr,
ComCtrls, ToolWin, VirtualTrees, SynRegExpr, extra_controls,
dbconnection, apphelpers, gnugettext, Vcl.Menus, Vcl.ExtCtrls;
type
@ -112,8 +112,6 @@ begin
comboSecurity.Items.Add('Definer');
comboSecurity.Items.Add('Invoker');
Mainform.SynCompletionProposal.AddEditor(SynMemoBody);
FixVT(listParameters);
Mainform.RestoreListSetup(listParameters);
Parameters := TRoutineParamList.Create;
editName.MaxLength := NAME_LEN;
end;
@ -122,7 +120,7 @@ end;
destructor TfrmRoutineEditor.Destroy;
begin
// Store GUI setup
Mainform.SaveListSetup(listParameters);
TExtForm.SaveListSetup(listParameters);
inherited;
end;
@ -132,6 +130,8 @@ var
i: Integer;
begin
inherited;
FixVT(listParameters);
TExtForm.RestoreListSetup(listParameters);
if Obj.NodeType = lntProcedure then FAlterRoutineType := 'PROCEDURE'
else FAlterRoutineType := 'FUNCTION';
editName.Text := DBObject.Name;