refactor/melhorias-chat-view

Author: Cesar4D

Src/Chat/DelphiAIDev.Chat.View.pas

@@ -106,6 +106,7 @@   TDelphiAIDevChatView = class(TDockableForm)
     FbtnUseCurrentUnitCodeWidth: Integer;
     FbtnCodeOnlyWidth: Integer;
     FbtnDefaultsQuestionsWidth: Integer;
+    FQuestionOnShow: string;
     procedure FillMemoReturnWithFile;
     procedure SaveMemoReturnInFile;
     procedure InitializeRichEditReturn;
@@ -129,6 +130,7 @@   TDelphiAIDevChatView = class(TDockableForm)
   public
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
+    property QuestionOnShow: string write FQuestionOnShow;
   end;
 
 var
@@ -187,6 +189,7 @@ constructor TDelphiAIDevChatView.Create(AOwner: TComponent);
   FChat := TDelphiAIDevChat.Create;
   FSettings := FChat.Settings.GetInstance;
   FPopupMenuQuestions := TDelphiAIDevDefaultsQuestionsPopupMenu.Create;
+  FQuestionOnShow := '';
 
   Self.ConfScreenOnCreate;
   Self.FillMemoReturnWithFile; ////
@@ -208,12 +211,20 @@ procedure TDelphiAIDevChatView.FormShow(Sender: TObject);
   Self.ProcessWordWrap;
 
   Self.AddItemsPopupMenuQuestion;
+
   TUtils.MemoFocusOnTheEnd(mmQuestion);
 end;
 
 procedure TDelphiAIDevChatView.FormActivate(Sender: TObject);
 begin
   Self.ConfLabelCurrentAI;
+
+  if not FQuestionOnShow.Trim.IsEmpty then
+  begin
+    mmQuestion.Lines.Clear;
+    mmQuestion.Lines.Add(FQuestionOnShow);
+    FQuestionOnShow := '';
+  end;
 end;
 
 procedure TDelphiAIDevChatView.ConfScreenOnCreate;

Src/Consts/DelphiAIDev.Consts.pas

@@ -5,7 +5,7 @@ interface
 type
   TConsts = class
   public const
-    SEMANTIC_VERSION = '1.5.0';
+    SEMANTIC_VERSION = '1.6.0';
     SEMANTIC_VERSION_LB = 'Version: ' + SEMANTIC_VERSION;
     WIN_CONTROL_FOCU_NIL = nil;
     DELPHI_AI_DEVELOPER_DPROJ = 'DelphiAIDeveloper.dproj';

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

@@ -8,12 +8,13 @@ interface
   Winapi.Windows,
   Vcl.Menus,
   ToolsAPI,
-  DelphiAIDev.Utils.CnWizard;
+  DelphiAIDev.Utils.CnWizard,
+  DelphiAIDev.Chat.View;
 
 type
   TDelphiAIDevIDEShortcuts = class(TNotifierObject, IOTAKeyboardBinding)
   private
-    //procedure KeyProcBlockReturn(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult);
+    procedure KeyProcBlockReturn(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult);
     procedure KeyProcBlockReturnAndAlt(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult);
   protected
     function GetBindingType: TBindingType;
@@ -37,8 +38,8 @@ implementation
 
 procedure RegisterSelf;
 begin
-  if Index < 0 then
-    Index := TUtilsOTA.GetIOTAKeyboardServices.AddKeyboardBinding(TDelphiAIDevIDEShortcuts.New);
+//  if Index < 0 then
+//    Index := TUtilsOTA.GetIOTAKeyboardServices.AddKeyboardBinding(TDelphiAIDevIDEShortcuts.New);
 end;
 
 procedure UnRegisterSelf;
@@ -81,19 +82,32 @@ procedure TDelphiAIDevIDEShortcuts.BindKeyboard(const BindingServices: IOTAKeyBi
   if TUtilsOTA.CurrentProjectIsDelphiAIDeveloperDPROJ then
     Exit;
 
-  //BindingServices.AddKeyBinding([Shortcut(VK_RETURN, [])], Self.KeyProcBlockReturn, nil);
+  Exit;
+  BindingServices.AddKeyBinding([Shortcut(VK_RETURN, [])], Self.KeyProcBlockReturn, nil);
   BindingServices.AddKeyBinding([Shortcut(VK_RETURN, [ssAlt])], Self.KeyProcBlockReturnAndAlt, nil);
 end;
 
-//procedure TDelphiAIDevIDEShortcuts.KeyProcBlockReturn(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult);
-//begin
-//  TUtils.AddLog(GetCurrentLineOrBlock(CnOtaGetTopMostEditView));
-//  BindingResult := krNextProc; //krUnhandled;
-//end;
+procedure TDelphiAIDevIDEShortcuts.KeyProcBlockReturn(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult);
+begin
+  Exit;
+
+  TUtils.AddLog(GetCurrentLineOrBlock(CnOtaGetTopMostEditView));
+  BindingResult := krNextProc; //krUnhandled;
+end;
 
 procedure TDelphiAIDevIDEShortcuts.KeyProcBlockReturnAndAlt(const Context: IOTAKeyContext; KeyCode: TShortcut; var BindingResult: TKeyBindingResult);
+var
+  LTextCurrentLineOrBlock: string;
 begin
-  TUtils.AddLog('Enter and Alt' + GetCurrentLineOrBlock(CnOtaGetTopMostEditView));
+  //TUtils.AddLog('Enter and Alt' + GetCurrentLineOrBlock(CnOtaGetTopMostEditView));
+
+  LTextCurrentLineOrBlock := GetCurrentLineOrBlock(CnOtaGetTopMostEditView);
+  if LTextCurrentLineOrBlock.Trim.IsEmpty then
+    Exit;
+
+  DelphiAIDev.Chat.View.DelphiAIDevChatView.QuestionOnShow := LTextCurrentLineOrBlock;
+  DelphiAIDev.Chat.View.DelphiAIDevChatViewShowDockableForm;
+
   BindingResult := krNextProc; //krUnhandled;
 end;