paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 10:35:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: improve comments in LFMChecker, formatting

Browse Source 
git-svn-id: trunk@40561 -
This commit is contained in:
juha 2013-03-16 17:58:39 +00:00
parent 1e6aba487f
commit bd059601c2
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/checklfmdlg.pas
View File

@ -500,18 +500,17 @@ begin
MissingObjectTypes.Add(TypeName);
end;
CurError:=CurError.NextError;
end; // Missing object types in unit.
end;
// keep all object types with a registered component class
// keep only the missing object types with a registered component class
for i:=MissingObjectTypes.Count-1 downto 0 do begin
RegComp:=IDEComponentPalette.FindComponent(MissingObjectTypes[i]);
if (RegComp=nil) or (RegComp.GetUnitName='') then
MissingObjectTypes.Delete(i);
end;
if MissingObjectTypes.Count=0 then exit;
// Missing object types, but luckily found in IDE.
Result:=FixMissingComponentClasses(MissingObjectTypes); // Fix them.
// Now the list contains only types that are found in IDE.
if MissingObjectTypes.Count>0 then
Result:=FixMissingComponentClasses(MissingObjectTypes); // Fix them.
finally
MissingObjectTypes.Free;
end;
@ -523,7 +522,6 @@ begin
Result:=PackageEditingInterface.AddUnitDependenciesForComponentClasses(
fPascalBuffer.Filename, aMissingTypes);
if Result<>mrOk then exit;
// check LFM again
if CodeToolBoss.CheckLFM(fPascalBuffer,fLFMBuffer,fLFMTree,
fRootMustBeClassInUnit,fRootMustBeClassInIntf,fObjectsMustExist)