Delphi/delphimvcframework
1
0
Fork 0
mirror of https://github.com/danieleteti/delphimvcframework.git synced 2024-11-15 07:45:54 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Completed "New Controller" Wizard.

Browse Source
This commit is contained in:
Daniele Teti 2024-04-14 11:49:45 +02:00
parent 8a7533f252
commit bbea870489
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ideexpert/DMVC.Expert.Forms.NewUnitWizard.pas
View File

@ -82,7 +82,7 @@ var
implementation implementation
uses uses
DMVC.Expert.CodeGen.Templates; DMVC.Expert.CodeGen.Templates, DMVC.Expert.Commons;
{$R *.dfm} {$R *.dfm}
@ -119,6 +119,15 @@ end;
function TfrmDMVCNewUnit.GetConfigModel: TJSONObject; function TfrmDMVCNewUnit.GetConfigModel: TJSONObject;
begin 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; Result := fModel;
end; end;