From bd059601c2cc012361e03ace12e224e533ebab19 Mon Sep 17 00:00:00 2001 From: juha Date: Sat, 16 Mar 2013 17:58:39 +0000 Subject: [PATCH] IDE: improve comments in LFMChecker, formatting git-svn-id: trunk@40561 - --- ide/checklfmdlg.pas | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/ide/checklfmdlg.pas b/ide/checklfmdlg.pas index 22bdf76961..144a0ca48e 100644 --- a/ide/checklfmdlg.pas +++ b/ide/checklfmdlg.pas @@ -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)