[SOLVED] How to get the name of a project in the code of a component ?

[zacheus]

Hello,
Is it possible in the code of a new component to get the name of the project in which it is incorporated ? By example, I realize a component myComponent. I put it on Form1 of Project1. What code in myComponent could return 'project1' (in csDesigning or not) ?
Regards
 

[Leledumbo]

I don't think it's possible. Only the IDE knows about 'project', the compiler doesn't. Here's a list of things the compiler know:
via {$I}: http://www.freepascal.org/docs-html/prog/progsu38.html
via macros: http://www.freepascal.org/docs-html/prog/progse5.html

[zacheus]

I found a solution in the http://wiki.lazarus.freepascal.org/Extending_the_IDE :

constructor TmyComponent.Create(AOwner: TComponent);
{uses  [...], LCLProc, FileUtil, LazIDEIntf, ProjectIntf;}
var
  i : integer;
  aLazProject : TLazProject;
begin
  inherited Create(AOwner);
 
  if (csDesigning in ComponentState) then begin 
   aLazProject := LazarusIDE.ActiveProject;
   if aLazProject<>nil then 
    showmessage(aLazProject.ProjectInfoFile); 
  end else
   showmessage(Application.ExeName);           
  [...]
end;

Showmessage in CsDesigning returns

• project1.lpi if the project is not saved
• ../../../nameoftheproject.lpi if the project is saved

Don't forget to add "IDEIntf" in the RequiredPkgs of the component.
Regards.