bk/2024-07-23-0217

Author: Cesar4D

Src/Chat/DelphiAIDev.Chat.View.pas

@@ -745,11 +745,14 @@ procedure TDelphiAIDevChatView.pMenuCurrentAIPopup(Sender: TObject);
 begin
   Gemini1.Checked := False;
   ChatGPT1.Checked := False;
+  Groq1.Checked := False;
   case FSettings.AIDefault of
     TC4DAIsAvailable.Gemini:
       Gemini1.Checked := True;
     TC4DAIsAvailable.OpenAI:
       ChatGPT1.Checked := True;
+    TC4DAIsAvailable.Groq:
+      Groq1.Checked := True;
   end;
 end;
 

Src/Settings/DelphiAIDev.Settings.View.dfm

@@ -413,8 +413,6 @@ object DelphiAIDevSettingsView: TDelphiAIDevSettingsView
         Padding.Top = 5
         Padding.Bottom = 3
         TabOrder = 3
-        ExplicitTop = 426
-        ExplicitWidth = 686
         object btnOpenDataFolder: TButton
           Left = 4
           Top = 20