From 33937818a2ad665bc6fcfdee6c00898eca79cf9c Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Thu, 23 Jul 2009 21:01:58 +0000
Subject: [PATCH] Default value editor: Set focus on checked radiobox to ensure
 the OnExit event can be fired and close the editor

---
 source/grideditlinks.pas | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/source/grideditlinks.pas b/source/grideditlinks.pas
index 32ecf476..5d734d2d 100644
--- a/source/grideditlinks.pas
+++ b/source/grideditlinks.pas
@@ -1033,8 +1033,13 @@ end;
 function TColumnDefaultEditorLink.BeginEdit: Boolean; stdcall;
 begin
   Result := not FStopping;
-  if Result then
+  if Result then begin
     FPanel.Show;
+    if FRadioText.Checked then FRadioText.SetFocus
+    else if FRadioNull.Checked then FRadioNull.SetFocus
+    else if FRadioCurTS.Checked then FRadioCurTS.SetFocus
+    else if FRadioAutoInc.Checked then FRadioAutoInc.SetFocus;
+  end;
 end;