diff options
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); |