bk/2024-08-30-0202

Author: Cesar4D

Src/Chat/DelphiAIDev.Chat.View.dfm

@@ -165,7 +165,6 @@ object DelphiAIDevChatView: TDelphiAIDevChatView
         Caption = 'Send'
         TabOrder = 0
         OnClick = btnSendClick
-        ExplicitTop = 0
       end
       object pnBackConfigurableButtons: TPanel
         Left = 395

Src/CodeCompletion/DelphiAIDev.CodeCompletion.Search.pas

@@ -5,6 +5,8 @@ interface
 uses
   System.SysUtils,
   System.Classes,
+  Vcl.Forms,
+  Vcl.Controls,
   ToolsAPI,
   DelphiAIDev.Types,
   DelphiAIDev.Consts,
@@ -66,42 +68,47 @@ procedure TDelphiAIDevCodeCompletionSearch.Process(const AContext: IOTAKeyContex
 begin
   FSettings.ValidateFillingSelectedAICodeCompletion(TShowMsg.No);
 
-  FQuestions.Clear;
-  FQuestions.Add(FSettings.LanguageQuestions.GetLanguageDefinition);
-  FQuestions.Add(FSettings.LanguageQuestions.GetMsgCodeCompletionSuggestion);
-  FQuestions.Add(FSettings.LanguageQuestions.GetMsgCodeOnly);
-
-  LIOTAEditPosition := AContext.EditBuffer.EditPosition;
-  LIOTAEditPosition.InsertText(TConsts.TAG_CODE_COMPLETION);
+  Screen.Cursor := crHourGlass;
   try
-    FQuestions.Add(TUtilsOTA.GetSelectedBlockOrAllCodeUnit.Trim);
+    FQuestions.Clear;
+    FQuestions.Add(FSettings.LanguageQuestions.GetLanguageDefinition);
+    FQuestions.Add(FSettings.LanguageQuestions.GetMsgCodeCompletionSuggestion);
+    FQuestions.Add(FSettings.LanguageQuestions.GetMsgCodeOnly);
+
+    LIOTAEditPosition := AContext.EditBuffer.EditPosition;
+    LIOTAEditPosition.InsertText(TConsts.TAG_CODE_COMPLETION);
+    try
+      FQuestions.Add(TUtilsOTA.GetSelectedBlockOrAllCodeUnit.Trim);
+    finally
+      LIOTAEditPosition.BackspaceDelete(TConsts.TAG_CODE_COMPLETION.Length);
+    end;
+
+    try
+      FAI.AiUse(FSettings.CodeCompletionAIDefault).ProcessSend(FQuestions.Text);
+    except
+      Abort;
+    end;
+
+    FVars.Contents.Text := TUtils.ConfReturnAI(FAI.Response.Text);
+
+    LRow := LIOTAEditPosition.Row;
+    LColumn := LIOTAEditPosition.Column;
+
+    FVars.Row := LRow;
+    FVars.Column := LColumn;
+    FVars.LineIni := LRow;
+    FVars.LineEnd := FVars.LineIni + FVars.Contents.Count;
+
+    LText := '';
+    for i := 0 to Pred(FVars.Contents.Count) do
+      LText := LText + sLineBreak;
+
+    LIOTAEditPosition.InsertText(LText); //.TrimRight + sLineBreak);
+    LIOTAEditPosition.Move(FVars.LineIni, LColumn);
   finally
-    LIOTAEditPosition.BackspaceDelete(TConsts.TAG_CODE_COMPLETION.Length);
+    Screen.Cursor := crDefault;
   end;
 
-  try
-    FAI.AiUse(FSettings.CodeCompletionAIDefault).ProcessSend(FQuestions.Text);
-  except
-    Abort;
-  end;
-
-  FVars.Contents.Text := TUtils.ConfReturnAI(FAI.Response.Text);
-
-  LRow := LIOTAEditPosition.Row;
-  LColumn := LIOTAEditPosition.Column;
-
-  FVars.Row := LRow;
-  FVars.Column := LColumn;
-  FVars.LineIni := LRow;
-  FVars.LineEnd := FVars.LineIni + FVars.Contents.Count;
-
-  LText := '';
-  for i := 0 to Pred(FVars.Contents.Count) do
-    LText := LText + sLineBreak;
-
-  LIOTAEditPosition.InsertText(LText); //.TrimRight + sLineBreak);
-  LIOTAEditPosition.Move(FVars.LineIni, LColumn);
-
   //LIOTAEditPositionMoveBOL;
   //  //LTextCurrentLineOrBlock := Context.EditBuffer.EditBlock.Text;
   //  LTextCurrentLineOrBlock := GetCurrentLineOrBlock(CnOtaGetTopMostEditView);

Src/Settings/DelphiAIDev.Settings.pas

@@ -129,7 +129,7 @@ procedure TDelphiAIDevSettings.LoadDefaults;
   FColorHighlightCodeDelphi := clNone;
 
   FCodeCompletionUse := False;
-  FCodeCompletionAIDefault := TC4DAiAvailable.Groq;
+  FCodeCompletionAIDefault := TC4DAiAvailable.Gemini;
   FCodeCompletionSuggestionColorUse := False;
   FCodeCompletionSuggestionColor := TConsts.CODE_COMPLETION_SUGGESTION_COLOR;
   FCodeCompletionShortcutInvoke := TConsts.CODE_COMPLETION_SHORTCUT_INVOKE;