bk/2024-08-31-0139

Author: Cesar4D

Src/Consts/DelphiAIDev.Consts.pas

@@ -16,6 +16,7 @@   TConsts = class
     GITHUB_Code4Delphi = 'https://github.com/Code4Delphi';
     GITHUB_PROJECT = 'https://github.com/Code4Delphi/Delphi-AI-Developer';
     APPLICATION_JSON = 'application/json';
+    SHORTCUT_CHAT_DEFAULT = 'Ctrl+Shift+Alt+A';
     CODE_COMPLETION_SUGGESTION_COLOR = $777777;
     CODE_COMPLETION_SHORTCUT_INVOKE = 'Alt+Enter';
 

Src/KeyboardBinding/DelphiAIDev.KeyboardBinding.pas

@@ -106,7 +106,8 @@ procedure TDelphiAIDevKeyboardBinding.CodeCompletionSearch(const Context: IOTAKe
     if TDelphiAIDevSettings.GetInstance.CodeCompletionUse then
       TDelphiAIDevCodeCompletionSearch.New.Process(Context);
   finally
-    BindingResult := TKeyBindingResult.krUnhandled;
+    //BindingResult := TKeyBindingResult.krUnhandled;
+    BindingResult := TKeyBindingResult.krHandled;
   end;
 end;
 

Src/MainMenu/DelphiAIDev.MainMenu.pas

@@ -145,7 +145,7 @@ function TDelphiAIDevIDEMainMenu.CreateSubMenu(AName: string; ACaption: string;
 
 function TDelphiAIDevIDEMainMenu.GetShortCutStrChat: string;
 begin
-  Result := 'Ctrl+Shift+Alt+A';
+  Result := TConsts.SHORTCUT_CHAT_DEFAULT;
 end;
 
 initialization

Src/Test/DelphiAIDev.Test.Client.pas

@@ -20,9 +20,15 @@   TDelphiAIDevTestClient = class
     property Telefone: string read FTelefone write FTelefone;
     property Email: string read FEmail write FEmail;
     property Salario: Double read FSalario write FSalario;
+
+    procedure Clear;
   end;
 
 implementation
 
+procedure TDelphiAIDevTestClient.Clear;
+begin
+
+end;
 
 end.

Src/Test/DelphiAIDev.Test.pas

@@ -23,7 +23,7 @@   TDelphiAIDevTest = class
     property Email: string read FEmail write FEmail;
     property DataNascimento: TDateTime read FDataNascimento write FDataNascimento;
     property Apelido: string read FApelido write FApelido;
-    property Cep: Integer read FCep write FCep;
+
 
     procedure Clear;
   end;
@@ -32,7 +32,6 @@ implementation
 
 procedure TDelphiAIDevTest.Clear;
 begin
-
 end;
 
 end.