bk/2024-06-15-0037

Author: Cesar4D

Src/Chat/DelphiCopilot.Chat.View.dfm

@@ -221,7 +221,7 @@ object DelphiCopilotChatView: TDelphiCopilotChatView
     Left = 936
     Top = 8
     Width = 26
-    Height = 73
+    Height = 95
     Margins.Left = 0
     Margins.Top = 0
     Margins.Right = 0
@@ -232,12 +232,12 @@ object DelphiCopilotChatView: TDelphiCopilotChatView
     TabOrder = 3
     DesignSize = (
       26
-      73)
+      95)
     object ShapeCommands: TShape
       Left = 0
       Top = 0
       Width = 26
-      Height = 73
+      Height = 95
       Margins.Left = 0
       Margins.Top = 0
       Margins.Right = 0
@@ -246,6 +246,7 @@ object DelphiCopilotChatView: TDelphiCopilotChatView
       Brush.Style = bsClear
       Pen.Color = clGray
       Pen.Style = psInsideFrame
+      ExplicitHeight = 73
     end
     object btnCopy: TSpeedButton
       AlignWithMargins = True
@@ -324,7 +325,7 @@ object DelphiCopilotChatView: TDelphiCopilotChatView
     object btnMoreActions: TSpeedButton
       AlignWithMargins = True
       Left = 0
-      Top = 46
+      Top = 69
       Width = 26
       Height = 23
       Cursor = crHandPoint
@@ -338,6 +339,51 @@ object DelphiCopilotChatView: TDelphiCopilotChatView
       Flat = True
       PopupMenu = pMenuMoreActions
       OnClick = btnMoreActionsClick
+      ExplicitTop = 46
+    end
+    object btnCreateNewUnit: TSpeedButton
+      AlignWithMargins = True
+      Left = 0
+      Top = 46
+      Width = 26
+      Height = 23
+      Cursor = crHandPoint
+      Hint = 'Create new unit with selected code'
+      Margins.Left = 0
+      Margins.Top = 0
+      Margins.Right = 0
+      Margins.Bottom = 0
+      Align = alTop
+      Flat = True
+      Glyph.Data = {
+        36030000424D3603000000000000360000002800000010000000100000000100
+        1800000000000003000000000000000000000000000000000000FF00FFFF00FF
+        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
+        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFAD7384B58484B58484B58484B5
+        8484B58484B58484B58484B58484B58484B58484B58484FF00FFFF00FFFF00FF
+        FF00FFAD7384FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+        FFFFFFFFB58484FF00FFFF00FFFF00FFFF00FFAD7384FFFFFFFFFFFFFFFFFFFF
+        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFB58484FF00FFFF00FFFF00FF
+        FF00FFAD7384FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+        FFFFFFFFB58484FF00FFFF00FFFF00FFFF00FFAD7384FFFFFFFFFFFFFFFFFFFF
+        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFB58484FF00FFFF00FFFF00FF
+        FF00FFAD7384FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+        FFFFFFFFB58484FF00FFFF00FFFF00FFFF00FFAD7384FFFFFFFFFFFFFFFFFFFF
+        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFB58484FF00FFFF00FFFF00FF
+        FF00FFAD7384FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+        FFFFFFFFB58484FF00FFFF00FFFF00FF3184FF3184FF3184FFF7F7F7F7F7F7F7
+        F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7B58484FF00FFFF00FFFF00FF
+        3184FF42B5F73184FFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEFEF
+        EFEFEFEFB58484FF00FF3184FF3184FF3184FF42B5F73184FF3184FF3184FFE7
+        E7E7E7E7E7E7E7E7E7E7E7B58473B5948CB58C84B58484FF00FF3184FF8CD6F7
+        B5DEF7B5DEF7B5DEF78CD6F73184FFDEDEDEDEDEDEDEDEDEC6C6C6B58473FFFF
+        FFFFFFFFB58484FF00FF3184FF3184FF3184FFB5DEF73184FF3184FF3184FFD6
+        D6D6D6D6D6D6D6D6C6C6C6B58473FFFFFFB58484FF00FFFF00FFFF00FFFF00FF
+        3184FFB5DEF73184FFCECECECECECECECECECECECECECECEC6C6C6B58473B584
+        84FF00FFFF00FFFF00FFFF00FFFF00FF3184FF3184FF3184FFEFD6C6EFD6C6EF
+        D6C6EFD6C6EFD6C6D6BDB5B58473FF00FFFF00FFFF00FFFF00FF}
+      OnClick = btnCreateNewUnitClick
+      ExplicitTop = 55
     end
   end
   object ImageList1: TImageList
@@ -528,10 +574,13 @@ object DelphiCopilotChatView: TDelphiCopilotChatView
     Images = ImageList1
     Left = 824
     Top = 40
-    object CreateNewUnitWithSelectedCode1: TMenuItem
-      Caption = 'Create new unit with selected code'
-      ImageIndex = 0
-      OnClick = CreateNewUnitWithSelectedCode1Click
+    object SaveContentToFile1: TMenuItem
+      Caption = 'Save content to file'
+      OnClick = SaveContentToFile1Click
+    end
+    object ClearContent1: TMenuItem
+      Caption = 'Clear content'
+      OnClick = ClearContent1Click
     end
   end
 end

Src/Chat/DelphiCopilot.Chat.View.pas

@@ -60,7 +60,9 @@   TDelphiCopilotChatView = class(TDockableForm)
     ShapeCommands: TShape;
     btnSend: TButton;
     pMenuMoreActions: TPopupMenu;
-    CreateNewUnitWithSelectedCode1: TMenuItem;
+    SaveContentToFile1: TMenuItem;
+    btnCreateNewUnit: TSpeedButton;
+    ClearContent1: TMenuItem;
     procedure FormShow(Sender: TObject);
     procedure cBoxSizeFontKeyPress(Sender: TObject; var Key: Char);
     procedure Cut1Click(Sender: TObject);
@@ -79,7 +81,9 @@   TDelphiCopilotChatView = class(TDockableForm)
     procedure Gemini1Click(Sender: TObject);
     procedure pMenuCurrentAIPopup(Sender: TObject);
     procedure btnMoreActionsClick(Sender: TObject);
-    procedure CreateNewUnitWithSelectedCode1Click(Sender: TObject);
+    procedure SaveContentToFile1Click(Sender: TObject);
+    procedure btnCreateNewUnitClick(Sender: TObject);
+    procedure ClearContent1Click(Sender: TObject);
   private
     FChat: TDelphiCopilotChat;
     FSettings: TDelphiCopilotSettings;
@@ -92,6 +96,7 @@   TDelphiCopilotChatView = class(TDockableForm)
     procedure AddResponseLine(const ALineStr: string);
     procedure Last;
     function GetSelectedTextOrAll: string;
+    function GetSelectedTextOrAllOrAbort: string;
     procedure GetSelectedBlockForQuestion;
     procedure WaitingFormOFF;
     procedure WaitingFormON;
@@ -466,15 +471,52 @@ function TDelphiCopilotChatView.GetSelectedTextOrAll: string;
     Result := mmReturn.Lines.Text;
 end;
 
-procedure TDelphiCopilotChatView.btnCopyClick(Sender: TObject);
+function TDelphiCopilotChatView.GetSelectedTextOrAllOrAbort: string;
 begin
-  Clipboard.AsText := Self.GetSelectedTextOrAll;
+  Result := Self.GetSelectedTextOrAll;
+  if Result.Trim.IsEmpty then
+    TUtils.ShowMsgAndAbort('There is no data to be used in this action');
 end;
 
 procedure TDelphiCopilotChatView.btnInsertAtCursorClick(Sender: TObject);
+var
+ LText: string;
 begin
+  LText := Self.GetSelectedTextOrAllOrAbort;
   TUtilsOTA.DeleteBlockTextSelectedInEditor;
-  TUtilsOTA.InsertBlockTextIntoEditor(Self.GetSelectedTextOrAll);
+  TUtilsOTA.InsertBlockTextIntoEditor(LText);
+end;
+
+procedure TDelphiCopilotChatView.btnCopyClick(Sender: TObject);
+var
+ LText: string;
+begin
+  LText := Self.GetSelectedTextOrAllOrAbort;
+  Clipboard.AsText := LText;
+end;
+
+procedure TDelphiCopilotChatView.btnCreateNewUnitClick(Sender: TObject);
+var
+ LText: string;
+begin
+  LText := Self.GetSelectedTextOrAllOrAbort;
+  TDelphiCopilotModuleCreator.New.CreateNewUnit(LText);
+end;
+
+procedure TDelphiCopilotChatView.SaveContentToFile1Click(Sender: TObject);
+var
+  LFileName: string;
+begin
+  Self.GetSelectedTextOrAllOrAbort;
+
+  LFileName := TUtils.GetFileName('rtf');
+  mmReturn.Lines.SaveToFile(LFileName);
+  TUtils.ShowV('File saved successfully');
+end;
+
+procedure TDelphiCopilotChatView.ClearContent1Click(Sender: TObject);
+begin
+  mmReturn.Lines.Clear;
 end;
 
 procedure TDelphiCopilotChatView.btnMoreActionsClick(Sender: TObject);
@@ -536,11 +578,6 @@ procedure TDelphiCopilotChatView.Gemini1Click(Sender: TObject);
   Self.ConfLabelCurrentAI;
 end;
 
-procedure TDelphiCopilotChatView.CreateNewUnitWithSelectedCode1Click(Sender: TObject);
-begin
-  TDelphiCopilotModuleCreator.New.CreateNewUnit(Self.GetSelectedTextOrAll);
-end;
-
 initialization
 
 finalization

Src/Types/DelphiCopilot.Types.pas

@@ -16,6 +16,7 @@ interface
   TDelphiCopilotEscope = (FileCurrent = 0, FilesInGroup = 1, FilesInProject = 2, FilesOpened = 3, FilesInDirectories = 4);
   TC4DExtensionsFiles = (None, PAS, DFM, FMX, DPR, DPK, DPROJ, ZIP, BMP, INI, ALL);
   TC4DExtensionsOfFiles = set of TC4DExtensionsFiles;
+  TC4DExtensionsCommons = (rtf);
   TDelphiCopilotListUsesKind = (Normal, Directiva);
   TDelphiCopilotFavorite = (None, Yes, No);
   TDelphiCopilotFileNotification = (None, FileOpened, FileClosing);

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 function GetFileName(const AExtension: string): string;
     class procedure MemoFocusOnTheEnd(const AMemo: TMemo);
     class function IfThenColor(const Conditional: Boolean; const AColorTrue, AColorFalse: TColor): TColor;
     class function GetFormFromComponent(const AWinControl: TWinControl): TForm;
@@ -132,6 +133,42 @@ implementation
   DelphiCopilot.Consts,
   DelphiCopilot.WaitingScreen;
 
+class function TUtils.GetFileName(const AExtension: string): string;
+var
+  LFileName: string;
+  LSaveDialog: TSaveDialog;
+  LAsteriskAndExtension: string;
+begin
+  Result := '';
+  LAsteriskAndExtension := '*.' + AExtension.ToLower;
+  LFileName := Format('%S-%s.%s', ['Copilot4D', FormatDateTime('yyyyMMdd-hhnnss', now), AExtension.ToLower]);
+
+  LSaveDialog := TSaveDialog.Create(nil);
+  try
+    LSaveDialog.Title := 'Save file in';
+    LSaveDialog.DefaulText := LAsteriskAndExtension;
+    LSaveDialog.Filter := format('File %s (%s)|%s|All files (*.*)|*.*',
+      [AExtension.ToUpper, LAsteriskAndExtension, LAsteriskAndExtension]);
+    //LSaveDialog.InitialDir := 'C:\Temp\';
+    LSaveDialog.FileName := LFileName;
+
+    if not(LSaveDialog.Execute) then
+      Abort;
+
+    if FileExists(LSaveDialog.FileName) then
+    begin
+      if not(TUtils.ShowQuestion('There is already a file with the same name in this location.' + sLineBreak +
+        'Do you want to replace it?'))
+      then
+        Abort;
+    end;
+
+    Result := LSaveDialog.FileName;
+  finally
+    LSaveDialog.Free;
+  end;
+end;
+
 class procedure TUtils.MemoFocusOnTheEnd(const AMemo: TMemo);
 begin
   TThread.CreateAnonymousThread(