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

IDE: Auto-create DataModule. Regression from revision 63005 #f5472e8233. Issue #38946

Browse Source 
git-svn-id: trunk@65153 -
This commit is contained in:
michl 2021-05-30 11:59:48 +00:00
parent a3bd018a86
commit 37c8a252a1
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/sourcefilemanager.pas
View File

@ -2166,7 +2166,7 @@ begin
LRSFilename:=ChangeFileExt(NewUnitInfo.Filename,'.lrs');
CodeToolBoss.CreateFile(LRSFilename);
end;
if (NewUnitInfo.Component is TCustomForm)
if ((NewUnitInfo.Component is TCustomForm) or (NewUnitInfo.Component is TDataModule))
and NewFileDescriptor.UseCreateFormStatements
and NewUnitInfo.IsPartOfProject
and AProject.AutoCreateForms
@ -4487,7 +4487,8 @@ begin
NewUnitInfo.ComponentName:=NewComponent.Name;
NewUnitInfo.ComponentResourceName:=NewUnitInfo.ComponentName;
if UseCreateFormStatements and (NewComponent is TCustomForm)
if UseCreateFormStatements
and ((NewComponent is TCustomForm) or (NewComponent is TDataModule))
and NewUnitInfo.IsPartOfProject
and Project1.AutoCreateForms
and (pfMainUnitHasCreateFormStatements in Project1.Flags) then