paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 13:19:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Prioritize file

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-04-23 11:36:45 +02:00
parent 98dd30e80a
commit 403d51105b
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/pas2js/pjscontroller.pp
View File

@ -204,9 +204,7 @@ Var
aFile: TLazProjectFile;
begin
Result:=aProject.CustomData.Values[PJSProjectHTMLFile{%H-}];
If Result='' then
begin
Result:='';
I:=aProject.FileCount-1;
While (Result='') and (I>=0) do
begin
@ -216,7 +214,9 @@ begin
Result:=aFile.GetFullFilename;
Dec(I);
end;
end;
if Result='' then
// Fallback
Result:=aProject.CustomData.Values[PJSProjectHTMLFile{%H-}];
end;
function TPJSController.GetHTMLFilename(aProject: TLazProject; UseTestDir: boolean): string;