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

IDE: lazdoc: enabled lazdoc hints for mouse hints in source editor

Browse Source 
git-svn-id: trunk@13009 -
This commit is contained in:
mattias 2007-11-24 21:17:17 +00:00
parent a2bedef1b0
commit 65ae8c2e56
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/helpmanager.pas
View File

@ -884,21 +884,15 @@ function THelpManager.GetHintForSourcePosition(const ExpandedFilename: string;
const CodePos: TPoint; out Hint: string): TShowHelpResult; const CodePos: TPoint; out Hint: string): TShowHelpResult;
var var
Code: TCodeBuffer; Code: TCodeBuffer;
{$IFDEF EnableLazDocHint}
CacheWasUsed: boolean; CacheWasUsed: boolean;
{$ENDIF}
begin begin
Hint:=''; Hint:='';
Code:=CodeToolBoss.LoadFile(ExpandedFilename,true,false); Code:=CodeToolBoss.LoadFile(ExpandedFilename,true,false);
if Code=nil then exit; if Code=nil then exit;
{$IFDEF EnableLazDocHint}
if LazDocBoss.GetHint(Code,CodePos.X,CodePos.Y,true,Hint,CacheWasUsed)=ldprSuccess if LazDocBoss.GetHint(Code,CodePos.X,CodePos.Y,true,Hint,CacheWasUsed)=ldprSuccess
then then
exit(shrSuccess); exit(shrSuccess);
{$ENDIF} Result:=shrHelpNotFound;
Hint:=CodeToolBoss.FindSmartHint(Code,CodePos.X,CodePos.Y);
CodeToolBoss.Abortable:=false;
Result:=shrSuccess;
end; end;
function THelpManager.ConvertSourcePosToPascalHelpContext( function THelpManager.ConvertSourcePosToPascalHelpContext(