Browse Source

* Fix usesanalyzer for resource strings

git-svn-id: trunk@37539 -
michael 7 years ago
parent
commit
aad1401272
1 changed files with 2 additions and 1 deletions
  1. 2 1
      packages/fcl-passrc/src/pasuseanalyzer.pas

+ 2 - 1
packages/fcl-passrc/src/pasuseanalyzer.pas

@@ -1959,7 +1959,8 @@ begin
   Result:=C.InheritsFrom(TPasType)
   Result:=C.InheritsFrom(TPasType)
       or C.InheritsFrom(TPasVariable)
       or C.InheritsFrom(TPasVariable)
       or C.InheritsFrom(TPasProcedure)
       or C.InheritsFrom(TPasProcedure)
-      or C.InheritsFrom(TPasModule);
+      or C.InheritsFrom(TPasModule)
+      or C.InheritsFrom(TPasResString);
 end;
 end;
 
 
 function TPasAnalyzer.IsImplBlockEmpty(El: TPasImplBlock): boolean;
 function TPasAnalyzer.IsImplBlockEmpty(El: TPasImplBlock): boolean;