paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-13 01:28:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

Converter: support class defintion in implementation section.

Browse Source 
git-svn-id: trunk@27326 -
This commit is contained in:
juha 2010-09-12 11:15:52 +00:00
parent 0f7bdce052
commit 017b48771a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
converter/convcodetool.pas
View File

@ -432,7 +432,7 @@ begin
with fCodeTool do begin with fCodeTool do begin
BuildTree(true); BuildTree(true);
// Find the class name that the main class inherits from. // Find the class name that the main class inherits from.
ANode:=FindClassNodeInInterface(AClassName,true,false,false); ANode:=FindClassNodeInUnit(AClassName,true,false,false,false);
if ANode=nil then exit; if ANode=nil then exit;
BuildSubTreeForClass(ANode); BuildSubTreeForClass(ANode);
InheritanceNode:=FindInheritanceNode(ANode); InheritanceNode:=FindInheritanceNode(ANode);