diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-08-31 18:52:18 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-08-31 18:52:18 +0200 |
commit | 465472c017531b98984dca94022ee5ef25a0baef (patch) | |
tree | ee857266da46c0bacaee554afa8bbf0cfebd976b /examples | |
parent | 4c979d123588de654f5f9c6db429e51079681463 (diff) | |
download | fpGUI-465472c017531b98984dca94022ee5ef25a0baef.tar.xz |
ide: after a search, set the focus back to the editor widget.
Diffstat (limited to 'examples')
-rw-r--r-- | examples/apps/ide/src/frm_main.pas | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/examples/apps/ide/src/frm_main.pas b/examples/apps/ide/src/frm_main.pas index 266da2fc..177ab181 100644 --- a/examples/apps/ide/src/frm_main.pas +++ b/examples/apps/ide/src/frm_main.pas @@ -213,6 +213,7 @@ begin exit; edt := TfpgTextEdit(pcEditor.ActivePage.Components[0]); edt.FindText(s, lFindOptions, lBackward); + edt.SetFocus; end; procedure TMainForm.miSearchProcedureList(Sender: TObject); |