paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 22:15:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

added function to find resource directives

Browse Source 
git-svn-id: trunk@8692 -
This commit is contained in:
mattias 2006-02-03 17:35:36 +00:00
parent 8ff7a29054
commit 1030c5e2fd
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/codetoolmanager.pas
View File

@ -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);