paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 12:39: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

24
components/pas2js/pjscontroller.pp
View File

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