paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 19:59:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: When adding existing forms (originally created in other project) to a new project, those forms are not shown in the list of units/forms which can be inherited. Issue #38584.

Browse Source 
git-svn-id: trunk@64748 -
This commit is contained in:
balazs 2021-03-05 16:09:38 +00:00
parent e431045dac
commit 53d2d1558a
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/projectinspector.pas
View File

@ -71,7 +71,7 @@ uses
LazarusIDEStrConsts, MainBase, IDEProcs, DialogProcs, IDEOptionDefs, Project,
InputHistory, TransferMacros, EnvironmentOpts, BuildManager,
ProjPackChecks, ProjPackEditing, ProjPackFilePropGui, PackageDefs, PackageSystem,
AddToProjectDlg, AddPkgDependencyDlg, AddFPMakeDependencyDlg;
AddToProjectDlg, AddPkgDependencyDlg, AddFPMakeDependencyDlg, LResources;
type
TOnAddUnitToProject =
@ -480,6 +480,8 @@ function TProjectInspectorForm.AddOneFile(aFilename: string): TModalResult;
var
NewFile: TUnitInfo;
NewFN: String;
LFMType, LFMComponentName, LFMClassName: String;
LFMFilename: String;
begin
Result := mrOK;
NewFN:=CleanAndExpandFilename(aFilename);
@ -490,6 +492,13 @@ begin
end else begin
NewFile:=TUnitInfo.Create(nil);
NewFile.Filename:=aFilename;
LFMFilename := NewFile.UnitResourceFileformat.GetUnitResourceFilename(NewFile.Filename, True);
if LFMFilename <> '' then
begin
if ReadLFMHeaderFromFile(LFMFilename, LFMType, LFMComponentName, LFMClassName) then
if (LFMComponentName <> '') and (LFMClassName <> '') then
NewFile.ComponentName := LFMComponentName;
end;
LazProject.AddFile(NewFile,false);
end;
NewFile.IsPartOfProject:=true;