From 270d12192905519e0dcd4aa873467e38a27b4efd Mon Sep 17 00:00:00 2001
From: michl <michl@lazarus-ide.org>
Date: Mon, 6 Feb 2017 10:44:56 +0000
Subject: [PATCH] IDE: Compiling aborted, if missing events not removed or
 ignored + fixed undefined out parameter.

git-svn-id: branches/fixes_1_6@54101 -
---
 ide/checklfmdlg.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/ide/checklfmdlg.pas b/ide/checklfmdlg.pas
index 51553e3542..5e37c5c176 100644
--- a/ide/checklfmdlg.pas
+++ b/ide/checklfmdlg.pas
@@ -279,6 +279,7 @@ var
   s: String;
   MsgResult: TModalResult;
 begin
+  ComponentModified:=false;
   ListOfPInstancePropInfo:=nil;
   try
     // find all dangling events
@@ -322,14 +323,14 @@ begin
       Format(lisTheFollowingMethodsUsedByAreNotInTheSourceRemoveTh, [DbgSName(
         RootComponent), LineEnding, PascalBuffer.Filename, LineEnding+LineEnding, s, LineEnding])
        ,mtConfirmation,
-       [mrYes, lisRemoveThem, mrIgnore, lisKeepThemAndContinue, mrCancel]);
+       [mrYes, lisRemoveThem, mrIgnore, lisKeepThemAndContinue, mrAbort]);
      if MsgResult=mrYes then begin
        ClearDanglingEvents(ListOfPInstancePropInfo);
        ComponentModified:=true;
      end else if MsgResult=mrIgnore then
        exit(mrOk)
      else
-       exit(mrCancel);
+       exit(mrAbort);
   finally
     FreeListOfPInstancePropInfo(ListOfPInstancePropInfo);
   end;