[ci] test fix for lazarus 3.0 build error on macos action

fangq · Feb 18, 2024 · 4c88de2 · 4c88de2
1 parent 54f732e
commit 4c88de2
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/mcxstudio/lazhelphtml.pas b/mcxstudio/lazhelphtml.pas
@@ -21,9 +21,9 @@ interface
   {$IFDEF MSWindows}Windows, ShellApi,{$ENDIF} // needed for ShellExecute, not good for WinCE, issue #36558
   Classes, SysUtils,
   // LazUtils
-  LazFileUtils, UTF8Process, LazUTF8, LazConfigStorage,
+  LazFileUtils, UTF8Process, LazStringUtils, LazConfigStorage, LazLoggerBase,
   // LCL
-  LCLProc, LCLIntf, LCLStrConsts, HelpIntfs, LazHelpIntf;
+  LCLIntf, LCLStrConsts, HelpIntfs, LazHelpIntf;
 
 type
   { THTMLHelpDatabase
@@ -193,7 +193,7 @@ function THTMLHelpDatabase.ShowURL(const URL, Title: string; var ErrMsg: string
       if EffBaseURL<>'' then begin
         SplitURL(EffBaseURL,BaseURLType,BaseURLPath,BaseURLParams);
         if (BaseURLPath<>'') then
-          URLPath:=BaseURLPath+BaseURLParams+URLPath;
+          URLPath:=BaseURLPath+URLPath;
         URLType:=BaseURLType;
       end;
     end;