feature/add-splash

Author: Cesar4D

Package/DelphiAIDeveloper.dpk

@@ -71,6 +71,7 @@ contains
   DelphiAIDev.DefaultsQuestions.Model in '..\Src\DefaultsQuestions\DelphiAIDev.DefaultsQuestions.Model.pas',
   DelphiAIDev.DefaultsQuestions.AddEdit.View in '..\Src\DefaultsQuestions\DelphiAIDev.DefaultsQuestions.AddEdit.View.pas' {DelphiAIDevDefaultsQuestionsAddEditView},
   DelphiAIDev.DefaultsQuestions.PopupMenu in '..\Src\DefaultsQuestions\DelphiAIDev.DefaultsQuestions.PopupMenu.pas',
-  DelphiAIDev.Utils.ABMenuAction in '..\Src\Utils\DelphiAIDev.Utils.ABMenuAction.pas';
+  DelphiAIDev.Utils.ABMenuAction in '..\Src\Utils\DelphiAIDev.Utils.ABMenuAction.pas',
+  DelphiAIDev.IDE.Splash in '..\Src\IDE\Splash\DelphiAIDev.IDE.Splash.pas';
 
 end.

Package/DelphiAIDeveloper.dproj

@@ -178,6 +178,7 @@
         </DCCReference>
         <DCCReference Include="..\Src\DefaultsQuestions\DelphiAIDev.DefaultsQuestions.PopupMenu.pas"/>
         <DCCReference Include="..\Src\Utils\DelphiAIDev.Utils.ABMenuAction.pas"/>
+        <DCCReference Include="..\Src\IDE\Splash\DelphiAIDev.IDE.Splash.pas"/>
         <RcItem Include="Img\c4d_gear.bmp">
             <ResourceType>BITMAP</ResourceType>
             <ResourceId>c4d_gear</ResourceId>

Src/Consts/DelphiAIDev.Consts.pas

@@ -43,6 +43,9 @@   TConsts = class
     PLUGIN_LICENSE = 'MIT license';
     IS_UNREGISTERED = False;
 
+    //NAMES FILES AND IMAGES RESOURCE
+    RESOURCE_c4d_logo_24x24 = 'c4d_logo_24x24';
+
     //CAPTIONS ITENS MAIN MENU IDE, AND POPUPMENU PROJ
     ITEM_MENU_C4DDelphiAIDev_NAME = 'C4DDelphiAIDevItemMenu';
     ITEM_MENU_C4DDelphiAIDev_CAPTION = 'AI Developer';

Src/IDE/Shortcuts/DelphiAIDev.IDE.Shortcuts.pas

@@ -37,8 +37,8 @@ implementation
 
 procedure RegisterSelf;
 begin
-  if(Index < 0)and(true)then
-    Index := TUtilsOTA.GetIOTAKeyboardServices.AddKeyboardBinding(TDelphiAIDevIDEShortcuts.New);
+//  if(Index < 0)and(true)then
+//    Index := TUtilsOTA.GetIOTAKeyboardServices.AddKeyboardBinding(TDelphiAIDevIDEShortcuts.New);
 end;
 
 procedure UnRegisterSelf;

Src/IDE/Splash/DelphiAIDev.IDE.Splash.pas

@@ -0,0 +1,26 @@
+unit DelphiAIDev.IDE.Splash;
+
+interface
+
+implementation
+
+uses
+  Windows,
+  SysUtils,
+  ToolsAPI,
+  DesignIntf,
+  DelphiAIDev.Consts;
+
+procedure RegisterSplashScreen;
+begin
+  ForceDemandLoadState(dlDisable);
+  SplashScreenServices.AddPluginBitmap(TConsts.ABOUT_TITLE, LoadBitmap(HInstance, TConsts.RESOURCE_c4d_logo_24x24),
+    TConsts.IS_UNREGISTERED, TConsts.PLUGIN_LICENSE);
+end;
+
+initialization
+  RegisterSplashScreen;
+
+finalization
+
+end.