paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 09:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Andrey Sobol to fix broken topic links

Browse Source 
git-svn-id: trunk@48439 -
This commit is contained in:
michael 2021-01-27 21:29:12 +00:00
parent 706e72e1fd
commit c3aca47e50
1 changed files with 4 additions and 1 deletions

5
utils/fpdoc/dw_chm.pp
View File

@ -72,6 +72,7 @@ var
n,s: String;
i: Integer;
excl: Boolean; //search
MElement: TPasElement;
begin
Result:='';
excl := False;
@ -120,7 +121,9 @@ begin
excl := (ASubindex > 0);
end;
// cut off Package Name
AElement:= AElement.GetModule;
MElement:= AElement.GetModule;
if Assigned(MElement) then
AElement:= MElement;
Result := Copy(Result, Length(AElement.Parent.Name) + 2, MaxInt);
// to skip dots in unit name
i := Length(AElement.Name);