paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 21:41:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Improve HTML File detection

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-06-14 20:14:24 +02:00
parent 853114ab51
commit c06965e4aa
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/pas2js/idehtmltools.pas
View File

@ -331,9 +331,14 @@ function TIDEHTMLTools.GetHTMLFileForComponent(aComponent: TComponent): String;
Var
aFile : TLazProjectFile;
begin
// See if a handler is registered for the component.
Result:=GetNameFromComponent(aComponent);
if Result='' then
// try a handler for the form on which the component is dropped
Result:=GetNameFromComponent(aComponent.Owner);
if Result='' then
begin
// Now try settings stored in project
aFile:=LazarusIDE.GetProjectFileWithRootComponent(aComponent.Owner);
if aFile=Nil then
aFile:=LazarusIDE.GetProjectFileWithRootComponent(aComponent);