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

IDE: Improve removing unknown component properties. Issue #40377.

Browse Source 
(cherry picked from commit fd2593f05b)
This commit is contained in:
Juha 2023-07-21 13:19:17 +03:00 committed by Maxim Ganetsky
parent 29cf1cc37f
commit 5bf11a9d31
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/sourcefilemanager.pas
View File

@ -5904,11 +5904,11 @@ begin
LFMChecker.RootMustBeClassInIntf:=true;
LFMChecker.ObjectsMustExist:=true;
if LFMChecker.Repair=mrOk then begin
if not Quiet then begin
LFMUnitInfo.Modified:=True;
if not Quiet then
IDEMessageDialog(lisLFMIsOk,
lisClassesAndPropertiesExistValuesWereNotChecked,
mtInformation,[mbOk],'');
end;
end else begin
MainIDE.DoJumpToCompilerMessage(true);
Result:=mrAbort;
@ -6304,8 +6304,10 @@ begin
end;
LFMUnitInfo:=Project1.UnitWithEditorComponent(SourceEditorManager.ActiveEditor);
Result:=CheckLFMInEditor(LFMUnitInfo, true);
if Result=mrOk then
if Result=mrOk then begin
AnUnitInfo.HasErrorInLFM:=False;
Result:=mrCancel;
end;
exit;
end;
finally