feature/add-conf-models-in-clat

Author: Cesar4D

Samples/Chat/Src/Chat.Main.View.dfm

@@ -19,7 +19,7 @@ object ChatMainView: TChatMainView
     Top = 0
     Width = 1033
     Height = 558
-    ActivePage = tabAPIKeys
+    ActivePage = tabChat
     Align = alClient
     TabOrder = 0
     object tabAPIKeys: TTabSheet
@@ -158,6 +158,118 @@ object ChatMainView: TChatMainView
         end
       end
     end
+    object tabModels: TTabSheet
+      Caption = 'Models'
+      ImageIndex = 2
+      object pnModelsBack: TPanel
+        Left = 0
+        Top = 0
+        Width = 1025
+        Height = 528
+        Align = alClient
+        BevelOuter = bvNone
+        ParentBackground = False
+        TabOrder = 0
+        object Label15: TLabel
+          Left = 16
+          Top = 19
+          Width = 37
+          Height = 15
+          Caption = 'Claude'
+        end
+        object Label16: TLabel
+          Left = 16
+          Top = 59
+          Width = 51
+          Height = 15
+          Caption = 'DeepSeek'
+        end
+        object Label17: TLabel
+          Left = 16
+          Top = 99
+          Width = 38
+          Height = 15
+          Caption = 'Gemini'
+        end
+        object Label18: TLabel
+          Left = 16
+          Top = 139
+          Width = 25
+          Height = 15
+          Caption = 'Grok'
+        end
+        object Label19: TLabel
+          Left = 16
+          Top = 179
+          Width = 36
+          Height = 15
+          Caption = 'Mistral'
+        end
+        object Label20: TLabel
+          Left = 16
+          Top = 219
+          Width = 40
+          Height = 15
+          Caption = 'OpenAI'
+        end
+        object Label21: TLabel
+          Left = 16
+          Top = 259
+          Width = 51
+          Height = 15
+          Caption = 'Perplexity'
+        end
+        object edtModelClaude: TEdit
+          Left = 80
+          Top = 16
+          Width = 697
+          Height = 23
+          TabOrder = 0
+        end
+        object edtModelDeepSeek: TEdit
+          Left = 80
+          Top = 56
+          Width = 697
+          Height = 23
+          TabOrder = 1
+        end
+        object edtModelGemini: TEdit
+          Left = 80
+          Top = 96
+          Width = 697
+          Height = 23
+          TabOrder = 2
+        end
+        object edtModelGrok: TEdit
+          Left = 80
+          Top = 136
+          Width = 697
+          Height = 23
+          TabOrder = 3
+        end
+        object edtModelMistral: TEdit
+          Left = 80
+          Top = 176
+          Width = 697
+          Height = 23
+          TabOrder = 4
+        end
+        object edtModelOpenAI: TEdit
+          Left = 80
+          Top = 216
+          Width = 697
+          Height = 23
+          TabOrder = 5
+        end
+        object edtModelPerplexity: TEdit
+          Left = 80
+          Top = 256
+          Width = 697
+          Height = 23
+          TabOrder = 6
+        end
+      end
+    end
     object tabChat: TTabSheet
       Caption = 'Chat'
       ImageIndex = 1
@@ -447,7 +559,7 @@ object ChatMainView: TChatMainView
     Settings.OpenAIModel = 'gpt-4o'
     Settings.GrokModel = 'grok-3'
     Settings.ClaudeModel = 'claude-3-5-sonnet-20241022'
-    Settings.OllamaModel = 'llama3.2:latest'
+    Settings.OllamaModel = 'tinyllama'
     Settings.DeepSeekModel = 'deepseek-chat'
     Settings.PerplexityModel = 'llama-3.1-sonar-small-128k-online'
     Settings.OllamaHost = 'localhost'

Samples/Chat/Src/Chat.Main.View.pas

@@ -70,6 +70,22 @@   TChatMainView = class(TForm)
     ckWebSearch: TCheckBox;
     Label14: TLabel;
     edtMaxTokens: TEdit;
+    tabModels: TTabSheet;
+    pnModelsBack: TPanel;
+    Label15: TLabel;
+    Label16: TLabel;
+    Label17: TLabel;
+    Label18: TLabel;
+    Label19: TLabel;
+    Label20: TLabel;
+    Label21: TLabel;
+    edtModelClaude: TEdit;
+    edtModelDeepSeek: TEdit;
+    edtModelGemini: TEdit;
+    edtModelGrok: TEdit;
+    edtModelMistral: TEdit;
+    edtModelOpenAI: TEdit;
+    edtModelPerplexity: TEdit;
     procedure FormCreate(Sender: TObject);
     procedure cBoxIAServiceChange(Sender: TObject);
     procedure btnExecuteClick(Sender: TObject);
@@ -82,7 +98,8 @@   TChatMainView = class(TForm)
     procedure SaveKeys;
     procedure ClearResponse;
     procedure Settings;
-    procedure SetManualModel;
+    procedure ModelsComponentToScreen;
+    procedure ModelsScreenToComponent;
   public
 
   end;
@@ -108,19 +125,12 @@ procedure TChatMainView.FormCreate(Sender: TObject);
   cBoxIAService.ItemIndex := 6;
   cBoxIAServiceChange(cBoxIAService);
 
-  Self.SetManualModel;
   Self.Settings;
-end;
-
-procedure TChatMainView.SetManualModel;
-begin
-  TMSFNCCloudAI1.Settings.OllamaModel := 'tinyllama';
-  //TMSFNCCloudAI1.Settings.ClaudeModel := 'claude-opus-4-20250514';
+  Self.ModelsComponentToScreen;
 end;
 
 procedure TChatMainView.Settings;
 begin
-  //LOG
   TMSFNCCloudAI1.Logging := ckGerarLogs.Checked;
   TMSFNCCloudAI1.LogFileName := '..\..\Files\Chat.log';
 
@@ -165,6 +175,28 @@ procedure TChatMainView.SaveKeys;
   TMSFNCCloudAI1.APIKeys.SaveToFile(KEYS_FILE, KEYS_PASSWORD);
 end;
 
+procedure TChatMainView.ModelsComponentToScreen;
+begin
+  edtModelClaude.Text := TMSFNCCloudAI1.Settings.ClaudeModel;
+  edtModelDeepSeek.Text := TMSFNCCloudAI1.Settings.DeepSeekModel;
+  edtModelGemini.Text := TMSFNCCloudAI1.Settings.GeminiModel;
+  edtModelGrok.Text := TMSFNCCloudAI1.Settings.GrokModel;
+  edtModelMistral.Text := TMSFNCCloudAI1.Settings.MistralModel;
+  edtModelOpenAI.Text := TMSFNCCloudAI1.Settings.OpenAIModel;
+  edtModelPerplexity.Text := TMSFNCCloudAI1.Settings.PerplexityModel;
+end;
+
+procedure TChatMainView.ModelsScreenToComponent;
+begin
+  TMSFNCCloudAI1.Settings.ClaudeModel := edtModelClaude.Text;
+  TMSFNCCloudAI1.Settings.DeepSeekModel := edtModelDeepSeek.Text;
+  TMSFNCCloudAI1.Settings.GeminiModel := edtModelGemini.Text;
+  TMSFNCCloudAI1.Settings.GrokModel := edtModelGrok.Text;
+  TMSFNCCloudAI1.Settings.MistralModel := edtModelMistral.Text;
+  TMSFNCCloudAI1.Settings.OpenAIModel := edtModelOpenAI.Text;
+  TMSFNCCloudAI1.Settings.PerplexityModel := edtModelPerplexity.Text;
+end;
+
 procedure TChatMainView.cBoxIAServiceChange(Sender: TObject);
 var
   i: Integer;
@@ -186,6 +218,7 @@ procedure TChatMainView.btnExecuteClick(Sender: TObject);
 begin
   Self.ClearResponse;
   Self.Settings;
+  Self.ModelsScreenToComponent;
 
   TMSFNCCloudAI1.Context.Text := mmQuestion.Lines.Text;
   TMSFNCCloudAI1.Execute();