paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 01:20:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: converter: search classes in implementation too

Browse Source 
git-svn-id: trunk@27480 -
This commit is contained in:
mattias 2010-09-26 20:04:31 +00:00
parent 6d02cc37ff
commit 82369989ce
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/stdcodetools.pas
View File

@ -4531,9 +4531,11 @@ begin
Result:=false;
BuildTree(not SearchImplementationToo);
if SearchImplementationToo then
ClassNode:=FindClassNodeInUnit(AClassName,true,false,false,true)
ClassNode:=FindClassNodeInUnit(AClassName,true,false,false,
ExceptionOnClassNotFound)
else
ClassNode:=FindClassNodeInInterface(AClassName,true,false,true);
ClassNode:=FindClassNodeInInterface(AClassName,true,false,
ExceptionOnClassNotFound);
if ClassNode=nil then exit;
if (ListOfTypes=nil) or (ListOfTypes.Tree.Count=0) then exit(true);

2
converter/missingpropertiesdlg.pas
View File

@ -319,7 +319,7 @@ begin
// Apply replacement types also to pascal source.
if TypeReplacements.Tree.Count>0 then
if not CodeToolBoss.RetypeClassVariables(fPascalBuffer,
TLFMObjectNode(fLFMTree.Root).TypeName, TypeReplacements, false) then
TLFMObjectNode(fLFMTree.Root).TypeName, TypeReplacements, false, true) then
Result:=mrCancel;
finally
TypeReplacements.Free;