refactor/rename-Shortcuts-to-KeyboardBinding

Author: Cesar4D

Package/DelphiAIDeveloper.dpk

@@ -68,7 +68,7 @@ contains
   DelphiAIDev.ModuleCreator in '..\Src\ModuleCreator\DelphiAIDev.ModuleCreator.pas',
   DelphiAIDev.ModuleCreator.Interfaces in '..\Src\ModuleCreator\DelphiAIDev.ModuleCreator.Interfaces.pas',
   DelphiAIDev.IDE.ImageListMain in '..\Src\IDE\ImageListMain\DelphiAIDev.IDE.ImageListMain.pas',
-  DelphiAIDev.IDE.Shortcuts in '..\Src\IDE\Shortcuts\DelphiAIDev.IDE.Shortcuts.pas',
+  DelphiAIDev.KeyboardBinding in '..\Src\KeyboardBinding\DelphiAIDev.KeyboardBinding.pas',
   DelphiAIDev.Utils.CnWizard in '..\Src\Utils\DelphiAIDev.Utils.CnWizard.pas',
   DelphiAIDev.DB.Registers.View in '..\Src\DB\Registers\DelphiAIDev.DB.Registers.View.pas' {DelphiAIDevDBRegistersView},
   DelphiAIDev.Utils.ListView in '..\Src\Utils\DelphiAIDev.Utils.ListView.pas',

Package/DelphiAIDeveloper.dproj

@@ -167,7 +167,7 @@
         <DCCReference Include="..\Src\ModuleCreator\DelphiAIDev.ModuleCreator.pas"/>
         <DCCReference Include="..\Src\ModuleCreator\DelphiAIDev.ModuleCreator.Interfaces.pas"/>
         <DCCReference Include="..\Src\IDE\ImageListMain\DelphiAIDev.IDE.ImageListMain.pas"/>
-        <DCCReference Include="..\Src\IDE\Shortcuts\DelphiAIDev.IDE.Shortcuts.pas"/>
+        <DCCReference Include="..\Src\KeyboardBinding\DelphiAIDev.KeyboardBinding.pas"/>
         <DCCReference Include="..\Src\Utils\DelphiAIDev.Utils.CnWizard.pas"/>
         <DCCReference Include="..\Src\DB\Registers\DelphiAIDev.DB.Registers.View.pas">
             <Form>DelphiAIDevDBRegistersView</Form>

Src/DelphiAIDev.Register.pas

@@ -5,7 +5,7 @@ interface
 uses
   DelphiAIDev.Chat.View,
   DelphiAIDev.MainMenu.Register,
-  DelphiAIDev.IDE.Shortcuts,
+  DelphiAIDev.KeyboardBinding,
   DelphiAIDev.PopupMenuProjects,
   DelphiAIDev.DB.Chat.View;
 
@@ -17,7 +17,7 @@ procedure Register;
 begin
   DelphiAIDev.Chat.View.RegisterSelf;
   DelphiAIDev.MainMenu.Register.RegisterSelf;
-  DelphiAIDev.IDE.Shortcuts.RefreshRegister;
+  DelphiAIDev.KeyboardBinding.RefreshRegister;
   DelphiAIDev.PopupMenuProjects.RegisterSelf;
   DelphiAIDev.DB.Chat.View.RegisterSelf;
 end;

Src/IDE/Shortcuts/DelphiAIDev.IDE.Shortcuts.pas renamed to Src/KeyboardBinding/DelphiAIDev.KeyboardBinding.pas

@@ -1,4 +1,4 @@
-unit DelphiAIDev.IDE.Shortcuts;
+unit DelphiAIDev.KeyboardBinding;
 
 interface
 
@@ -12,7 +12,7 @@ interface
   DelphiAIDev.Chat.View;
 
 type
-  TDelphiAIDevIDEShortcuts = class(TNotifierObject, IOTAKeyboardBinding)
+  TDelphiAIDevKeyboardBinding = class(TNotifierObject, IOTAKeyboardBinding)
   private
     //procedure KeyProcBlockReturn(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult);
     procedure KeyProcBlockReturnAndAlt(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult);
@@ -39,7 +39,7 @@ implementation
 procedure RegisterSelf;
 begin
   if Index < 0 then
-    Index := TUtilsOTA.GetIOTAKeyboardServices.AddKeyboardBinding(TDelphiAIDevIDEShortcuts.New);
+    Index := TUtilsOTA.GetIOTAKeyboardServices.AddKeyboardBinding(TDelphiAIDevKeyboardBinding.New);
 end;
 
 procedure UnRegisterSelf;
@@ -57,27 +57,27 @@ procedure RefreshRegister;
   RegisterSelf;
 end;
 
-class function TDelphiAIDevIDEShortcuts.New: IOTAKeyboardBinding;
+class function TDelphiAIDevKeyboardBinding.New: IOTAKeyboardBinding;
 begin
   Result := Self.Create;
 end;
 
-function TDelphiAIDevIDEShortcuts.GetBindingType: TBindingType;
+function TDelphiAIDevKeyboardBinding.GetBindingType: TBindingType;
 begin
   Result := btPartial;
 end;
 
-function TDelphiAIDevIDEShortcuts.GetDisplayName: string;
+function TDelphiAIDevKeyboardBinding.GetDisplayName: string;
 begin
   Result := Self.ClassName;
 end;
 
-function TDelphiAIDevIDEShortcuts.GetName: string;
+function TDelphiAIDevKeyboardBinding.GetName: string;
 begin
   Result := Self.ClassName;
 end;
 
-procedure TDelphiAIDevIDEShortcuts.BindKeyboard(const BindingServices: IOTAKeyBindingServices);
+procedure TDelphiAIDevKeyboardBinding.BindKeyboard(const BindingServices: IOTAKeyBindingServices);
 begin
 //  if TUtilsOTA.CurrentProjectIsDelphiAIDeveloperDPROJ then
 //    Exit;
@@ -86,7 +86,7 @@ procedure TDelphiAIDevIDEShortcuts.BindKeyboard(const BindingServices: IOTAKeyBi
   BindingServices.AddKeyBinding([Shortcut(VK_RETURN, [ssAlt])], Self.KeyProcBlockReturnAndAlt, nil);
 end;
 
-//procedure TDelphiAIDevIDEShortcuts.KeyProcBlockReturn(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult);
+//procedure TDelphiAIDevKeyboardBinding.KeyProcBlockReturn(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult);
 //begin
 //  if KeyCode <> Shortcut(VK_RETURN, []) then
 //    Exit;
@@ -95,7 +95,7 @@ procedure TDelphiAIDevIDEShortcuts.BindKeyboard(const BindingServices: IOTAKeyBi
 //  BindingResult := TKeyBindingResult.krNextProc; //krUnhandled;
 //end;
 
-procedure TDelphiAIDevIDEShortcuts.KeyProcBlockReturnAndAlt(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult);
+procedure TDelphiAIDevKeyboardBinding.KeyProcBlockReturnAndAlt(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult);
 var
   LTextCurrentLineOrBlock: string;
 begin