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

Default value editor: Set focus on checked radiobox to ensure the OnExit event can be fired and close the editor

Browse Source
This commit is contained in:
Ansgar Becker
2009-07-23 21:01:58 +00:00
parent 97839a0409
commit 33937818a2
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
source/grideditlinks.pas
View File

@ -1033,8 +1033,13 @@ end;
function TColumnDefaultEditorLink.BeginEdit: Boolean; stdcall; function TColumnDefaultEditorLink.BeginEdit: Boolean; stdcall;
begin begin
Result := not FStopping; Result := not FStopping;
if Result then if Result then begin
FPanel.Show; 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; end;