bk/2024-06-14-0942

Author: Cesar4D

Src/Chat/DelphiCopilot.Chat.View.dfm

@@ -1,9 +1,10 @@
 object DelphiCopilotChatView: TDelphiCopilotChatView
   Left = 0
   Top = 0
-  Caption = 'Chat - Delphi Copilot'
+  BorderIcons = [biSystemMenu, biMaximize]
+  Caption = 'Copilot Chat'
   ClientHeight = 661
-  ClientWidth = 974
+  ClientWidth = 975
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -22,7 +23,7 @@ object DelphiCopilotChatView: TDelphiCopilotChatView
   object pnBack: TPanel
     Left = 0
     Top = 0
-    Width = 974
+    Width = 956
     Height = 661
     Margins.Left = 0
     Margins.Top = 0
@@ -31,18 +32,18 @@ object DelphiCopilotChatView: TDelphiCopilotChatView
     Align = alClient
     BevelEdges = []
     BevelOuter = bvNone
-    Padding.Left = 10
+    Padding.Left = 18
     Padding.Top = 15
-    Padding.Right = 10
     ParentBackground = False
     TabOrder = 0
+    ExplicitWidth = 958
     DesignSize = (
-      974
+      956
       661)
     object Splitter1: TSplitter
-      Left = 10
-      Top = 524
-      Width = 954
+      Left = 18
+      Top = 523
+      Width = 938
       Height = 3
       Cursor = crVSplit
       Align = alBottom
@@ -52,10 +53,10 @@ object DelphiCopilotChatView: TDelphiCopilotChatView
     end
     object mmReturn: TRichEdit
       AlignWithMargins = True
-      Left = 10
+      Left = 18
       Top = 15
-      Width = 954
-      Height = 506
+      Width = 938
+      Height = 505
       Margins.Left = 0
       Margins.Top = 0
       Margins.Right = 0
@@ -78,11 +79,13 @@ object DelphiCopilotChatView: TDelphiCopilotChatView
       ShowHint = True
       TabOrder = 2
       Zoom = 100
+      ExplicitLeft = 15
+      ExplicitTop = 12
     end
-    object pnBottom: TPanel
-      Left = 10
-      Top = 527
-      Width = 954
+    object pnBackQuestion: TPanel
+      Left = 18
+      Top = 526
+      Width = 938
       Height = 113
       Margins.Left = 0
       Margins.Top = 0
@@ -93,8 +96,10 @@ object DelphiCopilotChatView: TDelphiCopilotChatView
       Padding.Top = 5
       ParentBackground = False
       TabOrder = 0
+      ExplicitLeft = 10
+      ExplicitWidth = 948
       object pnBackBtnSend: TPanel
-        Left = 872
+        Left = 856
         Top = 5
         Width = 82
         Height = 108
@@ -105,14 +110,14 @@ object DelphiCopilotChatView: TDelphiCopilotChatView
         Align = alRight
         BevelOuter = bvNone
         Padding.Left = 3
-        Padding.Right = 10
         ParentBackground = False
         TabOrder = 0
+        ExplicitLeft = 866
         object btnSend: TButton
           AlignWithMargins = True
           Left = 3
           Top = 0
-          Width = 69
+          Width = 79
           Height = 24
           Cursor = crHandPoint
           Margins.Left = 0
@@ -123,13 +128,14 @@ object DelphiCopilotChatView: TDelphiCopilotChatView
           Caption = 'Send'
           TabOrder = 0
           OnClick = btnSendClick
+          ExplicitWidth = 69
         end
       end
       object mmQuestion: TMemo
         AlignWithMargins = True
         Left = 0
         Top = 5
-        Width = 872
+        Width = 856
         Height = 108
         Margins.Left = 0
         Margins.Top = 0
@@ -146,17 +152,19 @@ object DelphiCopilotChatView: TDelphiCopilotChatView
         OnChange = mmQuestionChange
         OnKeyDown = mmQuestionKeyDown
         OnKeyUp = mmQuestionKeyUp
+        ExplicitWidth = 866
       end
     end
     object pnCommands: TPanel
-      Left = 866
+      Left = 850
       Top = 0
       Width = 79
       Height = 24
       Anchors = [akTop, akRight]
       BevelOuter = bvNone
       ParentBackground = False
       TabOrder = 1
+      ExplicitLeft = 860
       object ShapeCommands: TShape
         Left = 0
         Top = 0
@@ -246,11 +254,11 @@ object DelphiCopilotChatView: TDelphiCopilotChatView
         ExplicitHeight = 22
       end
     end
-    object Panel9: TPanel
-      Left = 10
-      Top = 640
-      Width = 954
-      Height = 21
+    object pnBackStatusBar: TPanel
+      Left = 18
+      Top = 639
+      Width = 938
+      Height = 22
       Margins.Left = 0
       Margins.Top = 0
       Margins.Right = 0
@@ -260,11 +268,13 @@ object DelphiCopilotChatView: TDelphiCopilotChatView
       Padding.Top = 3
       ParentBackground = False
       TabOrder = 3
+      ExplicitLeft = 10
+      ExplicitWidth = 948
       object lbCurrentAI: TLabel
         Left = 0
         Top = 3
         Width = 56
-        Height = 18
+        Height = 19
         Cursor = crHandPoint
         Hint = 'AI being used'
         Align = alLeft
@@ -313,6 +323,18 @@ object DelphiCopilotChatView: TDelphiCopilotChatView
       TabOrder = 0
     end
   end
+  object StatusBar1: TStatusBar
+    Left = 956
+    Top = 0
+    Width = 19
+    Height = 661
+    Align = alRight
+    Panels = <
+      item
+        Width = 50
+      end>
+    ExplicitLeft = 958
+  end
   object ImageList1: TImageList
     Left = 96
     Top = 240

Src/Chat/DelphiCopilot.Chat.View.pas

@@ -38,7 +38,7 @@   TDelphiCopilotChatView = class(TDockableForm)
     Paste1: TMenuItem;
     SelectAll1: TMenuItem;
     pnBack: TPanel;
-    pnBottom: TPanel;
+    pnBackQuestion: TPanel;
     pnBackBtnSend: TPanel;
     btnSend: TButton;
     mmQuestion: TMemo;
@@ -53,11 +53,12 @@   TDelphiCopilotChatView = class(TDockableForm)
     pnWait: TPanel;
     ShapeWait: TShape;
     pnWaitCaption: TPanel;
-    Panel9: TPanel;
-    lbCurrentAI: TLabel;
     pMenuCurrentAI: TPopupMenu;
     Gemini1: TMenuItem;
     ChatGPT1: TMenuItem;
+    pnBackStatusBar: TPanel;
+    lbCurrentAI: TLabel;
+    StatusBar1: TStatusBar;
     procedure FormShow(Sender: TObject);
     procedure cBoxSizeFontKeyPress(Sender: TObject; var Key: Char);
     procedure Cut1Click(Sender: TObject);
@@ -158,17 +159,15 @@ destructor TDelphiCopilotChatView.Destroy;
 procedure TDelphiCopilotChatView.FormShow(Sender: TObject);
 begin
   TUtilsOTA.IDEThemingAll(TDelphiCopilotChatView, Self);
-  Self.Constraints.MinWidth := 100;
-  Self.Constraints.MinHeight := 100;
+  Self.Constraints.MinWidth := 150;
+  Self.Constraints.MinHeight := 150;
 
   Self.InitializeRichEditReturn;
   Self.ReadFromFile;
   Self.GetSelectedBlockForQuestion;
   btnMoreActions.Font.Color := TUtilsOTA.ActiveThemeColorDefault;
 
-  mmQuestion.SelectAll;
-  mmQuestion.SelStart := Length(mmQuestion.Text);
-  mmQuestion.SetFocus;
+  TUtils.MemoFocusOnTheEnd(mmQuestion);
 end;
 
 procedure TDelphiCopilotChatView.FormActivate(Sender: TObject);

Src/Utils/DelphiCopilot.Utils.pas

@@ -26,6 +26,7 @@   TUtils = class
     class function ShowMsgInternal(const AMsg, ADetails: string; const AIcon: TDelphiCopilotIcon;
       const AButtons: TC4DButtons; const ABtnFocu: TC4DBtnFocu; const AWinControlFocu: TWinControl): Boolean;
   public
+    class procedure MemoFocusOnTheEnd(const AMemo: TMemo);
     class function IfThenColor(const Conditional: Boolean; const AColorTrue, AColorFalse: TColor): TColor;
     class function GetFormFromComponent(const AWinControl: TWinControl): TForm;
     class procedure CenterPanel(const APanel: TPanel); overload;
@@ -131,6 +132,21 @@ implementation
   DelphiCopilot.Consts,
   DelphiCopilot.WaitingScreen;
 
+class procedure TUtils.MemoFocusOnTheEnd(const AMemo: TMemo);
+begin
+  TThread.CreateAnonymousThread(
+    procedure
+    begin
+      TThread.Synchronize(nil,
+        procedure
+        begin
+          AMemo.SelStart := Length(AMemo.Text);
+          AMemo.SelLength := 0;
+          AMemo.SetFocus;
+        end);
+    end).Start;
+end;
+
 class function TUtils.IfThenColor(const Conditional: Boolean; const AColorTrue, AColorFalse: TColor): TColor;
 begin
   Result := AColorFalse;