ADDED IDE Splash Icon

dodo.py

@@ -82,8 +82,11 @@ def copy_sources():
     header("Copying DMVCFramework IDEExpert...")
     print("Copying ideexpert")
     src = glob.glob("ideexpert\\*.pas") + \
-        glob.glob("ideexpert\\*.dfm") + glob.glob("ideexpert\\*.ico")
-    src += glob.glob("ideexpert\\*.dpk") + glob.glob("ideexpert\\*.dproj")
+          glob.glob("ideexpert\\*.dfm") + \
+					glob.glob("ideexpert\\*.ico") + \
+					glob.glob("ideexpert\\*.bmp") + \
+					glob.glob("ideexpert\\*.dpk") + \
+					glob.glob("ideexpert\\*.dproj")
     for file in src:
         print("Copying " + file + " to " + output_folder + "\\ideexpert")
         copy2(file, output_folder + "\\ideexpert\\")

ideexpert/DMVC.Expert.NewUnitWizard.pas

@@ -1,166 +0,0 @@
-{***************************************************************************}
-{                                                                           }
-{           DUnitX                                                          }
-{                                                                           }
-{           Copyright (C) 2015 Vincent Parrett & Contributors               }
-{                                                                           }
-{           vincent@finalbuilder.com                                        }
-{           http://www.finalbuilder.com                                     }
-{                                                                           }
-{                                                                           }
-{***************************************************************************}
-{                                                                           }
-{  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.                                           }
-{                                                                           }
-{***************************************************************************}
-
-unit DUnitX.Expert.NewUnitWizard;
-
-interface
-
-{$I DUnitX.inc}
-
-uses
-  ToolsApi,
-  {$IFDEF USE_NS}
-  VCL.Graphics;
-  {$ELSE}
-  Graphics;
-  {$ENDIF}
-
-type
-  TDUnitXNewUnitWizard = class(TNotifierObject, IOTAWizard,
-    IOTARepositoryWizard, IOTARepositoryWizard80, IOTAProjectWizard)
-  protected
-    FIcon: TIcon;
-  public
-    // IOTARepositoryWizard80
-    function GetGalleryCategory: IOTAGalleryCategory;
-    function GetPersonality: string;
-    // IOTARepositoryWizard60
-    function GetDesigner: string;
-    // IOTARepositoryWizard
-    function GetAuthor: string;
-    function GetComment: string;
-    function GetPage: string;
-    function GetGlyph: Cardinal;
-
-    // IOTAWizard
-    function GetIDString: string;
-    function GetName: string;
-    function GetState: TWizardState;
-    { Launch the AddIn }
-    procedure Execute;
-    constructor Create;
-    destructor Destroy; override;
-  end;
-
-implementation
-
-uses
-  DUnitX.Expert.Forms.NewUnitWizard,
-  DUnitX.Expert.CodeGen.NewTestUnit,
-  Controls,
-  Forms,
-  Windows;
-
-{ TNewBatchJobWizard }
-
-constructor TDUnitXNewUnitWizard.Create;
-begin
-  FIcon := TIcon.Create;
-  FIcon.LoadFromResourceName(HInstance, 'DUnitXNewUnitIcon');
-end;
-
-destructor TDUnitXNewUnitWizard.Destroy;
-begin
-  FIcon.Free;
-  inherited;
-end;
-
-procedure TDUnitXNewUnitWizard.Execute;
-var
-  WizardForm     : TfrmDunitXNewUnit;
-  ModuleServices : IOTAModuleServices;
-  Project        : IOTAProject;
-  TestUnit       : IOTAModule;
-begin
-  WizardForm := TfrmDunitXNewUnit.Create(Application);
-  try
-    if WizardForm.ShowModal = mrOk then
-    begin
-      ModuleServices := (BorlandIDEServices as IOTAModuleServices);
-      Project :=  GetActiveProject;
-      TestUnit := ModuleServices.CreateModule(
-                       TNewTestUnit.Create(WizardForm.CreateSetupTearDownMethods,
-                                           WizardForm.CreateSampleMethods,
-                                           WizardForm.TestFixtureClasaName ));
-      Project.AddFile(TestUnit.FileName,true);
-    end;
-  finally
-    WizardForm.Free;
-  end;
-end;
-
-function TDUnitXNewUnitWizard.GetAuthor: string;
-begin
-  result := 'DUnitX Team - https://github.com/VSoftTechnologies/DUnitX';
-end;
-
-function TDUnitXNewUnitWizard.GetComment: string;
-begin
-  result := 'Create New DUnitX Test Unit';
-end;
-
-function TDUnitXNewUnitWizard.GetDesigner: string;
-begin
-  result := dAny;
-end;
-
-function TDUnitXNewUnitWizard.GetGalleryCategory: IOTAGalleryCategory;
-begin
-  result := (BorlandIDEServices as IOTAGalleryCategoryManager)
-    .FindCategory(sCategoryDelphiNewFiles);
-end;
-
-function TDUnitXNewUnitWizard.GetGlyph: Cardinal;
-begin
-  result := CopyIcon(FIcon.Handle);
-end;
-
-function TDUnitXNewUnitWizard.GetIDString: string;
-begin
-  result := 'DunitX.Wizard.NewUnitWizard';
-end;
-
-function TDUnitXNewUnitWizard.GetName: string;
-begin
-  result := 'DUnitX Unit';
-end;
-
-function TDUnitXNewUnitWizard.GetPage: string;
-begin
-  result := 'Delphi Files';
-end;
-
-function TDUnitXNewUnitWizard.GetPersonality: string;
-begin
-  result := sDelphiPersonality;
-end;
-
-function TDUnitXNewUnitWizard.GetState: TWizardState;
-begin
-  result := [wsEnabled];
-end;
-
-end.

ideexpert/DMVC.Expert.NewUnitWizardEx.pas

@@ -48,9 +48,9 @@ implementation
 uses
   DMVC.Expert.Forms.NewUnitWizard,
   DMVC.Expert.CodeGen.NewControllerUnit,
-  Controls,
-  Forms,
-  Windows,
+  Vcl.Controls,
+  Vcl.Forms,
+  WinApi.Windows,
   ExpertsRepository;
 
 resourcestring

ideexpert/DMVC.Expert.ProjectWizard.pas

@@ -1,185 +0,0 @@
-{***************************************************************************}
-{                                                                           }
-{           DUnitX                                                          }
-{                                                                           }
-{           Copyright (C) 2015 Vincent Parrett & Contributors               }
-{                                                                           }
-{           vincent@finalbuilder.com                                        }
-{           http://www.finalbuilder.com                                     }
-{                                                                           }
-{                                                                           }
-{***************************************************************************}
-{                                                                           }
-{  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.                                           }
-{                                                                           }
-{***************************************************************************}
-
-unit DUnitX.Expert.ProjectWizard;
-
-interface
-
-{$I DUnitX.inc}
-
-uses
-  ToolsApi,
-  {$IFDEF USE_NS}
-  VCL.Graphics;
-  {$ELSE}
-  Graphics;
-  {$ENDIF}
-
-
-type
-   TDUnitXNewProjectWizard = class(TNotifierObject,IOTAWizard,IOTARepositoryWizard, IOTARepositoryWizard80, IOTAProjectWizard)
-   protected
-     FIcon : TIcon;
-   public
-    // IOTARepositoryWizard80
-     function GetGalleryCategory: IOTAGalleryCategory;
-     function GetPersonality: string;
-    // IOTARepositoryWizard60
-    function GetDesigner: string;
-    // IOTARepositoryWizard
-    function GetAuthor: string;
-    function GetComment: string;
-    function GetPage: string;
-    function GetGlyph: Cardinal;
-
-
-    // IOTAWizard
-    function GetIDString: string;
-    function GetName: string;
-    function GetState: TWizardState;
-    { Launch the AddIn }
-    procedure Execute;
-    constructor Create;
-    destructor Destroy; override;
-   end;
-
-
-implementation
-
-uses
-  DUnitX.Expert.Forms.NewProjectWizard,
-  DUnitX.Expert.CodeGen.NewTestProject,
-  DUnitX.Expert.CodeGen.NewTestUnit,
-  DccStrs,
-  Controls,
-  Forms,
-  Windows;
-
-{ TNewBatchJobWizard }
-
-constructor TDUnitXNewProjectWizard.Create;
-begin
-  FIcon := TIcon.create;
-  FIcon.LoadFromResourceName(HInstance,'DUnitXNewProjectIcon');
-end;
-
-destructor TDUnitXNewProjectWizard.Destroy;
-begin
-  FIcon.Free;
-  inherited;
-end;
-
-procedure TDUnitXNewProjectWizard.Execute;
-var
-  WizardForm     : TfrmDunitXNewProject;
-  ModuleServices : IOTAModuleServices;
-  Project        : IOTAProject;
-  Config         : IOTABuildConfiguration;
-  TestUnit       : IOTAModule;
-begin
-  WizardForm := TfrmDunitXNewProject.Create(Application);
-  try
-    if WizardForm.ShowModal = mrOk then
-    begin
-      if not WizardForm.AddToProjectGroup then
-      begin
-        (BorlandIDEServices as IOTAModuleServices).CloseAll;
-      end;
-      ModuleServices := (BorlandIDEServices as IOTAModuleServices);
-      // Create Project Source
-      ModuleServices.CreateModule(TTestProjectFile.Create);
-      Project :=  GetActiveProject;
-      Config := (Project.ProjectOptions as IOTAProjectOptionsConfigurations).BaseConfiguration;
-      Config.SetValue(sUnitSearchPath,'$(DUnitX)');
-      // Create Test Unit
-      if WizardForm.CreateTestUnit then
-      begin
-         TestUnit := ModuleServices.CreateModule(
-                       TNewTestUnit.Create(WizardForm.CreateSetupTearDownMethods,
-                                           WizardForm.CreateSampleMethods,
-                                           WizardForm.TestFixtureClasaName ));
-         Project.AddFile(TestUnit.FileName,true);
-      end;
-
-
-    end;
-  finally
-    WizardForm.Free;
-  end;
-end;
-
-function TDUnitXNewProjectWizard.GetAuthor: string;
-begin
-  result := 'DUnitX Team - https://github.com/VSoftTechnologies/DUnitX';
-end;
-
-function TDUnitXNewProjectWizard.GetComment: string;
-begin
-  result := 'Create New DUnitX Test Project';
-end;
-
-function TDUnitXNewProjectWizard.GetDesigner: string;
-begin
-  result := dAny;
-end;
-
-function TDUnitXNewProjectWizard.GetGalleryCategory: IOTAGalleryCategory;
-begin
-  result :=  (BorlandIDEServices as IOTAGalleryCategoryManager).FindCategory(sCategoryDelphiNew);
-end;
-
-function TDUnitXNewProjectWizard.GetGlyph: Cardinal;
-begin
-  result := CopyIcon(FIcon.Handle);
-end;
-
-function TDUnitXNewProjectWizard.GetIDString: string;
-begin
- result := 'DunitX.Wizard.NewProjectWizard';
-end;
-
-function TDUnitXNewProjectWizard.GetName: string;
-begin
-  result := 'DUnitX Project';
-end;
-
-function TDUnitXNewProjectWizard.GetPage: string;
-begin
- // Results not used if IOTARepositoryWizard80.GetGalleryCategory implemented
-  result := 'Delphi Project';
-end;
-
-function TDUnitXNewProjectWizard.GetPersonality: string;
-begin
- result := sDelphiPersonality;
-end;
-
-function TDUnitXNewProjectWizard.GetState: TWizardState;
-begin
- result := [wsEnabled];
-end;
-
-end.

ideexpert/DMVC.Expert.Registration.pas

@@ -30,7 +30,7 @@
 
 unit DMVC.Expert.Registration;
 
-{.$R DelphiMVCFrameworkSplash.res}
+{ .$R 'SplashScreenIcon.RES' }
 
 interface
 
@@ -41,66 +41,50 @@ implementation
 
 uses
   ToolsApi,
+  DesignIntf,
   System.SysUtils,
-  Vcl.Dialogs,
   DMVC.Expert.ProjectWizardEx,
   DMVC.Expert.NewUnitWizardEx,
-  Vcl.Graphics,
   Winapi.Windows;
 
-var
-  AboutBoxServices: IOTAAboutBoxServices = nil;
-  AboutBoxIndex: Integer = 0;
-
-resourcestring
-  resPackageName = 'DelphiMVCFramework';
-  resLicense = 'OpenSource (Apache 2)';
-  resAboutCopyright = 'Copyright Daniele Teti and the DMVCFramework Team';
-  resAboutTitle = 'DelphiMVCFramework';
-  resAboutDescription = 'https://github.com/danieleteti/delphimvcframework';
-
 procedure Register;
 begin
+  ForceDemandLoadState(dlDisable);
   TDMVCNewProjectWizard.RegisterDMVCProjectWizard(sDelphiPersonality);
   TDMVCNewUnitWizard.RegisterDMVCNewUnitWizard(sDelphiPersonality);
 end;
 
-procedure RegisterSplashScreen;
-var
-  LBmp: Vcl.Graphics.TBitmap;
-begin
-  LBmp := Vcl.Graphics.TBitmap.Create;
-  LBmp.LoadFromResourceName(HInstance, 'SPLASH');
-  SplashScreenServices.AddPluginBitmap(resPackageName, LBmp.Handle, False, resLicense, '');
-  LBmp.Free;
-end;
-
-procedure RegisterAboutBox;
-var
-  LProductImage: HBITMAP;
-begin
-  Supports(BorlandIDEServices, IOTAAboutBoxServices, AboutBoxServices);
-  LProductImage := LoadBitmap(FindResourceHInstance(HInstance), 'SPLASH');
-  AboutBoxIndex := AboutBoxServices.AddPluginInfo(resPackageName, resAboutDescription, LProductImage, False, resLicense);
-end;
-
-procedure UnregisterAboutBox;
-begin
-  if (AboutBoxIndex = 0) and Assigned(AboutBoxServices) then
-  begin
-    AboutBoxServices.RemovePluginInfo(AboutBoxIndex);
-    AboutBoxIndex := 0;
-    AboutBoxServices := nil;
-  end;
-end;
+// procedure RegisterSplashScreen;
+// var
+// LBmp: Vcl.Graphics.TBitmap;
+// begin
+// LBmp := Vcl.Graphics.TBitmap.Create;
+// LBmp.LoadFromResourceName(HInstance, 'SPLASH');
+// SplashScreenServices.AddPluginBitmap(resPackageName, LBmp.Handle, False, resLicense, '');
+// LBmp.Free;
+// end;
+//
+// procedure RegisterAboutBox;
+// var
+// LProductImage: HBITMAP;
+// begin
+// Supports(BorlandIDEServices, IOTAAboutBoxServices, AboutBoxServices);
+// LProductImage := LoadBitmap(FindResourceHInstance(HInstance), 'SPLASH');
+// AboutBoxIndex := AboutBoxServices.AddPluginInfo(resPackageName, resAboutDescription, LProductImage, False, resLicense);
+// end;
+//
+// procedure UnregisterAboutBox;
+// begin
+// if (AboutBoxIndex = 0) and Assigned(AboutBoxServices) then
+// begin
+// AboutBoxServices.RemovePluginInfo(AboutBoxIndex);
+// AboutBoxIndex := 0;
+// AboutBoxServices := nil;
+// end;
+// end;
 
 initialization
 
-// RegisterSplashScreen;
-// RegisterAboutBox;
-
 finalization
 
-// UnregisterAboutBox;
-
 end.

ideexpert/DMVC.Splash.Registration.pas

@@ -0,0 +1,44 @@
+unit DMVC.Splash.Registration;
+
+interface
+
+uses
+  Winapi.Windows;
+
+var
+  bmSplashScreen: HBITMAP;
+  // iAboutPluginIndex: Integer = 0;
+
+implementation
+
+uses
+  ToolsAPI, SysUtils, Vcl.Dialogs,
+  MVCFramework.Commons;
+
+resourcestring
+  resPackageName = 'DelphiMVCFramework ' + DMVCFRAMEWORK_VERSION;
+  resLicense = 'Apache License, Version 2.0';
+  resAboutCopyright = 'Copyright Daniele Teti and the DMVCFramework Team';
+  resAboutTitle = 'DelphiMVCFramework';
+  resAboutDescription = 'https://github.com/danieleteti/delphimvcframework';
+
+initialization
+
+{ Add Splash Screen, but this doesn't work in Tokyo
+  if there is a Register procedure in the same package. }
+
+bmSplashScreen := LoadBitmap(hInstance, 'SplashScreen');
+(SplashScreenServices as IOTASplashScreenServices).AddPluginBitmap(
+  resPackageName,
+  bmSplashScreen,
+  False,
+  resLicense);
+
+finalization
+
+
+// Remove Aboutbox Plugin Interface
+// if iAboutPluginIndex > 0 then
+// (BorlandIDEServices as IOTAAboutBoxServices).RemovePluginInfo(iAboutPluginIndex);
+
+end.

ideexpert/DMVC_IDE_Expert_D101Berlin.dpk

@@ -33,7 +33,10 @@ package DMVC_IDE_Expert_D101Berlin;
 requires
   rtl,
   designide,
-  ExpertsCreators;
+  ExpertsCreators,
+  IndySystem,
+  IndyProtocols,
+  IndyCore;
 
 contains
   DMVC.Expert.CodeGen.SourceFile in 'DMVC.Expert.CodeGen.SourceFile.pas',
@@ -47,6 +50,7 @@ contains
   DMVC.Expert.CodeGen.NewControllerUnit in 'DMVC.Expert.CodeGen.NewControllerUnit.pas',
   DMVC.Expert.NewUnitWizardEx in 'DMVC.Expert.NewUnitWizardEx.pas',
   DMVC.Expert.ProjectWizardEx in 'DMVC.Expert.ProjectWizardEx.pas',
-  DMVC.Expert.CodeGen.NewWebModuleUnit in 'DMVC.Expert.CodeGen.NewWebModuleUnit.pas';
+  DMVC.Expert.CodeGen.NewWebModuleUnit in 'DMVC.Expert.CodeGen.NewWebModuleUnit.pas',
+  DMVC.Splash.Registration in 'DMVC.Splash.Registration.pas';
 
 end.

ideexpert/DMVC_IDE_Expert_D101Berlin.dproj

@@ -59,14 +59,14 @@
         <DCC_K>false</DCC_K>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Base_Win32)'!=''">
-        <DCC_UsePackage>rtl;$(DCC_UsePackage)</DCC_UsePackage>
+        <DCC_UsePackage>rtl;IndySystem;IndyProtocols;IndyCore;$(DCC_UsePackage)</DCC_UsePackage>
         <VerInfo_Locale>1033</VerInfo_Locale>
         <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
         <VerInfo_Keys>CompanyName=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(ModuleName);FileDescription=$(ModuleName);ProductName=$(ModuleName)</VerInfo_Keys>
         <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Base_Win64)'!=''">
-        <DCC_UsePackage>rtl;$(DCC_UsePackage)</DCC_UsePackage>
+        <DCC_UsePackage>rtl;IndySystem;IndyProtocols;IndyCore;$(DCC_UsePackage)</DCC_UsePackage>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_1)'!=''">
         <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
@@ -95,6 +95,9 @@
         <DCCReference Include="rtl.dcp"/>
         <DCCReference Include="designide.dcp"/>
         <DCCReference Include="ExpertsCreators.dcp"/>
+        <DCCReference Include="IndySystem.dcp"/>
+        <DCCReference Include="IndyProtocols.dcp"/>
+        <DCCReference Include="IndyCore.dcp"/>
         <DCCReference Include="DMVC.Expert.CodeGen.SourceFile.pas"/>
         <DCCReference Include="DMVC.Expert.Registration.pas"/>
         <DCCReference Include="DMVC.Expert.Forms.NewUnitWizard.pas">
@@ -113,6 +116,7 @@
         <DCCReference Include="DMVC.Expert.NewUnitWizardEx.pas"/>
         <DCCReference Include="DMVC.Expert.ProjectWizardEx.pas"/>
         <DCCReference Include="DMVC.Expert.CodeGen.NewWebModuleUnit.pas"/>
+        <DCCReference Include="DMVC.Splash.Registration.pas"/>
         <RcItem Include="DMVC.Expert.NewProject.ico">
             <ResourceType>ICON</ResourceType>
             <ResourceId>DMVCNewProjectIcon</ResourceId>
@@ -121,6 +125,10 @@
             <ResourceType>ICON</ResourceType>
             <ResourceId>DMVCNewUnitIcon</ResourceId>
         </RcItem>
+        <RcItem Include="SplashScreen.bmp">
+            <ResourceType>BITMAP</ResourceType>
+            <ResourceId>SplashScreen</ResourceId>
+        </RcItem>
         <BuildConfiguration Include="Release">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>
@@ -205,7 +213,16 @@
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
-                <DeployClass Name="ProjectiOSDeviceResourceRules"/>
+                <DeployClass Name="DependencyModule">
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                        <Extensions>.dll;.bpl</Extensions>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                </DeployClass>
                 <DeployClass Name="ProjectOSXResource">
                     <Platform Name="OSX32">
                         <RemoteDir>Contents\Resources</RemoteDir>
@@ -545,16 +562,7 @@
                         <Operation>1</Operation>
                     </Platform>
                 </DeployClass>
-                <DeployClass Name="DependencyModule">
-                    <Platform Name="Win32">
-                        <Operation>0</Operation>
-                        <Extensions>.dll;.bpl</Extensions>
-                    </Platform>
-                    <Platform Name="OSX32">
-                        <Operation>1</Operation>
-                        <Extensions>.dylib</Extensions>
-                    </Platform>
-                </DeployClass>
+                <DeployClass Name="ProjectiOSDeviceResourceRules"/>
                 <ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
                 <ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
                 <ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>

ideexpert/DMVC_IDE_Expert_D101BerlinResource.rc

@@ -1,2 +1,3 @@
 DMVCNewProjectIcon ICON "DMVC.Expert.NewProject.ico"
 DMVCNewUnitIcon ICON "DMVC.Expert.NewUnit.ico"
+SplashScreen BITMAP "SplashScreen.bmp"

ideexpert/DMVC_IDE_Expert_D102Tokyo.dpk

@@ -26,8 +26,6 @@ package DMVC_IDE_Expert_D102Tokyo;
 {$IMAGEBASE $400000}
 {$DEFINE DEBUG}
 {$ENDIF IMPLICITBUILDING}
-{$DESCRIPTION 'DelphiMVCFramework - IDE Expert'}
-{$DESIGNONLY}
 {$IMPLICITBUILD ON}
 
 requires
@@ -39,19 +37,18 @@ requires
   IndyCore;
 
 contains
-  DMVC.Expert.CodeGen.SourceFile in 'DMVC.Expert.CodeGen.SourceFile.pas',
-  DMVC.Expert.Registration in 'DMVC.Expert.Registration.pas',
-  DMVC.Expert.Forms.NewUnitWizard in 'DMVC.Expert.Forms.NewUnitWizard.pas' {frmDMVCNewUnit},
-  DMVC.Expert.Forms.NewProjectWizard in 'DMVC.Expert.Forms.NewProjectWizard.pas' {frmDMVCNewProject},
-  DMVC.Expert.CodeGen.NewUnit in 'DMVC.Expert.CodeGen.NewUnit.pas',
-  DMVC.Expert.CodeGen.NewDMVCProject in 'DMVC.Expert.CodeGen.NewDMVCProject.pas',
-  DMVC.Expert.CodeGen.Templates in 'DMVC.Expert.CodeGen.Templates.pas',
-  DMVC.Expert.CodeGen.NewProject in 'DMVC.Expert.CodeGen.NewProject.pas',
   DMVC.Expert.CodeGen.NewControllerUnit in 'DMVC.Expert.CodeGen.NewControllerUnit.pas',
+  DMVC.Expert.CodeGen.NewDMVCProject in 'DMVC.Expert.CodeGen.NewDMVCProject.pas',
+  DMVC.Expert.CodeGen.NewProject in 'DMVC.Expert.CodeGen.NewProject.pas',
+  DMVC.Expert.CodeGen.NewUnit in 'DMVC.Expert.CodeGen.NewUnit.pas',
+  DMVC.Expert.CodeGen.NewWebModuleUnit in 'DMVC.Expert.CodeGen.NewWebModuleUnit.pas',
+  DMVC.Expert.CodeGen.SourceFile in 'DMVC.Expert.CodeGen.SourceFile.pas',
+  DMVC.Expert.CodeGen.Templates in 'DMVC.Expert.CodeGen.Templates.pas',
+  DMVC.Expert.Forms.NewProjectWizard in 'DMVC.Expert.Forms.NewProjectWizard.pas' { frmDMVCNewProject } ,
+  DMVC.Expert.Forms.NewUnitWizard in 'DMVC.Expert.Forms.NewUnitWizard.pas' { frmDMVCNewUnit } ,
   DMVC.Expert.NewUnitWizardEx in 'DMVC.Expert.NewUnitWizardEx.pas',
   DMVC.Expert.ProjectWizardEx in 'DMVC.Expert.ProjectWizardEx.pas',
-  DMVC.Expert.CodeGen.NewWebModuleUnit in 'DMVC.Expert.CodeGen.NewWebModuleUnit.pas',
-  MVCFramework.TypesAliases in '..\sources\MVCFramework.TypesAliases.pas',
-  MVCFramework.Commons in '..\sources\MVCFramework.Commons.pas';
+  DMVC.Expert.Registration in 'DMVC.Expert.Registration.pas',
+  DMVC.Splash.Registration in 'DMVC.Splash.Registration.pas';
 
 end.

ideexpert/DMVC_IDE_Expert_D102Tokyo.dproj

@@ -1,9 +1,9 @@
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
     <PropertyGroup>
-        <ProjectGuid>{516CEAEF-DA74-4CBA-9344-CD4C630B73A8}</ProjectGuid>
+        <ProjectGuid>{84344511-1DC2-41BA-8689-9F36C1D475BE}</ProjectGuid>
         <MainSource>DMVC_IDE_Expert_D102Tokyo.dpk</MainSource>
         <ProjectVersion>18.2</ProjectVersion>
-        <FrameworkType>VCL</FrameworkType>
+        <FrameworkType>None</FrameworkType>
         <Base>True</Base>
         <Config Condition="'$(Config)'==''">Debug</Config>
         <Platform Condition="'$(Platform)'==''">Win32</Platform>
@@ -13,6 +13,36 @@
     <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
         <Base>true</Base>
     </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Android' and '$(Base)'=='true') or '$(Base_Android)'!=''">
+        <Base_Android>true</Base_Android>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='iOSDevice32' and '$(Base)'=='true') or '$(Base_iOSDevice32)'!=''">
+        <Base_iOSDevice32>true</Base_iOSDevice32>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Base)'=='true') or '$(Base_iOSDevice64)'!=''">
+        <Base_iOSDevice64>true</Base_iOSDevice64>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='iOSSimulator' and '$(Base)'=='true') or '$(Base_iOSSimulator)'!=''">
+        <Base_iOSSimulator>true</Base_iOSSimulator>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Linux64' and '$(Base)'=='true') or '$(Base_Linux64)'!=''">
+        <Base_Linux64>true</Base_Linux64>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='OSX32' and '$(Base)'=='true') or '$(Base_OSX32)'!=''">
+        <Base_OSX32>true</Base_OSX32>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
     <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
         <Base_Win32>true</Base_Win32>
         <CfgParent>Base</CfgParent>
@@ -39,23 +69,7 @@
         <CfgParent>Base</CfgParent>
         <Base>true</Base>
     </PropertyGroup>
-    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
-        <Cfg_2_Win32>true</Cfg_2_Win32>
-        <CfgParent>Cfg_2</CfgParent>
-        <Cfg_2>true</Cfg_2>
-        <Base>true</Base>
-    </PropertyGroup>
     <PropertyGroup Condition="'$(Base)'!=''">
-        <DCC_UnitSearchPath>..\;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
-        <SanitizedProjectName>DMVC_IDE_Expert_D102Tokyo</SanitizedProjectName>
-        <DCC_Description>DelphiMVCFramework - IDE Expert</DCC_Description>
-        <VerInfo_Locale>1033</VerInfo_Locale>
-        <DesignOnlyPackage>true</DesignOnlyPackage>
-        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
-        <GenDll>true</GenDll>
-        <GenPackage>true</GenPackage>
-        <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
-        <DCC_CBuilderOutput>All</DCC_CBuilderOutput>
         <DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
         <DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
         <DCC_E>false</DCC_E>
@@ -63,12 +77,42 @@
         <DCC_S>false</DCC_S>
         <DCC_F>false</DCC_F>
         <DCC_K>false</DCC_K>
+        <GenDll>true</GenDll>
+        <GenPackage>true</GenPackage>
+        <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace)</DCC_Namespace>
+        <DCC_CBuilderOutput>All</DCC_CBuilderOutput>
+        <SanitizedProjectName>DMVC_IDE_Expert_D102Tokyo</SanitizedProjectName>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Android)'!=''">
+        <DCC_CBuilderOutput>None</DCC_CBuilderOutput>
+        <EnabledSysJars>android-support-v4.dex.jar;cloud-messaging.dex.jar;fmx.dex.jar;google-analytics-v2.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar;google-play-services.dex.jar</EnabledSysJars>
+        <DCC_UsePackage>rtl;IndySystem;IndyProtocols;IndyCore;$(DCC_UsePackage)</DCC_UsePackage>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_iOSDevice32)'!=''">
+        <DCC_CBuilderOutput>None</DCC_CBuilderOutput>
+        <DCC_UsePackage>rtl;IndySystem;IndyProtocols;IndyCore;$(DCC_UsePackage)</DCC_UsePackage>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_iOSDevice64)'!=''">
+        <DCC_CBuilderOutput>None</DCC_CBuilderOutput>
+        <DCC_UsePackage>rtl;IndySystem;IndyProtocols;IndyCore;$(DCC_UsePackage)</DCC_UsePackage>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_iOSSimulator)'!=''">
+        <DCC_CBuilderOutput>None</DCC_CBuilderOutput>
+        <DCC_UsePackage>rtl;IndySystem;IndyProtocols;IndyCore;$(DCC_UsePackage)</DCC_UsePackage>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Linux64)'!=''">
+        <DCC_UsePackage>rtl;IndySystem;IndyProtocols;IndyCore;$(DCC_UsePackage)</DCC_UsePackage>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_OSX32)'!=''">
+        <DCC_UsePackage>rtl;IndySystem;IndyProtocols;IndyCore;$(DCC_UsePackage)</DCC_UsePackage>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Base_Win32)'!=''">
-        <DCC_UsePackage>rtl;IndySystem;IndyProtocols;IndyCore;$(DCC_UsePackage)</DCC_UsePackage>
         <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
-        <VerInfo_Keys>CompanyName=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName)</VerInfo_Keys>
+        <BT_BuildType>Debug</BT_BuildType>
         <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+        <VerInfo_Locale>1033</VerInfo_Locale>
+        <DCC_UsePackage>rtl;IndySystem;IndyProtocols;IndyCore;$(DCC_UsePackage)</DCC_UsePackage>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Base_Win64)'!=''">
         <DCC_UsePackage>rtl;IndySystem;IndyProtocols;IndyCore;$(DCC_UsePackage)</DCC_UsePackage>
@@ -82,10 +126,7 @@
         <DCC_RemoteDebug>true</DCC_RemoteDebug>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
-        <Debugger_HostApplication>C:\Program Files (x86)\Embarcadero\Studio\17.0\bin\bds.exe</Debugger_HostApplication>
-        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
         <DCC_RemoteDebug>false</DCC_RemoteDebug>
-        <VerInfo_Keys>CompanyName=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName)</VerInfo_Keys>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_2)'!=''">
         <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
@@ -93,10 +134,6 @@
         <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
         <DCC_DebugInformation>0</DCC_DebugInformation>
     </PropertyGroup>
-    <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
-        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
-        <VerInfo_Keys>CompanyName=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName);FileDescription=$(MSBuildProjectName);ProductName=$(MSBuildProjectName)</VerInfo_Keys>
-    </PropertyGroup>
     <ItemGroup>
         <DelphiCompile Include="$(MainSource)">
             <MainSource>MainSource</MainSource>
@@ -107,34 +144,23 @@
         <DCCReference Include="IndySystem.dcp"/>
         <DCCReference Include="IndyProtocols.dcp"/>
         <DCCReference Include="IndyCore.dcp"/>
+        <DCCReference Include="DMVC.Expert.CodeGen.NewControllerUnit.pas"/>
+        <DCCReference Include="DMVC.Expert.CodeGen.NewDMVCProject.pas"/>
+        <DCCReference Include="DMVC.Expert.CodeGen.NewProject.pas"/>
+        <DCCReference Include="DMVC.Expert.CodeGen.NewUnit.pas"/>
+        <DCCReference Include="DMVC.Expert.CodeGen.NewWebModuleUnit.pas"/>
         <DCCReference Include="DMVC.Expert.CodeGen.SourceFile.pas"/>
-        <DCCReference Include="DMVC.Expert.Registration.pas"/>
-        <DCCReference Include="DMVC.Expert.Forms.NewUnitWizard.pas">
-            <Form>frmDMVCNewUnit</Form>
-            <FormType>dfm</FormType>
-        </DCCReference>
+        <DCCReference Include="DMVC.Expert.CodeGen.Templates.pas"/>
         <DCCReference Include="DMVC.Expert.Forms.NewProjectWizard.pas">
             <Form>frmDMVCNewProject</Form>
-            <FormType>dfm</FormType>
         </DCCReference>
-        <DCCReference Include="DMVC.Expert.CodeGen.NewUnit.pas"/>
-        <DCCReference Include="DMVC.Expert.CodeGen.NewDMVCProject.pas"/>
-        <DCCReference Include="DMVC.Expert.CodeGen.Templates.pas"/>
-        <DCCReference Include="DMVC.Expert.CodeGen.NewProject.pas"/>
-        <DCCReference Include="DMVC.Expert.CodeGen.NewControllerUnit.pas"/>
+        <DCCReference Include="DMVC.Expert.Forms.NewUnitWizard.pas">
+            <Form>frmDMVCNewUnit</Form>
+        </DCCReference>
         <DCCReference Include="DMVC.Expert.NewUnitWizardEx.pas"/>
         <DCCReference Include="DMVC.Expert.ProjectWizardEx.pas"/>
-        <DCCReference Include="DMVC.Expert.CodeGen.NewWebModuleUnit.pas"/>
-        <DCCReference Include="..\sources\MVCFramework.TypesAliases.pas"/>
-        <DCCReference Include="..\sources\MVCFramework.Commons.pas"/>
-        <RcItem Include="DMVC.Expert.NewProject.ico">
-            <ResourceType>ICON</ResourceType>
-            <ResourceId>DMVCNewProjectIcon</ResourceId>
-        </RcItem>
-        <RcItem Include="DMVC.Expert.NewUnit.ico">
-            <ResourceType>ICON</ResourceType>
-            <ResourceId>DMVCNewUnitIcon</ResourceId>
-        </RcItem>
+        <DCCReference Include="DMVC.Expert.Registration.pas"/>
+        <DCCReference Include="DMVC.Splash.Registration.pas"/>
         <BuildConfiguration Include="Release">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>
@@ -155,57 +181,8 @@
                 <Source>
                     <Source Name="MainSource">DMVC_IDE_Expert_D102Tokyo.dpk</Source>
                 </Source>
-                <VersionInfo>
-                    <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
-                    <VersionInfo Name="AutoIncBuild">False</VersionInfo>
-                    <VersionInfo Name="MajorVer">1</VersionInfo>
-                    <VersionInfo Name="MinorVer">0</VersionInfo>
-                    <VersionInfo Name="Release">0</VersionInfo>
-                    <VersionInfo Name="Build">0</VersionInfo>
-                    <VersionInfo Name="Debug">False</VersionInfo>
-                    <VersionInfo Name="PreRelease">False</VersionInfo>
-                    <VersionInfo Name="Special">False</VersionInfo>
-                    <VersionInfo Name="Private">False</VersionInfo>
-                    <VersionInfo Name="DLL">False</VersionInfo>
-                    <VersionInfo Name="Locale">1033</VersionInfo>
-                    <VersionInfo Name="CodePage">1252</VersionInfo>
-                </VersionInfo>
-                <VersionInfoKeys>
-                    <VersionInfoKeys Name="CompanyName"/>
-                    <VersionInfoKeys Name="FileDescription"/>
-                    <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
-                    <VersionInfoKeys Name="InternalName"/>
-                    <VersionInfoKeys Name="LegalCopyright"/>
-                    <VersionInfoKeys Name="LegalTrademarks"/>
-                    <VersionInfoKeys Name="OriginalFilename"/>
-                    <VersionInfoKeys Name="ProductName"/>
-                    <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
-                    <VersionInfoKeys Name="Comments"/>
-                    <VersionInfoKeys Name="CFBundleName"/>
-                    <VersionInfoKeys Name="CFBundleDisplayName"/>
-                    <VersionInfoKeys Name="UIDeviceFamily"/>
-                    <VersionInfoKeys Name="CFBundleIdentifier"/>
-                    <VersionInfoKeys Name="CFBundleVersion"/>
-                    <VersionInfoKeys Name="CFBundlePackageType"/>
-                    <VersionInfoKeys Name="CFBundleSignature"/>
-                    <VersionInfoKeys Name="CFBundleAllowMixedLocalizations"/>
-                    <VersionInfoKeys Name="UISupportedInterfaceOrientations"/>
-                    <VersionInfoKeys Name="CFBundleExecutable"/>
-                    <VersionInfoKeys Name="CFBundleResourceSpecification"/>
-                    <VersionInfoKeys Name="LSRequiresIPhoneOS"/>
-                    <VersionInfoKeys Name="CFBundleInfoDictionaryVersion"/>
-                    <VersionInfoKeys Name="CFBundleDevelopmentRegion"/>
-                    <VersionInfoKeys Name="package"/>
-                    <VersionInfoKeys Name="label"/>
-                    <VersionInfoKeys Name="versionCode"/>
-                    <VersionInfoKeys Name="versionName"/>
-                    <VersionInfoKeys Name="persistent"/>
-                    <VersionInfoKeys Name="restoreAnyVersion"/>
-                    <VersionInfoKeys Name="installLocation"/>
-                    <VersionInfoKeys Name="largeHeap"/>
-                    <VersionInfoKeys Name="theme"/>
-                </VersionInfoKeys>
                 <Excluded_Packages>
+                    <Excluded_Packages Name="C:\Users\Public\Documents\Embarcadero\Studio\19.0\Bpl\IDEPluginSample.bpl">(untitled)</Excluded_Packages>
                     <Excluded_Packages Name="$(BDSBIN)\bcboffice2k250.bpl">Embarcadero C++Builder Office 2000 Servers Package</Excluded_Packages>
                     <Excluded_Packages Name="$(BDSBIN)\bcbofficexp250.bpl">Embarcadero C++Builder Office XP Servers Package</Excluded_Packages>
                     <Excluded_Packages Name="$(BDSBIN)\dcloffice2k250.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
@@ -213,6 +190,26 @@
                 </Excluded_Packages>
             </Delphi.Personality>
             <Deployment Version="3">
+                <DeployFile LocalName="$(BDS)\Redist\osx32\libcgunwind.1.0.dylib" Class="DependencyModule">
+                    <Platform Name="OSX32">
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
+                <DeployFile LocalName="$(BDS)\Redist\iossimulator\libcgunwind.1.0.dylib" Class="DependencyModule">
+                    <Platform Name="iOSSimulator">
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
+                <DeployFile LocalName="$(BDS)\Redist\iossimulator\libPCRE.dylib" Class="DependencyModule">
+                    <Platform Name="iOSSimulator">
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
+                <DeployFile LocalName="$(BDS)\Redist\osx32\libcgsqlite3.dylib" Class="DependencyModule">
+                    <Platform Name="OSX32">
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
                 <DeployFile LocalName="C:\Users\Public\Documents\Embarcadero\Studio\19.0\Bpl\DMVC_IDE_Expert_D102Tokyo.bpl" Configuration="Debug" Class="ProjectOutput">
                     <Platform Name="Win32">
                         <RemoteName>DMVC_IDE_Expert_D102Tokyo.bpl</RemoteName>
@@ -252,7 +249,6 @@
                         <Operation>1</Operation>
                     </Platform>
                 </DeployClass>
-                <DeployClass Name="AndroidLibnativeX86File"/>
                 <DeployClass Name="AndroidServiceOutput">
                     <Platform Name="Android">
                         <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
@@ -569,22 +565,25 @@
                         <Operation>1</Operation>
                     </Platform>
                 </DeployClass>
-                <ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
                 <ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
+                <ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
                 <ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
-                <ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
                 <ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
                 <ProjectRoot Platform="OSX32" Name="$(PROJECTNAME)"/>
                 <ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
                 <ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
             </Deployment>
             <Platforms>
+                <Platform value="Android">False</Platform>
+                <Platform value="iOSDevice32">False</Platform>
+                <Platform value="iOSDevice64">False</Platform>
+                <Platform value="iOSSimulator">False</Platform>
+                <Platform value="Linux64">False</Platform>
+                <Platform value="OSX32">False</Platform>
                 <Platform value="Win32">True</Platform>
                 <Platform value="Win64">False</Platform>
             </Platforms>
-            <UnitTesting>
-                <TestProjectName>C:\dev\DUnitX\Expert\Test\DUnitX_IDE_Expert_XE5Tests.dproj</TestProjectName>
-            </UnitTesting>
         </BorlandProject>
         <ProjectFileVersion>12</ProjectFileVersion>
     </ProjectExtensions>