From 5f5edc3e77d13002c839d9a2b89f01b8e137e775 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 7 Sep 2008 12:10:26 +0000
Subject: [PATCH] identifier completion: fixed painting const values

git-svn-id: trunk@16467 -
---
 ide/sourceeditprocs.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/ide/sourceeditprocs.pas b/ide/sourceeditprocs.pas
index d3c2afbf57..cc50d11dc9 100644
--- a/ide/sourceeditprocs.pas
+++ b/ide/sourceeditprocs.pas
@@ -316,8 +316,9 @@ begin
           if ANode<>nil then
             s:=' = '+IdentItem.Tool.ExtractNode(ANode,[])
           else begin
-            s:=IdentItem.Tool.ExtractCode(ItemNode.StartPos+length(s),
-                                          ItemNode.EndPos,[]);
+            s:=IdentItem.Tool.ExtractCode(ItemNode.StartPos
+                            +GetIdentLen(@IdentItem.Tool.Src[ItemNode.StartPos]),
+                            ItemNode.EndPos,[]);
           end;
           s:=copy(s,1,50);
         end;