From 1030c5e2fdeff34d2bb2e1e21ccab976ca043ade Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 3 Feb 2006 17:35:36 +0000
Subject: [PATCH] added function to find resource directives

git-svn-id: trunk@8692 -
---
 components/codetools/codetoolmanager.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/components/codetools/codetoolmanager.pas b/components/codetools/codetoolmanager.pas
index bae56e74f4..8b1f885b2d 100644
--- a/components/codetools/codetoolmanager.pas
+++ b/components/codetools/codetoolmanager.pas
@@ -2027,8 +2027,8 @@ begin
   DebugLn('TCodeToolManager.FindResourceDirective A ',Code.Filename);
   {$ENDIF}
   if not InitCurCodeTool(Code) then exit;
-  CursorPos.X:=X;
-  CursorPos.Y:=Y;
+  CursorPos.X:=StartX;
+  CursorPos.Y:=StartY;
   CursorPos.Code:=Code;
   try
     Result:=FCurCodeTool.FindResourceDirective(CursorPos,NewPos,NewTopLine);