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: fix unsaved setup of columns in lists on object editors (table + routine editors effectively are the only ones with lists)

Browse Source
This commit is contained in:
Ansgar Becker
2022-02-21 17:35:25 +01:00
parent 17768f419b
commit e505b54bdd
4 changed files with 22 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
source/routine_editor.pas
View File

@ -85,8 +85,8 @@ type
{ Public declarations }
Parameters: TRoutineParamList;
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Init(Obj: TDBObject); override;
function DeInit: TModalResult; override;
function ApplyModifications: TModalResult; override;
end;
@ -117,14 +117,6 @@ begin
end;
destructor TfrmRoutineEditor.Destroy;
begin
// Store GUI setup
TExtForm.SaveListSetup(listParameters);
inherited;
end;
procedure TfrmRoutineEditor.Init(Obj: TDBObject);
var
i: Integer;
@ -191,6 +183,14 @@ begin
end;
function TfrmRoutineEditor.DeInit: TModalResult;
begin
// Store GUI setup
TExtForm.SaveListSetup(listParameters);
Result := inherited;
end;
procedure TfrmRoutineEditor.Modification(Sender: TObject);
begin
Modified := True;