summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graemeg@gmail.com>2013-03-15 15:00:10 +0000
committerDavid Laurence Emerson <dle3ab@angelbase.com>2013-05-28 00:42:47 -0700
commit086f662b2e1d7a87e8e077ef20e7758b7ad82678 (patch)
tree17537ebe3e9f7926ac82f48795b7d2f345a88d40
parent76cbf5f55904d32cf4efc01c035e1db05c9fb7ad (diff)
downloadfpGUI-086f662b2e1d7a87e8e077ef20e7758b7ad82678.tar.xz
ide: Find dialog can now be closed/cancelled with Esc key.
-rw-r--r--examples/apps/ide/src/frm_find.pas5
1 files changed, 5 insertions, 0 deletions
diff --git a/examples/apps/ide/src/frm_find.pas b/examples/apps/ide/src/frm_find.pas
index 03e27dd2..652d104d 100644
--- a/examples/apps/ide/src/frm_find.pas
+++ b/examples/apps/ide/src/frm_find.pas
@@ -88,6 +88,11 @@ begin
begin
Consumed := True;
btnFind.Click;
+ end
+ else if KeyCode = keyEscape then
+ begin
+ Consumed := True;
+ Close;
end;
end;