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

Save and restore layout of procedure parameter tree.

Browse Source
This commit is contained in:
Ansgar Becker
2010-02-17 08:42:48 +00:00
parent 526a4c5424
commit aadb5c42d1
1 changed files with 11 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
source/routine_editor.pas
View File

@ -72,6 +72,7 @@ type
public public
{ Public declarations } { Public declarations }
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Init(ObjectName: String=''; ObjectType: TListNodeType=lntNone); override; procedure Init(ObjectName: String=''; ObjectType: TListNodeType=lntNone); override;
function ApplyModifications: TModalResult; override; function ApplyModifications: TModalResult; override;
end; end;
@ -107,11 +108,21 @@ begin
comboReturns.Items.Add(Datatypes[i].Name); comboReturns.Items.Add(Datatypes[i].Name);
Mainform.SynCompletionProposal.AddEditor(SynMemoBody); Mainform.SynCompletionProposal.AddEditor(SynMemoBody);
FixVT(listParameters); FixVT(listParameters);
Mainform.RestoreListSetup(listParameters);
Parameters := TStringList.Create; Parameters := TStringList.Create;
editName.MaxLength := NAME_LEN; editName.MaxLength := NAME_LEN;
end; end;
destructor TfrmRoutineEditor.Destroy;
begin
// Store GUI setup
OpenRegistry;
Mainform.SaveListSetup(listParameters);
inherited;
end;
procedure TfrmRoutineEditor.Init(ObjectName: String=''; ObjectType: TListNodeType=lntNone); procedure TfrmRoutineEditor.Init(ObjectName: String=''; ObjectType: TListNodeType=lntNone);
var var
Results: TMySQLQuery; Results: TMySQLQuery;