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

Fix bug #875 : Table creation form create the table hitting enter when create button is enabled

Browse Source
This commit is contained in:
Ansgar Becker
2008-11-23 16:38:49 +00:00
parent 1a2478643c
commit cf59e6117f
1 changed files with 17 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
source/createtable.pas
View File

@@ -82,6 +82,8 @@ type
procedure ButtonMoveUpClick(Sender: TObject);
procedure ButtonMoveDownClick(Sender: TObject);
procedure comboCharsetChange(Sender: TObject);
procedure EditFieldnameEnter(Sender: TObject);
procedure EditFieldnameExit(Sender: TObject);
private
index : Integer;
dsCollations : TDataSet;
@@ -501,7 +503,6 @@ begin
buttonAdd.Enabled := not colExists;
buttonChange.Enabled := (not colExists) and colSelected;
buttonDelete.Enabled := colSelected;
ButtonAdd.Default := not colExists;
try
ensureValidIdentifier(EditFieldName.Text);
except
@@ -709,4 +710,19 @@ begin
comboCollation.Items.EndUpdate;
end;
procedure TCreateTableForm.EditFieldnameEnter(Sender: TObject);
begin
ButtonAdd.Default := True;
ButtonCreate.Default := False;
end;
procedure TCreateTableForm.EditFieldnameExit(Sender: TObject);
begin
ButtonAdd.Default := False;
ButtonCreate.Default := True;
end;
end.