mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-16 16:25:54 +01:00
100 lines
4.2 KiB
ObjectPascal
100 lines
4.2 KiB
ObjectPascal
{***************************************************************************}
|
|
{ }
|
|
{ Delphi MVC Framework }
|
|
{ }
|
|
{ Copyright (c) 2010-2015 Daniele Teti and the DMVCFramework Team }
|
|
{ }
|
|
{ https://github.com/danieleteti/delphimvcframework }
|
|
{ }
|
|
{***************************************************************************}
|
|
{ }
|
|
{ Licensed under the Apache License, Version 2.0 (the "License"); }
|
|
{ you may not use this file except in compliance with the License. }
|
|
{ You may obtain a copy of the License at }
|
|
{ }
|
|
{ http://www.apache.org/licenses/LICENSE-2.0 }
|
|
{ }
|
|
{ Unless required by applicable law or agreed to in writing, software }
|
|
{ distributed under the License is distributed on an "AS IS" BASIS, }
|
|
{ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. }
|
|
{ See the License for the specific language governing permissions and }
|
|
{ limitations under the License. }
|
|
{ }
|
|
{ This IDE expert is based off of the one included with the DUnitX }
|
|
{ project. Original source by Robert Love. Adapted by Nick Hodges. }
|
|
{ }
|
|
{ The DUnitX project is run by Vincent Parrett and can be found at: }
|
|
{ }
|
|
{ https://github.com/VSoftTechnologies/DUnitX }
|
|
{***************************************************************************}
|
|
|
|
unit DMVC.Expert.NewUnitWizardEx;
|
|
|
|
interface
|
|
|
|
uses
|
|
ToolsApi,
|
|
VCL.Graphics,
|
|
PlatformAPI;
|
|
|
|
type
|
|
TDMVCNewUnitWizard = class
|
|
public
|
|
class procedure RegisterDMVCNewUnitWizard(const APersonality: string);
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
DMVC.Expert.Forms.NewUnitWizard,
|
|
DMVC.Expert.CodeGen.NewControllerUnit,
|
|
Controls,
|
|
Forms,
|
|
Windows,
|
|
ExpertsRepository;
|
|
|
|
resourcestring
|
|
sNewDMVCUnitCaption = 'DMVC Unit';
|
|
sNewDMVCProjectHint = 'Create New DMVC Controller Unit';
|
|
|
|
class procedure TDMVCNewUnitWizard.RegisterDMVCNewUnitWizard(const aPersonality: string);
|
|
begin
|
|
RegisterPackageWizard(TExpertsRepositoryProjectWizardWithProc.Create(aPersonality,
|
|
sNewDMVCProjectHint, sNewDMVCUnitCaption, 'DMVC.Wizard.NewUnitWizard', // do not localize
|
|
'DMVC', 'DMVC Team - https://github.com/danieleteti/delphimvcframework', // do not localize
|
|
procedure
|
|
var
|
|
WizardForm : TfrmDMVCNewUnit;
|
|
ModuleServices : IOTAModuleServices;
|
|
Project : IOTAProject;
|
|
ControllerUnit : IOTAModule;
|
|
begin
|
|
WizardForm := TfrmDMVCNewUnit.Create(Application);
|
|
try
|
|
if WizardForm.ShowModal = mrOk then
|
|
begin
|
|
ModuleServices := (BorlandIDEServices as IOTAModuleServices);
|
|
Project := GetActiveProject;
|
|
ControllerUnit := ModuleServices.CreateModule(
|
|
TNewControllerUnitEx.Create(WizardForm.CreateIndexMethod,
|
|
WizardForm.ControllerClassName,
|
|
aPersonality));
|
|
if Project <> nil then
|
|
begin
|
|
Project.AddFile(ControllerUnit.FileName,true);
|
|
end;
|
|
end;
|
|
finally
|
|
WizardForm.Free;
|
|
end;
|
|
end,
|
|
function: Cardinal
|
|
begin
|
|
Result := LoadIcon(HInstance,'DMVCNewUnitIcon');
|
|
end,
|
|
TArray<string>.Create(cWin32Platform, cWin64Platform),
|
|
nil));
|
|
end;
|
|
|
|
end.
|