summaryrefslogtreecommitdiff
path: root/examples/apps
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graeme@mastermaths.co.za>2011-08-31 18:52:18 +0200
committerGraeme Geldenhuys <graeme@mastermaths.co.za>2011-08-31 18:52:18 +0200
commit465472c017531b98984dca94022ee5ef25a0baef (patch)
treeee857266da46c0bacaee554afa8bbf0cfebd976b /examples/apps
parent4c979d123588de654f5f9c6db429e51079681463 (diff)
downloadfpGUI-465472c017531b98984dca94022ee5ef25a0baef.tar.xz
ide: after a search, set the focus back to the editor widget.
Diffstat (limited to 'examples/apps')
-rw-r--r--examples/apps/ide/src/frm_main.pas1
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);