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

IDE: Don't show inline comments in code tooltip if FPDoc content is available. Issue #14384, patch by Don Siders.

Browse Source
This commit is contained in:
Juha 2024-03-10 06:55:40 +02:00
parent 8836534b9c
commit eb6ba60940
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ide/codehelp.pas
View File

@ -40,7 +40,7 @@ interface
uses
// RTL + FCL
Classes, SysUtils, AVL_Tree,
Classes, SysUtils, StrUtils, AVL_Tree,
// LCL
Forms, Controls, Dialogs,
// CodeTools
@ -2485,6 +2485,15 @@ begin
end;
end;
function GetMinWidthRule: String;
var
SpcWidth, SpcCnt: Integer;
begin
SpcWidth := Screen.PixelsPerInch div 6 div 2;
SpcCnt := (3 * (Screen.WorkAreaWidth div 8)) div SpcWidth;
Result := DupeString(' ', SpcCnt);
end;
function TCodeHelpManager.GetHTMLHintForExpr(CTExprType: TExpressionType;
XYPos: TCodeXYPosition; Options: TCodeHelpHintOptions; out BaseURL,
HTMLHint: string; out CacheWasUsed: boolean): TCodeHelpParseResult;
@ -2507,6 +2516,7 @@ var
Cmd: TKeyCommandRelation;
CTTool: TFindDeclarationTool;
CTNode: TCodeTreeNode;
HasXML: Boolean;
begin
Result:=chprFailed;
BaseURL:='lazdoc://';
@ -2573,6 +2583,7 @@ begin
Short:=AppendLineEnding(GetFPDocNodeAsHTML(FPDocFile,ElementNode.FindNode(FPDocItemNames[fpdiShort])));
Descr:=AppendLineEnding(GetFPDocNodeAsHTML(FPDocFile,ElementNode.FindNode(FPDocItemNames[fpdiDescription])));
s:=Short+Descr;
HasXML := (Trim(s) <> '');
if chhoDeclarationHeader in Options then
begin
// Add Description header only when requested. Save space otherwise.
@ -2591,7 +2602,7 @@ begin
end;
end;
if chhoComments in Options then
if (chhoComments in Options) and (not HasXML) then
begin
// add pasdoc
HTMLHint:=HTMLHint+GetPasDocCommentsAsHTML(CTTool,CTNode);
@ -2658,7 +2669,7 @@ begin
end;
HTMLHint:='<html><head><link rel="stylesheet" href="lazdoc://lazarus/lazdoc.css" type="text/css">'+LineEnding
+'<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></head>'+LineEnding
+'<body>'+LineEnding+HTMLHint+'</body>'+LineEnding;
+'<body>'+HTMLHint+IfThen(HasXML,GetMinWidthRule,'') +'</body></html>';
Result:=chprSuccess;
end else
Result:=chprFailed;