paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 21:00:43 +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: Abstract:
This unit is part of the IDE's help system. It implements the help for 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; unit CodeHelp;

12
ide/idehelpmanager.pas
View File

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