From cf59e6117f07e95159a40a5c7c4907c9cd1a0bf4 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Sun, 23 Nov 2008 16:38:49 +0000
Subject: [PATCH] Fix bug #875 : Table creation form create the table hitting
 enter when create button is enabled

---
 source/createtable.pas | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/source/createtable.pas b/source/createtable.pas
index 79635733..ac796e00 100644
--- a/source/createtable.pas
+++ b/source/createtable.pas
@@ -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.