paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 15:59:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Compiling aborted, if missing events not removed or ignored + fixed undefined out parameter.

Browse Source 
git-svn-id: trunk@54100 -
This commit is contained in:
michl 2017-02-06 10:32:33 +00:00
parent 44244449f8
commit 6b1e076b8b
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/checklfmdlg.pas
View File

@ -280,6 +280,7 @@ var
s: String; s: String;
MsgResult: TModalResult; MsgResult: TModalResult;
begin begin
ComponentModified:=false;
ListOfPInstancePropInfo:=nil; ListOfPInstancePropInfo:=nil;
try try
// find all dangling events // find all dangling events
@ -323,14 +324,14 @@ begin
Format(lisTheFollowingMethodsUsedByAreNotInTheSourceRemoveTh, [DbgSName( Format(lisTheFollowingMethodsUsedByAreNotInTheSourceRemoveTh, [DbgSName(
RootComponent), LineEnding, PascalBuffer.Filename, LineEnding+LineEnding, s, LineEnding]) RootComponent), LineEnding, PascalBuffer.Filename, LineEnding+LineEnding, s, LineEnding])
,mtConfirmation, ,mtConfirmation,
[mrYes, lisRemoveThem, mrIgnore, lisKeepThemAndContinue, mrCancel]); [mrYes, lisRemoveThem, mrIgnore, lisKeepThemAndContinue, mrAbort]);
if MsgResult=mrYes then begin if MsgResult=mrYes then begin
ClearDanglingEvents(ListOfPInstancePropInfo); ClearDanglingEvents(ListOfPInstancePropInfo);
ComponentModified:=true; ComponentModified:=true;
end else if MsgResult=mrIgnore then end else if MsgResult=mrIgnore then
exit(mrOk) exit(mrOk)
else else
exit(mrCancel); exit(mrAbort);
finally finally
FreeListOfPInstancePropInfo(ListOfPInstancePropInfo); FreeListOfPInstancePropInfo(ListOfPInstancePropInfo);
end; end;