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

* fixes #40893 using Otherfiles parameter to fpdoc with CHM backend.

Browse Source
This commit is contained in:
marcoonthegit 2024-08-24 17:25:51 +02:00
parent 0a6344270a
commit 4b4e40dbc9
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
utils/fpdoc/dw_basehtml.pp
View File

@ -154,13 +154,13 @@ type
Property BaseImageURL : String Read FBaseImageURL Write FBaseImageURL;
end;
Function FixHTMLpath(S : String) : STring;
Function FixHTMLpath(const S : String) : STring;
implementation
uses fpdocstrs, xmlread, sysutils, sh_pas;
Function FixHTMLpath(S : String) : STring;
Function FixHTMLpath(const S : String) : STring;
begin
Result:=StringReplace(S,'\','/',[rfReplaceAll]);

4
utils/fpdoc/dw_chm.pp
View File

@ -212,7 +212,7 @@ end;
function TCHMHTMLWriter.RetrieveOtherFiles(const DataName: String; out
PathInChm: String; out FileName: String; var Stream: TStream): Boolean;
begin
Result:=True;
Result:=False;
if Stream <> nil then
Stream.Free;
Stream := TMemoryStream.Create;
@ -223,7 +223,7 @@ begin
PathInChm := ExtractRelativepath(GetCurrentDir, ExtractFileDir(DataName))
else
PathInChm := '/';
FixHTMLpath(PathInChm);
PathInChm:=FixHTMLpath(IncludeLeadingPathDelimiter(IncludeTrailingPathDelimiter(PathInChm)));
Stream.Position := 0;
end;