paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-26 13:19:29 +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; aFile: TLazProjectFile;
begin begin
Result:=aProject.CustomData.Values[PJSProjectHTMLFile{%H-}]; Result:='';
If Result='' then
begin
I:=aProject.FileCount-1; I:=aProject.FileCount-1;
While (Result='') and (I>=0) do While (Result='') and (I>=0) do
begin begin
@ -216,7 +214,9 @@ begin
Result:=aFile.GetFullFilename; Result:=aFile.GetFullFilename;
Dec(I); Dec(I);
end; end;
end; if Result='' then
// Fallback
Result:=aProject.CustomData.Values[PJSProjectHTMLFile{%H-}];
end; end;
function TPJSController.GetHTMLFilename(aProject: TLazProject; UseTestDir: boolean): string; function TPJSController.GetHTMLFilename(aProject: TLazProject; UseTestDir: boolean): string;