feature/add-config-color-for-code

Author: Cesar4D

Src/Chat/DelphiCopilot.Chat.View.pas

@@ -359,7 +359,12 @@ procedure TDelphiCopilotChatView.AddResponseComplete(const AStrings: TStrings);
     end;
 
     if FCodeStarted then
-      mmReturn.SelAttributes.Color := TUtilsOTA.ActiveThemeForCode
+    begin
+      if (FSettings.ColorHighlightCodeDelphiUse) and (FSettings.ColorHighlightCodeDelphi <> clNone) then
+        mmReturn.SelAttributes.Color := FSettings.ColorHighlightCodeDelphi
+      else
+        mmReturn.SelAttributes.Color := TUtilsOTA.ActiveThemeForCode;
+    end
     else
       mmReturn.SelAttributes.Color := TUtilsOTA.ActiveThemeColorDefault;
 

Src/Settings/DelphiCopilot.Settings.View.dfm

@@ -69,6 +69,7 @@ object DelphiCopilotSettingsView: TDelphiCopilotSettingsView
       Caption = 'Confirm'
       TabOrder = 0
       OnClick = btnConfirmClick
+      ExplicitTop = 3
     end
     object btnClose: TButton
       AlignWithMargins = True
@@ -273,6 +274,22 @@ object DelphiCopilotSettingsView: TDelphiCopilotSettingsView
             'Gemini'
             'OpenAI (ChatGPT)')
         end
+        object ColorBoxColorHighlightCodeDelphi: TColorBox
+          Left = 472
+          Top = 38
+          Width = 133
+          Height = 22
+          TabOrder = 1
+        end
+        object ckColorHighlightCodeDelphiUse: TCheckBox
+          Left = 272
+          Top = 40
+          Width = 197
+          Height = 17
+          Caption = 'Color to highlight Delphi/Pascal code'
+          TabOrder = 2
+          OnClick = ckColorHighlightCodeDelphiUseClick
+        end
       end
       object gBoxOpenAI: TGroupBox
         Left = 0

Src/Settings/DelphiCopilot.Settings.View.pas

@@ -15,7 +15,8 @@ interface
   Vcl.StdCtrls,
   Vcl.ExtCtrls,
   DelphiCopilot.Settings,
-  DelphiCopilot.Types, Vcl.Buttons;
+  DelphiCopilot.Types,
+  Vcl.Buttons;
 
 type
   TDelphiCopilotSettingsView = class(TForm)
@@ -50,6 +51,8 @@   TDelphiCopilotSettingsView = class(TForm)
     btnApiKeyOpenAIView: TSpeedButton;
     lbLink04: TLabel;
     lbRestoreDefaults: TLabel;
+    ColorBoxColorHighlightCodeDelphi: TColorBox;
+    ckColorHighlightCodeDelphiUse: TCheckBox;
     procedure FormCreate(Sender: TObject);
     procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure btnCloseClick(Sender: TObject);
@@ -60,11 +63,13 @@   TDelphiCopilotSettingsView = class(TForm)
     procedure btnApiKeyOpenAIViewClick(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure lbRestoreDefaultsClick(Sender: TObject);
+    procedure ckColorHighlightCodeDelphiUseClick(Sender: TObject);
   private
     FSettings: TDelphiCopilotSettings;
     procedure SaveSettings;
     procedure LoadSettings;
     procedure ConfigScreen;
+    procedure ConfigFieldsColorHighlightDelphi;
   public
 
   end;
@@ -165,10 +170,24 @@ procedure TDelphiCopilotSettingsView.btnConfirmClick(Sender: TObject);
   Self.ModalResult := mrOk;
 end;
 
+procedure TDelphiCopilotSettingsView.ckColorHighlightCodeDelphiUseClick(Sender: TObject);
+begin
+  Self.ConfigFieldsColorHighlightDelphi;
+end;
+
+procedure TDelphiCopilotSettingsView.ConfigFieldsColorHighlightDelphi;
+begin
+  ColorBoxColorHighlightCodeDelphi.Enabled := ckColorHighlightCodeDelphiUse.Checked;
+end;
+
 procedure TDelphiCopilotSettingsView.LoadSettings;
 begin
   cBoxAIDefault.ItemIndex := Integer(FSettings.AIDefault);
 
+  ckColorHighlightCodeDelphiUse.Checked := FSettings.ColorHighlightCodeDelphiUse;
+  ColorBoxColorHighlightCodeDelphi.Selected := FSettings.ColorHighlightCodeDelphi;
+  Self.ConfigFieldsColorHighlightDelphi;
+
   edtBaseUrlGemini.Text := FSettings.BaseUrlGemini;
   cBoxModelGemini.ItemIndex := cBoxModelGemini.Items.IndexOf(FSettings.ModelGemini);
   edtApiKeyGemini.Text := FSettings.ApiKeyGemini;
@@ -182,6 +201,9 @@ procedure TDelphiCopilotSettingsView.SaveSettings;
 begin
   FSettings.AIDefault := TAIsAvailable(cBoxAIDefault.ItemIndex);
 
+  FSettings.ColorHighlightCodeDelphiUse := ckColorHighlightCodeDelphiUse.Checked;
+  FSettings.ColorHighlightCodeDelphi := ColorBoxColorHighlightCodeDelphi.Selected;
+
   FSettings.BaseUrlGemini := edtBaseUrlGemini.Text;
   FSettings.ModelGemini := cBoxModelGemini.Text;
   FSettings.ApiKeyGemini := edtApiKeyGemini.Text;

Src/Settings/DelphiCopilot.Settings.pas

@@ -6,13 +6,19 @@ interface
   System.SysUtils,
   System.Win.Registry,
   Winapi.Windows,
+  Vcl.Graphics,
   DelphiCopilot.Types,
-  DelphiCopilot.Consts;
+  DelphiCopilot.Consts,
+  DelphiCopilot.Utils,
+  DelphiCopilot.Utils.OTA;
 
 type
   TDelphiCopilotSettings = class
   private
     FAIDefault: TAIsAvailable;
+    FColorHighlightCodeDelphiUse: Boolean;
+    FColorHighlightCodeDelphi: TColor;
+
     FBaseUrlGemini: string;
     FModelGemini: string;
     FApiKeyGemini: string;
@@ -23,6 +29,8 @@   TDelphiCopilotSettings = class
 
     const
     FIELD_AIDefault = 'AIDefault';
+    FIELD_ColorHighlightCodeDelphiUse = 'ColorHighlightCodeDelphiUse';
+    FIELD_ColorHighlightCodeDelphi =  'ColorHighlightCodeDelphi';
     FIELD_BaseUrlGemini = 'BaseUrlGemini';
     FIELD_ModelGemini = 'ModelGemini';
     FIELD_ApiKeyGemini = 'ApiKeyGemini';
@@ -38,6 +46,9 @@   TDelphiCopilotSettings = class
     procedure LoadData;
 
     property AIDefault: TAIsAvailable read FAIDefault write FAIDefault;
+    property ColorHighlightCodeDelphiUse: Boolean read FColorHighlightCodeDelphiUse write FColorHighlightCodeDelphiUse;
+    property ColorHighlightCodeDelphi: TColor read FColorHighlightCodeDelphi write FColorHighlightCodeDelphi;
+
 
     property BaseUrlGemini: string read FBaseUrlGemini write FBaseUrlGemini;
     property ModelGemini: string read FModelGemini write FModelGemini;
@@ -69,6 +80,9 @@ procedure TDelphiCopilotSettings.LoadDefaults;
 begin
   FAIDefault := TAIsAvailable.Gemini;
 
+  FColorHighlightCodeDelphiUse := False;
+  FColorHighlightCodeDelphi := clNone;
+
   FBaseUrlGemini := TC4DConsts.BASE_URL_GEMINI_DEFAULT;
   FModelGemini := TC4DConsts.MODEL_GEMINI_DEFAULT;
   FApiKeyGemini := '';
@@ -91,6 +105,9 @@ procedure TDelphiCopilotSettings.SaveData;
 
     LReg.WriteInteger(FIELD_AIDefault, Integer(FAIDefault));
 
+    LReg.WriteBool(FIELD_ColorHighlightCodeDelphiUse, FColorHighlightCodeDelphiUse);
+    LReg.WriteString(FIELD_ColorHighlightCodeDelphi, ColorToString(FColorHighlightCodeDelphi));
+
     LReg.WriteString(FIELD_BaseUrlGemini, FBaseUrlGemini);
     LReg.WriteString(FIELD_ModelGemini, FModelGemini);
     LReg.WriteString(FIELD_ApiKeyGemini, FApiKeyGemini);
@@ -120,6 +137,14 @@ procedure TDelphiCopilotSettings.LoadData;
       if LReg.ValueExists(FIELD_AIDefault) then
         FAIDefault := TAIsAvailable(LReg.ReadInteger(FIELD_AIDefault));
 
+      //COLOR FOR HIGHLIGHT CODE DELPHI/PASCAL
+      if LReg.ValueExists(FIELD_ColorHighlightCodeDelphiUse) then
+        FColorHighlightCodeDelphiUse := LReg.ReadBool(FIELD_ColorHighlightCodeDelphiUse);
+
+      if LReg.ValueExists(FIELD_ColorHighlightCodeDelphi) then
+        FColorHighlightCodeDelphi := TUtils.StringToColorDef(LReg.ReadString(FIELD_ColorHighlightCodeDelphi),
+          TUtilsOTA.ActiveThemeForCode);
+
       //GEMINI
       if LReg.ValueExists(FIELD_BaseUrlGemini) then
         FBaseUrlGemini := LReg.ReadString(FIELD_BaseUrlGemini);