Completed "New Controller" Wizard.

danieleteti · Apr 14, 2024 · bbea870 · bbea870
1 parent 8a7533f
commit bbea870
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/ideexpert/DMVC.Expert.Forms.NewUnitWizard.pas b/ideexpert/DMVC.Expert.Forms.NewUnitWizard.pas
@@ -82,7 +82,7 @@   TfrmDMVCNewUnit = class(TForm)
 implementation
 
 uses
-  DMVC.Expert.CodeGen.Templates;
+  DMVC.Expert.CodeGen.Templates, DMVC.Expert.Commons;
 
 {$R *.dfm}
 
@@ -119,6 +119,15 @@ function TfrmDMVCNewUnit.GetAddAnalyticsMiddleware: boolean;
 
 function TfrmDMVCNewUnit.GetConfigModel: TJSONObject;
 begin
+  fModel.S[TConfigKey.program_name] :=  'TBA';
+  fModel.S[TConfigKey.controller_unit_name] := 'TBA';
+  fModel.S[TConfigKey.controller_classname] :=  GetControllerClassName;
+  fModel.B[TConfigKey.controller_index_methods_generate] :=  chkCreateIndexMethod.Checked;
+  fModel.B[TConfigKey.controller_action_filters_generate] :=  chkCreateActionFiltersMethods.Checked;
+  fModel.B[TConfigKey.controller_crud_methods_generate] :=  chkCreateCRUDMethods.Checked;
+  fModel.B[TConfigKey.entity_generate] :=  fModel.B[TConfigKey.controller_crud_methods_generate];
+  fModel.S[TConfigKey.entity_classname] :=  'TPerson';
+
   Result := fModel;
 end;