diff options
Diffstat (limited to 'examples/apps/ide/src/frm_find.pas')
-rw-r--r-- | examples/apps/ide/src/frm_find.pas | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/examples/apps/ide/src/frm_find.pas b/examples/apps/ide/src/frm_find.pas index 03e27dd2..3ec856f7 100644 --- a/examples/apps/ide/src/frm_find.pas +++ b/examples/apps/ide/src/frm_find.pas @@ -1,3 +1,19 @@ +{ + fpGUI IDE - Maximus + + Copyright (C) 2012 - 2013 Graeme Geldenhuys + + See the file COPYING.modifiedLGPL, included in this distribution, + for details about redistributing fpGUI. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + + Description: + --- +} + unit frm_find; {$mode objfpc}{$H+} @@ -88,6 +104,11 @@ begin begin Consumed := True; btnFind.Click; + end + else if KeyCode = keyEscape then + begin + Consumed := True; + Close; end; end; |