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

Help system: Modifies TExternalHelpDatabase.ShowHelp to display HTML help topics generated using FPDoc. Patch by Don Siders. Issue #40110.

Browse Source
This commit is contained in:
wp_xyz 2023-02-06 22:20:23 +01:00
parent 9b0ab24c14
commit 64b27f1207
1 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
components/externhelp/externhelpfrm.pas
View File

@ -1427,25 +1427,33 @@ begin
Context:=ContextList.List[i].Context; Context:=ContextList.List[i].Context;
case ContextList.List[i].Descriptor of case ContextList.List[i].Descriptor of
// fully qualified identifier name for members in classes
pihcProperty,pihcVariable,pihcType,pihcConst: pihcProperty,pihcVariable,pihcType,pihcConst:
begin begin
Identifier:=Context; if (i > 0) and (Identifier <> '') then
break; Identifier := Identifier + '.';
Identifier := Identifier + Context;
end; end;
// fully qualified identifier name for members in classes
pihcProcedure: pihcProcedure:
begin begin
if (i > 0) and (Identifier <> '') then
Identifier := Identifier + '.';
// chomp parameters ToDo: overloaded procs // chomp parameters ToDo: overloaded procs
p:=System.Pos('(',Context); p:=System.Pos('(',Context);
if p>0 then if p>0 then
Context:=copy(Context,1,p-1); Context:=copy(Context,1,p-1);
Identifier:=Context; Identifier := Identifier + Context;
break;
end; end;
end; end;
end; end;
// avoids the help database not found message for the unit declaration
if (AUnitName <> '') and (Identifier = '') then
Identifier := 'index';
if Identifier<>'' then begin if Identifier<>'' then begin
DebugLn(['TExternalHelpDatabase.ShowHelp Identifier=',Identifier]); DebugLn(['TExternalHelpDatabase.ShowHelp Identifier=',Identifier]);
// replace special macros (Identifier) // replace special macros (Identifier)
@ -1453,8 +1461,9 @@ begin
repeat repeat
p:=PosI('$(identifier)',URL); p:=PosI('$(identifier)',URL);
if p<1 then break; if p<1 then break;
URL:=copy(URL,1,p-1)+Identifier // a $LCase() macro would avoid converting to lowercase
+copy(URL,p+length('$(identifier)'),length(URL)); URL:=copy(URL,1,p-1)+Lowercase(Identifier)+
copy(URL,p+length('$(identifier)'),length(URL));
until false; until false;
// replace global macros // replace global macros