opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-14 01:56:36 +08:00
Code Issues Packages Projects Releases Wiki Activity

Do not recycle field editor form, fixes bug #870 :AV on "Edit column" after reconnection

Browse Source
This commit is contained in:
Ansgar Becker
2008-11-23 11:19:53 +00:00
parent 317ef0494f
commit 7f69da2051
1 changed files with 13 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
source/fieldeditor.pas
View File

@ -88,6 +88,7 @@ type
procedure listClick(Sender: TObject);
procedure comboDefaultChange(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
TempKeys : TStringList;
@ -123,7 +124,6 @@ uses
var
klist : Array of TMysqlIndex;
FieldEditForm : TFieldEditForm;
{$R *.DFM}
@ -133,9 +133,10 @@ var
Create form
}
function FieldEditorWindow (AOwner : TComponent; AMode : TFieldEditorMode; AFieldName : WideString = '') : Boolean;
var
FieldEditForm : TFieldEditForm;
begin
if FieldEditForm = nil then
FieldEditForm := TFieldEditForm.Create(AOwner);
FieldEditForm := TFieldEditForm.Create(AOwner);
FieldEditForm.FMode := AMode;
// Also remember original mode for restoring when switching pagecontrol tabs
FieldEditForm.FModeWhenCalled := AMode;
@ -165,6 +166,15 @@ begin
end;
{**
FormClose - don't recycle this form, see bug #870
}
procedure TFieldEditForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
{***
Init Field-Editor
}