paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-31 15:35:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: reduced debugging

Browse Source 
git-svn-id: trunk@21712 -
This commit is contained in:
mattias 2009-09-15 15:19:12 +00:00
parent 72b7bf8ca6
commit 9897ad8216
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/helpmanager.pas
View File

@ -1306,13 +1306,14 @@ begin
BaseURL:=''; BaseURL:='';
HTMLHint:=''; HTMLHint:='';
Code:=CodeToolBoss.LoadFile(ExpandedFilename,true,false); Code:=CodeToolBoss.LoadFile(ExpandedFilename,true,false);
if Code=nil then exit(shrHelpNotFound); if (Code=nil) or (CodePos.Y<1) or (CodePos.Y>Code.LineCount)
or (CodePos.X<1) then
exit(shrHelpNotFound);
if CodeHelpBoss.GetHTMLHint(Code,CodePos.X,CodePos.Y, if CodeHelpBoss.GetHTMLHint(Code,CodePos.X,CodePos.Y,
[chhoSmartHint, chhoComplete, chhoComments], [chhoSmartHint, chhoComplete, chhoComments],
BaseURL,HTMLHint,CacheWasUsed)=chprSuccess BaseURL,HTMLHint,CacheWasUsed)=chprSuccess
then then
exit(shrSuccess); exit(shrSuccess);
DebugLn(['TIDEHelpManager.GetHintForSourcePosition not found']);
Result:=shrHelpNotFound; Result:=shrHelpNotFound;
end; end;