bk/2024-08-30-1717

Author: Cesar4D

Src/KeyboardBinding/DelphiAIDev.KeyboardBinding.pas

@@ -20,7 +20,6 @@   TDelphiAIDevKeyboardBinding = class(TNotifierObject, IOTAKeyboardBinding)
   private
     procedure KeyAltHome(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult);
     procedure KeyTab(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult);
-    //procedure KeyProcBlockReturn(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult);
     procedure CodeCompletionSearch(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult);
   protected
     function GetBindingType: TBindingType;
@@ -88,10 +87,9 @@ procedure TDelphiAIDevKeyboardBinding.BindKeyboard(const BindingServices: IOTAKe
 var
   LShortcut: string;
 begin
-//  if TUtilsOTA.CurrentProjectIsDelphiAIDeveloperDPROJ then
-//    Exit;
+  //if TUtilsOTA.CurrentProjectIsDelphiAIDeveloperDPROJ then
+  //  Exit;
 
-  //BindingServices.AddKeyBinding([Shortcut(VK_RETURN, [ssAlt])], Self.KeyProcBlockReturnAndAlt, nil);
   LShortcut := TConsts.CODE_COMPLETION_SHORTCUT_INVOKE;
   if not(Trim(TDelphiAIDevSettings.GetInstance.CodeCompletionShortcutInvoke).IsEmpty) then
     LShortcut := TDelphiAIDevSettings.GetInstance.CodeCompletionShortcutInvoke;
@@ -130,9 +128,6 @@ procedure TDelphiAIDevKeyboardBinding.KeyAltHome(const Context: IOTAKeyContext;
 var
   LTextCurrentLineOrBlock: string;
 begin
-  if KeyCode <> Shortcut(VK_RETURN, [ssAlt]) then
-    Exit;
-
   LTextCurrentLineOrBlock := GetCurrentLineOrBlock(CnOtaGetTopMostEditView).Trim;
   if LTextCurrentLineOrBlock.Trim.IsEmpty then
     Exit;

Src/Test/DelphiAIDev.Test.Client.pas

@@ -11,25 +11,18 @@   TDelphiAIDevTestClient = class
     FNumero: Integer;
     FTelefone: string;
     FEmail: string;
-    FDataNascimento: TDateTime;
+    FSalario: Double;
   public
     property Nome: string read FNome write FNome;
     property Endereco: string read FEndereco write FEndereco;
     property Bairro: string read FBairro write FBairro;
     property Numero: Integer read FNumero write FNumero;
     property Telefone: string read FTelefone write FTelefone;
     property Email: string read FEmail write FEmail;
-    property DataNascimento: TDateTime read FDataNascimento write FDataNascimento;
-
-    procedure Clear;
+    property Salario: Double read FSalario write FSalario;
   end;
 
 implementation
 
-procedure TDelphiAIDevTestClient.Clear;
-begin
-  //Suggestion
-
-end;
 
 end.