paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 17:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Make Project HTMLBasedir globally available

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-06-19 12:58:20 +02:00
parent c1a93988f2
commit 2f3c43eef4
1 changed files with 11 additions and 0 deletions

11
components/pas2js/idehtmltools.pas
View File

@ -55,6 +55,7 @@ Type
Public
class function GetDefaultHTMLDesignFile(aFile: TLazProjectFile): String;
class function GetDefaultHTML2ClassFile(aFile: TLazProjectFile): String;
class function HTMLBaseDir: String;
Public
Constructor Create;
Class Constructor Init;
@ -353,9 +354,19 @@ begin
FTagCache.Clear;
end;
class function TIDEHTMLTools.HTMLBaseDir: String;
begin
Result:=LazarusIDE.ActiveProject.CustomData.Values[PJSProjectHTMLBaseDir];
if Result='' then
Result:=ExtractFilePath(LazarusIDE.ActiveProject.ProjectInfoFile);
end;
Initialization
HTMLTools:=TIDEHTMLTools.Create;
Finalization
HTMLtools.Free;
end.