From fa0dba9b761221b159fdc3d2123774a25b611f08 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Fri, 22 Jul 2005 12:44:04 +0000
Subject: [PATCH] initiliased Result of DispatchAction

git-svn-id: trunk@7397 -
---
 lcl/include/application.inc | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lcl/include/application.inc b/lcl/include/application.inc
index a1c9ec1fda..9a307c001c 100644
--- a/lcl/include/application.inc
+++ b/lcl/include/application.inc
@@ -1009,6 +1009,7 @@ function TApplication.DispatchAction(Msg: Longint; Action: TBasicAction
 var
   Form: TCustomForm;
 begin
+  Result:=false;
   Form := Screen.ActiveForm;
   if (Form<>nil) and (Form.Perform(Msg, 0, PtrInt(Action)) = 1) then
     Result:=true
@@ -1475,6 +1476,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.126  2005/07/22 12:44:04  vincents
+  initiliased Result of DispatchAction
+
   Revision 1.125  2005/06/22 21:09:50  mattias
   fixed Sender of Application.OnKeyDownHandler bug 947