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

IDE: help: verbosity

Browse Source 
git-svn-id: trunk@40243 -
This commit is contained in:
mattias 2013-02-10 12:48:55 +00:00
parent b74e586846
commit ac8852935f
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/idehelpmanager.pas
View File

@ -1301,8 +1301,6 @@ begin
{$IFDEF EnableFPDocSearch} {$IFDEF EnableFPDocSearch}
itmSearchInFPDocFiles.OnClick:=@mnuSearchInFPDocFilesClick; itmSearchInFPDocFiles.OnClick:=@mnuSearchInFPDocFilesClick;
{$ENDIF} {$ENDIF}
end; end;
end; end;
@ -1380,11 +1378,11 @@ function TIDEHelpManager.ShowHelpForSourcePosition(const Filename: string;
ListOfPCodeXYPosition,[fdlfWithoutEmptyProperties,fdlfWithoutForwards]) ListOfPCodeXYPosition,[fdlfWithoutEmptyProperties,fdlfWithoutForwards])
then begin then begin
if ListOfPCodeXYPosition=nil then exit; if ListOfPCodeXYPosition=nil then exit;
debugln('TIDEHelpManager.ShowHelpForSourcePosition B Success ',dbgs(ListOfPCodeXYPosition.Count)); debugln('TIDEHelpManager.ShowHelpForSourcePosition Success, number of declarations: ',dbgs(ListOfPCodeXYPosition.Count));
// convert the source positions in pascal help context list // convert the source positions in pascal help context list
for i:=0 to ListOfPCodeXYPosition.Count-1 do begin for i:=0 to ListOfPCodeXYPosition.Count-1 do begin
CurCodePos:=PCodeXYPosition(ListOfPCodeXYPosition[i]); CurCodePos:=PCodeXYPosition(ListOfPCodeXYPosition[i]);
debugln('TIDEHelpManager.ShowHelpForSourcePosition C ',CurCodePos^.Code.Filename,' X=',dbgs(CurCodePos^.X),' Y=',dbgs(CurCodePos^.Y)); debugln('TIDEHelpManager.ShowHelpForSourcePosition Declaration at ',dbgs(CurCodePos));
NewList:=ConvertCodePosToPascalHelpContext(CurCodePos); NewList:=ConvertCodePosToPascalHelpContext(CurCodePos);
if NewList<>nil then begin if NewList<>nil then begin
if PascalHelpContextLists=nil then if PascalHelpContextLists=nil then
@ -1396,7 +1394,7 @@ function TIDEHelpManager.ShowHelpForSourcePosition(const Filename: string;
// invoke help system // invoke help system
Complete:=true; Complete:=true;
debugln('TIDEHelpManager.ShowHelpForSourcePosition D PascalHelpContextLists.Count=',dbgs(PascalHelpContextLists.Count)); 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;