From 41d25d47e4e1659e67c54d3ae38cb2be7fc5cd32 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 18 Aug 2002 08:55:12 +0000
Subject: [PATCH] small bugfixes and fixed non checked menu items activate

git-svn-id: trunk@2866 -
---
 ide/main.pp | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/ide/main.pp b/ide/main.pp
index cec65ddcbe..85ae737b4c 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -6811,11 +6811,12 @@ begin
   {$ENDIF}
   // calculate start and end of expression in source
   if ActiveSrcEdit.EditorComponent.SelText='' then begin
-    if CodeToolBoss.GetExpressionBounds(ActiveUnitInfo.Source,
+    if CodeToolBoss.GetStringConstBounds(ActiveUnitInfo.Source,
       ActiveSrcEdit.EditorComponent.CaretX,
       ActiveSrcEdit.EditorComponent.CaretY,
       StartCode,StartPos.X,StartPos.Y,
-      EndCode,EndPos.X,EndPos.Y) then
+      EndCode,EndPos.X,EndPos.Y,
+      true) then
     begin
       if (StartCode<>ActiveUnitInfo.Source)
       or (EndCode<>ActiveUnitInfo.Source) then begin
@@ -7688,6 +7689,9 @@ end.
 
 { =============================================================================
   $Log$
+  Revision 1.457  2003/02/03 22:28:08  mattias
+  small bugfixes and fixed non checked menu items activate
+
   Revision 1.456  2003/01/28 17:04:33  mattias
   renamed one Rect