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

IDE: Turn TCodeHelpHintOption chhoNoComments into positive chhoComments for consistency.

Browse Source 
git-svn-id: trunk@55309 -
This commit is contained in:
juha 2017-06-10 16:30:22 +00:00
parent 99f4b40a94
commit a174095481
4 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/codehelp.pas
View File

@ -223,10 +223,10 @@ type
);
TCodeHelpHintOption = (
chhoSmallStep, // do the next step. Use this to run on idle.
chhoSmallStep, // do the next step. Use this to run on idle.
chhoDeclarationHeader, // add a header with source position and type of identifier
chhoNoComments, // do not add the pasdoc comments
chhoShowFocusHint // show the shortcut ecFocusHint
chhoComments, // add the pasdoc comments
chhoShowFocusHint // show the shortcut ecFocusHint
);
TCodeHelpHintOptions = set of TCodeHelpHintOption;
@ -2581,7 +2581,7 @@ begin
end;
end;
if not (chhoNoComments in Options) then
if chhoComments in Options then
begin
// add pasdoc
HTMLHint:=HTMLHint+GetPasDocCommentsAsHTML(CTTool,CTNode);

4
ide/fpdochints.pas
View File

@ -122,7 +122,7 @@ begin
and (CodeToolBoss.IdentifierList.StartContextPos.Code<>nil) then begin
BaseDir:=CodeToolBoss.IdentifierList.StartContextPos.Code.Filename;
HelpResult:=CodeHelpBoss.GetHTMLHintForUnit(Item.Identifier,'',BaseDir,
[chhoDeclarationHeader],
[chhoDeclarationHeader,chhoComments],
FBaseURL,FHTMLHint,CacheWasUsed);
if HelpResult<>chprSuccess then begin
DebugLn(['TFPDocHintProvider.DoUpdateHint FAILED Unit=',Item.Identifier]);
@ -157,7 +157,7 @@ begin
end;
//DebugLn(['TFPDocHintProvider.DoUpdateHint ',Item.Identifier,' ',Item.Tool.MainFilename,' ',Caret.Code.Filename,' ',Caret.X,',',Caret.Y]);
HelpResult:=CodeHelpBoss.GetHTMLHint(Caret.Code,Caret.X,Caret.Y,
[chhoDeclarationHeader],
[chhoDeclarationHeader,chhoComments],
FBaseURL,FHTMLHint,PropDetails,CacheWasUsed);
if HelpResult<>chprSuccess then begin
DebugLn(['TFPDocHintProvider.DoUpdateHint FAILED Identifier=',Item.Identifier]);

2
ide/idehelpmanager.pas
View File

@ -1768,7 +1768,7 @@ begin
Code:=CodeToolBoss.LoadFile(ExpandedFilename,true,false);
if (Code=nil) or Code.LineColIsSpace(CodePos.Y,CodePos.X) then
exit(shrHelpNotFound);
HintFlags:=[chhoDeclarationHeader];
HintFlags:=[chhoDeclarationHeader,chhoComments];
if ihmchAddFocusHint in Flags then
Include(HintFlags,chhoShowFocusHint);
if CodeHelpBoss.GetHTMLHint(Code,CodePos.X,CodePos.Y,

2
ide/main.pp
View File

@ -12209,7 +12209,7 @@ begin
if (Row <> nil)
and FindDeclarationOfOIProperty(OI, Row, Code, Caret, i) then
begin
if CodeHelpBoss.GetHTMLHint(Code, Caret.X, Caret.Y, [],
if CodeHelpBoss.GetHTMLHint(Code, Caret.X, Caret.Y, [chhoComments],
BaseURL, HtmlHint, PropDetails, CacheWasUsed) <> chprSuccess then
begin
HtmlHint := '';