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

IDE: codebrowser: fixed TCodeBrowserView.GetCodeHelp

Browse Source 
git-svn-id: trunk@26874 -
This commit is contained in:
mattias 2010-07-28 16:57:02 +00:00
parent 11e50df91f
commit 219b70f58e
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/codebrowser.pas
View File

@ -2435,6 +2435,7 @@ var
CurUnit: TCodeBrowserUnit;
Node: TCodeBrowserNode;
Line, Column: integer;
//BaseURL, HTMLHint: string;
begin
Result:='';
if (TVNode=nil) or (TVNode.Data=nil) then exit;
@ -2453,6 +2454,7 @@ begin
Node.CodePos.Code.AbsoluteToLineCol(Node.CodePos.P,Line,Column);
if Line>0 then
Result:=Result+' ('+IntToStr(Line)+','+IntToStr(Column)+')';
//GetCodeHelp(TVNode,BaseURL,HTMLHint);
end;
end;
end;
@ -2481,7 +2483,7 @@ begin
CodeToolBoss.Explore(Node.CodePos.Code,Tool,false,false);
if Tool=nil then exit;
// find source position in parsed code
CleanPos:=Node.CodePos.P;
if Tool.CodePosToCleanPos(Node.CodePos,CleanPos)<>0 then exit;
// find node
CTNode:=Tool.FindDeepestNodeAtPos(CleanPos,false);
if (CTNode=nil) or (CTNode.Desc<>Node.Desc) then