paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 19:39:30 +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'); LRSFilename:=ChangeFileExt(NewUnitInfo.Filename,'.lrs');
CodeToolBoss.CreateFile(LRSFilename); CodeToolBoss.CreateFile(LRSFilename);
end; end;
if (NewUnitInfo.Component is TCustomForm) if ((NewUnitInfo.Component is TCustomForm) or (NewUnitInfo.Component is TDataModule))
and NewFileDescriptor.UseCreateFormStatements and NewFileDescriptor.UseCreateFormStatements
and NewUnitInfo.IsPartOfProject and NewUnitInfo.IsPartOfProject
and AProject.AutoCreateForms and AProject.AutoCreateForms
@ -4487,7 +4487,8 @@ begin
NewUnitInfo.ComponentName:=NewComponent.Name; NewUnitInfo.ComponentName:=NewComponent.Name;
NewUnitInfo.ComponentResourceName:=NewUnitInfo.ComponentName; NewUnitInfo.ComponentResourceName:=NewUnitInfo.ComponentName;
if UseCreateFormStatements and (NewComponent is TCustomForm) if UseCreateFormStatements
and ((NewComponent is TCustomForm) or (NewComponent is TDataModule))
and NewUnitInfo.IsPartOfProject and NewUnitInfo.IsPartOfProject
and Project1.AutoCreateForms and Project1.AutoCreateForms
and (pfMainUnitHasCreateFormStatements in Project1.Flags) then and (pfMainUnitHasCreateFormStatements in Project1.Flags) then