paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 07:42:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Cosmetic: comments/debugln output

Browse Source 
git-svn-id: trunk@46554 -
This commit is contained in:
reiniero 2014-10-14 14:05:30 +00:00
parent e57be6e312
commit bea823d0d7
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/codehelp.pas
View File

@ -22,7 +22,7 @@
Abstract:
This unit is part of the IDE's help system. It implements the help for
sources via fpdoc files and pascal comments.
sources via fpdoc files and Pascal comments.
}
unit CodeHelp;

12
ide/idehelpmanager.pas
View File

@ -1211,7 +1211,7 @@ procedure TIDEHelpManager.RegisterIDEHelpDatabases;
'FCL - Free Pascal Component Library Units',
'file://index.html');
// fpc 2.0.x FCL source directory
// FPC 2.0.x FCL source directory
FPDocNode:=THelpNode.CreateURL(HTMLHelp,
'FCL - Free Pascal Component Library Units (2.0.x)',
'file://index.html');
@ -1219,7 +1219,7 @@ procedure TIDEHelpManager.RegisterIDEHelpDatabases;
'$(FPCSrcDir)/fcl/inc','*.pp;*.pas',false);
HTMLHelp.RegisterItem(DirItem);
// fpc 2.2.x FCL source directory
// FPC 2.2.x FCL source directory
FPDocNode:=THelpNode.CreateURL(HTMLHelp,
'FCL - Free Pascal Component Library Units',
'file://index.html');
@ -1227,7 +1227,7 @@ procedure TIDEHelpManager.RegisterIDEHelpDatabases;
'$(FPCSrcDir)/packages/fcl-base/src','*.pp;*.pas',true);
HTMLHelp.RegisterItem(DirItem);
// fpc 2.4.4+ FCL source directory
// FPC 2.4.4+ FCL source directory
FPDocNode:=THelpNode.CreateURL(HTMLHelp,
'FCL - Free Pascal Component Library Units',
'file://index.html');
@ -1447,7 +1447,7 @@ function TIDEHelpManager.ShowHelpForSourcePosition(const Filename: string;
// invoke help system
Complete:=true;
debugln(['TIDEHelpManager.ShowHelpForSourcePosition PascalHelpContextLists.Count=',PascalHelpContextLists.Count,' calling ShowHelpForPascalContexts ...']);
debugln(['TIDEHelpManager.ShowHelpForSourcePosition PascalHelpContextLists.Count=',PascalHelpContextLists.Count,' calling ShowHelpForPascalContexts...']);
Result:=ShowHelpForPascalContexts(Filename,CodePos,PascalHelpContextLists,ErrMsg);
end else if CodeToolBoss.ErrorCode<>nil then begin
MainIDEInterface.DoJumpToCodeToolBossError;
@ -1480,12 +1480,12 @@ begin
Result:=CollectDeclarations(CodeBuffer,Complete);
if Complete then exit;
debugln(['TIDEHelpManager.ShowHelpForSourcePosition no declaration found, trying keywords ...']);
debugln(['TIDEHelpManager.ShowHelpForSourcePosition no declaration found, trying keywords...']);
Result:=CollectKeyWords(CodeBuffer,Identifier);
if Result in [shrCancel,shrSuccess] then exit;
if IsValidIdent(Identifier) then
begin
debugln(['TIDEHelpManager.ShowHelpForSourcePosition "',Identifier,'" is not an FPC keyword, search via code browser ...']);
debugln(['TIDEHelpManager.ShowHelpForSourcePosition "',Identifier,'" is not an FPC keyword, search via code browser...']);
ShowCodeBrowser(Identifier);
exit(shrSuccess);
end;