bk/2024-06-19-0027

Author: Cesar4D

Src/Chat/DelphiAIDev.Chat.View.dfm

@@ -77,7 +77,7 @@ object DelphiAIDevChatView: TDelphiAIDevChatView
       ParentFont = False
       ParentShowHint = False
       PopupMenu = pMenuMemoReturn
-      ScrollBars = ssBoth
+      ScrollBars = ssVertical
       ShowHint = True
       TabOrder = 1
       Zoom = 100
@@ -575,6 +575,15 @@ object DelphiAIDevChatView: TDelphiAIDevChatView
       ShortCut = 16470
       OnClick = Paste1Click
     end
+    object N2: TMenuItem
+      Caption = '-'
+    end
+    object WordWrap1: TMenuItem
+      AutoCheck = True
+      Caption = 'WordWrap'
+      Checked = True
+      OnClick = WordWrap1Click
+    end
     object N1: TMenuItem
       Caption = '-'
     end
@@ -583,6 +592,9 @@ object DelphiAIDevChatView: TDelphiAIDevChatView
       ShortCut = 16449
       OnClick = SelectAll1Click
     end
+    object Clear1: TMenuItem
+      Caption = 'Clear'
+    end
   end
   object pMenuCurrentAI: TPopupMenu
     OnPopup = pMenuCurrentAIPopup

Src/Chat/DelphiAIDev.Chat.View.pas

@@ -65,6 +65,9 @@   TDelphiAIDevChatView = class(TDockableForm)
     ClearContent1: TMenuItem;
     Panel9: TPanel;
     btnUseCurrentUnitCode: TButton;
+    Clear1: TMenuItem;
+    N2: TMenuItem;
+    WordWrap1: TMenuItem;
     procedure FormShow(Sender: TObject);
     procedure cBoxSizeFontKeyPress(Sender: TObject; var Key: Char);
     procedure Cut1Click(Sender: TObject);
@@ -88,6 +91,7 @@   TDelphiAIDevChatView = class(TDockableForm)
     procedure ClearContent1Click(Sender: TObject);
     procedure btnUseCurrentUnitCodeClick(Sender: TObject);
     procedure FormResize(Sender: TObject);
+    procedure WordWrap1Click(Sender: TObject);
   private
     FChat: TDelphiAIDevChat;
     FSettings: TDelphiAIDevSettings;
@@ -483,6 +487,14 @@ procedure TDelphiAIDevChatView.WaitingFormON;
   pnWait.Visible := True;
 end;
 
+procedure TDelphiAIDevChatView.WordWrap1Click(Sender: TObject);
+begin
+  if WordWrap1.Checked then
+    mmReturn.ScrollBars := ssVertical
+  else
+    mmReturn.ScrollBars := ssBoth;
+end;
+
 procedure TDelphiAIDevChatView.WaitingFormOFF;
 begin
   pnWait.Visible := False;

Src/Consts/DelphiAIDev.Consts.pas

@@ -21,7 +21,7 @@   TConsts = class
     MARK_END = '```';
 
     //SETTINGS
-    KEY_SETTINGS_IN_WINDOWS_REGISTRY = '\SOFTWARE\DelphiAIDeveloperC4D';
+    KEY_SETTINGS_IN_WINDOWS_REGISTRY = '\SOFTWARE\DelphiAIDeveloper';
     BASE_URL_GEMINI_DEFAULT = 'https://generativelanguage.googleapis.com/';
     MODEL_GEMINI_DEFAULT = 'v1/models/gemini-1.5-flash:generateContent';
     BASE_URL_OPEN_AI = 'https://api.openai.com/v1/chat/completions/';

Src/Test/Test.pas

@@ -2,32 +2,6 @@
 
 interface
 
-uses
-  System.SysUtils,System.StrUtils,      System.Classes;
-
-type
-  TCliente =        class
-  private
-    FId: Integer;
-  FNome: String;
-      FTelefone:       String;
-    FCidade: String;
-  public
-  property Id: Integer      read FId        write     FId;
-    property Nome: String     read FNome write FNome;
-  property Telefone: String read     FTelefone write FTelefone;
-   property Cidade: String   read FCidade write FCidade;
-     constructor Create(const    AId: Integer; const ANome: String; const ATelefone: String; const ACidade: String);
-  end;
-
 implementation
 
-constructor TCliente.Create( const AId  : Integer; const ANome : String; const ATelefone: String; const ACidade: String);
-begin
-  FId := AId;
-    FNome := ANome;
-   FTelefone := ATelefone;
-  FCidade := ACidade;
-end;
-
 end.

Src/Utils/DelphiAIDev.Utils.OTA.pas

@@ -218,7 +218,10 @@ class function TUtilsOTA.EditorAsString(AIOTAModule: IOTAModule): string;
 
   LOTASourceEditor := Self.GetIOTASourceEditor(AIOTAModule);
   if LOTASourceEditor = nil then
-    TUtils.ShowMsgSynchronize('Unable to get SourceEditor.');
+  begin
+    //TUtils.ShowMsgSynchronize('Unable to get SourceEditor.');
+    Exit;
+  end;
 
   LIOTAEditReader := LOTASourceEditor.CreateReader;
   try