bk/2024-06-14-1655

Author: Cesar4D

Package/DelphiCopilot.dpk

@@ -58,7 +58,6 @@ contains
   DelphiCopilot.Interfaces in '..\Src\Interfaces\DelphiCopilot.Interfaces.pas',
   DelphiCopilot.ModuleCreator.OTA in '..\Src\ModuleCreator\DelphiCopilot.ModuleCreator.OTA.pas',
   DelphiCopilot.ModuleCreator in '..\Src\ModuleCreator\DelphiCopilot.ModuleCreator.pas',
-  DelphiCopilot.ModuleCreator.Interfaces in '..\Src\ModuleCreator\DelphiCopilot.ModuleCreator.Interfaces.pas',
-  ClientTest in '..\Src\Test\ClientTest.pas';
+  DelphiCopilot.ModuleCreator.Interfaces in '..\Src\ModuleCreator\DelphiCopilot.ModuleCreator.Interfaces.pas';
 
 end.

Package/DelphiCopilot.dproj

@@ -155,7 +155,6 @@
         <DCCReference Include="..\Src\ModuleCreator\DelphiCopilot.ModuleCreator.OTA.pas"/>
         <DCCReference Include="..\Src\ModuleCreator\DelphiCopilot.ModuleCreator.pas"/>
         <DCCReference Include="..\Src\ModuleCreator\DelphiCopilot.ModuleCreator.Interfaces.pas"/>
-        <DCCReference Include="..\Src\Test\ClientTest.pas"/>
         <BuildConfiguration Include="Release">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>

Src/Chat/DelphiCopilot.Chat.View.pas

@@ -28,8 +28,7 @@ interface
   DelphiCopilot.Consts,
   DelphiCopilot.Chat,
   DelphiCopilot.Settings,
-  DelphiCopilot.ModuleCreator,
-  ClientTest;
+  DelphiCopilot.ModuleCreator;
 
 type
   TDelphiCopilotChatView = class(TDockableForm)

Src/Settings/DelphiCopilot.Settings.View.dfm

@@ -32,6 +32,29 @@ object DelphiCopilotSettingsView: TDelphiCopilotSettingsView
     Padding.Bottom = 2
     ParentBackground = False
     TabOrder = 0
+    object lbRestoreDefaults: TLabel
+      AlignWithMargins = True
+      Left = 18
+      Top = 12
+      Width = 80
+      Height = 18
+      Cursor = crHandPoint
+      Margins.Left = 16
+      Margins.Top = 10
+      Align = alLeft
+      Caption = 'Restore defaults'
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clBlue
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      ParentFont = False
+      ParentShowHint = False
+      ShowHint = True
+      Layout = tlCenter
+      OnClick = lbRestoreDefaultsClick
+      ExplicitHeight = 13
+    end
     object btnConfirm: TButton
       AlignWithMargins = True
       Left = 404

Src/Settings/DelphiCopilot.Settings.View.pas

@@ -49,6 +49,7 @@   TDelphiCopilotSettingsView = class(TForm)
     btnApiKeyGeminiView: TSpeedButton;
     btnApiKeyOpenAIView: TSpeedButton;
     lbLink04: TLabel;
+    lbRestoreDefaults: TLabel;
     procedure FormCreate(Sender: TObject);
     procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure btnCloseClick(Sender: TObject);
@@ -58,6 +59,7 @@   TDelphiCopilotSettingsView = class(TForm)
     procedure btnApiKeyGeminiViewClick(Sender: TObject);
     procedure btnApiKeyOpenAIViewClick(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure lbRestoreDefaultsClick(Sender: TObject);
   private
     FSettings: TDelphiCopilotSettings;
     procedure SaveSettings;
@@ -88,6 +90,7 @@ procedure TDelphiCopilotSettingsView.FormShow(Sender: TObject);
 begin
   FSettings.LoadData;
   Self.ConfigScreen;
+  FSettings.LoadData;
   Self.LoadSettings;
 end;
 
@@ -102,6 +105,7 @@ procedure TDelphiCopilotSettingsView.ConfigScreen;
   lbLink02.Font.Color := lbLink01.Font.Color;
   lbLink03.Font.Color := lbLink01.Font.Color;
   lbLink04.Font.Color := lbLink01.Font.Color;
+  lbRestoreDefaults.Font.Color := lbLink01.Font.Color;
 end;
 
 procedure TDelphiCopilotSettingsView.btnApiKeyGeminiViewClick(Sender: TObject);
@@ -138,6 +142,22 @@ procedure TDelphiCopilotSettingsView.lbLink03Click(Sender: TObject);
   TUtils.OpenLink(TLabel(Sender).Hint.Trim);
 end;
 
+procedure TDelphiCopilotSettingsView.lbRestoreDefaultsClick(Sender: TObject);
+var
+  LApiKeyGemini: string;
+  LApiKeyOpenAI: string;
+begin
+  LApiKeyGemini := FSettings.ApiKeyGemini;
+  LApiKeyOpenAI := FSettings.ApiKeyOpenAI;
+
+  FSettings.LoadDefaults;
+
+  FSettings.ApiKeyGemini := LApiKeyGemini;
+  FSettings.ApiKeyOpenAI := LApiKeyOpenAI;
+
+  Self.LoadSettings;
+end;
+
 procedure TDelphiCopilotSettingsView.btnConfirmClick(Sender: TObject);
 begin
   Self.SaveSettings;
@@ -147,7 +167,6 @@ procedure TDelphiCopilotSettingsView.btnConfirmClick(Sender: TObject);
 
 procedure TDelphiCopilotSettingsView.LoadSettings;
 begin
-  FSettings.LoadData;
   cBoxAIDefault.ItemIndex := Integer(FSettings.AIDefault);
 
   edtBaseUrlGemini.Text := FSettings.BaseUrlGemini;

Src/Settings/DelphiCopilot.Settings.pas

@@ -74,7 +74,7 @@ procedure TDelphiCopilotSettings.LoadDefaults;
   FApiKeyGemini := '';
 
   FBaseUrlOpenAI := TC4DConsts.BASE_URL_OPEN_AI;
-  FModelOpenAI := '';
+  FModelOpenAI := 'gpt-3.5-turbo';
   FApiKeyOpenAI := '';
 end;