From 5fd2d5f20fe08261a0dca58f5b37c9ed3fd00d55 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Wed, 30 Nov 2016 23:08:12 +0000
Subject: [PATCH] IDE: code explorer: long proc: added line count in []

git-svn-id: trunk@53494 -
---
 ide/codeexplorer.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ide/codeexplorer.pas b/ide/codeexplorer.pas
index 2c80b23c8f..a6d01ac2f3 100644
--- a/ide/codeexplorer.pas
+++ b/ide/codeexplorer.pas
@@ -1246,6 +1246,7 @@ var
   ObserverCats: TCEObserverCategories;
   ProcNode: TCodeTreeNode;
   ObsState: TCodeObserverStatementState;
+  TVNode: TTreeNode;
 begin
   CodeNode:=Tool.Tree.Root;
   ObserverCats:=CodeExplorerOptions.ObserverCategories;
@@ -1269,7 +1270,8 @@ begin
             if LineCnt>=CodeExplorerOptions.LongProcLineCount then
             begin
               ProcNode:=CodeNode.Parent;
-              AddCodeNode(cefcLongProcs,ProcNode);
+              TVNode:=AddCodeNode(cefcLongProcs,ProcNode);
+              TVNode.Text:=TVNode.Text+' ['+IntToStr(LineCnt)+']';
             end;
           end;
           if (cefcEmptyProcs in ObserverCats)