bk/2024-09-16-1034

Author: Cesar4D

Src/Chat/DelphiAIDev.Chat.View.pas

@@ -434,7 +434,10 @@ procedure TDelphiAIDevChatView.ProcessSend;
     LQuestion := TUtilsOTA.GetSelectedBlockOrAllCodeUnit.Trim + sLineBreak;
 
   if btnCodeOnly.ImageIndex = CodeOnly_ImageIndex_ON then
-    LQuestion := LQuestion + FSettings.LanguageQuestions.GetMsgCodeOnly;
+    LQuestion := LQuestion + FSettings.LanguageQuestions.GetMsgCodeOnly + sLineBreak;
+
+  if not FSettings.DefaultPrompt.Trim.IsEmpty then
+    LQuestion := LQuestion + FSettings.DefaultPrompt + sLineBreak;
 
   LQuestion := LQuestion + mmQuestion.Lines.Text;
 

Src/CodeCompletion/DelphiAIDev.CodeCompletion.Search.pas

@@ -74,6 +74,8 @@ procedure TDelphiAIDevCodeCompletionSearch.Process(const AContext: IOTAKeyContex
     FQuestions.Add(FSettings.LanguageQuestions.GetLanguageDefinition);
     FQuestions.Add(FSettings.LanguageQuestions.GetMsgCodeCompletionSuggestion);
     FQuestions.Add(FSettings.LanguageQuestions.GetMsgCodeOnly);
+    if not FSettings.CodeCompletionDefaultPrompt.Trim.IsEmpty then
+      FQuestions.Add(FSettings.CodeCompletionDefaultPrompt);
 
     LIOTAEditPosition := AContext.EditBuffer.EditPosition;
     LIOTAEditPosition.InsertText(TConsts.TAG_CODE_COMPLETION);

Src/DB/Chat/DelphiAIDev.DB.Chat.View.pas

@@ -735,6 +735,8 @@ procedure TDelphiAIDevDBChatView.ProcessSend;
   LQuestion := LQuestion + FSettings.LanguageQuestions.GetMsgJSONIsDatabaseStructure(Self.GetFieldDBSelected.DriverID.ToString);
   LQuestion := LQuestion + Self.GetJsonDatabase + sLineBreak;
   LQuestion := LQuestion + FSettings.LanguageQuestions.GetMsgJSONInformedAnswerQuestion;
+  if not FSettings.DefaultPrompt.Trim.IsEmpty then
+    LQuestion := LQuestion + FSettings.DefaultPrompt + sLineBreak;
   LQuestion := LQuestion + mmQuestion.Lines.Text;
 
   LTask := TTask.Create(

Src/Settings/DelphiAIDev.Settings.View.dfm

@@ -207,10 +207,14 @@ object DelphiAIDevSettingsView: TDelphiAIDevSettingsView
     Top = 33
     Width = 667
     Height = 521
-    ActivePage = TabSheet3
+    ActivePage = TabSheet4
     TabOrder = 1
     object TabSheet1: TTabSheet
       Caption = 'Preferences'
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       object pnPreferencesBack: TPanel
         Left = 0
         Top = 0
@@ -243,6 +247,13 @@ object DelphiAIDevSettingsView: TDelphiAIDevSettingsView
             Height = 13
             Caption = 'Language used in questions'
           end
+          object Label19: TLabel
+            Left = 21
+            Top = 122
+            Width = 72
+            Height = 13
+            Caption = 'Default Prompt'
+          end
           object cBoxAIDefault: TComboBox
             Left = 272
             Top = 38
@@ -303,12 +314,24 @@ object DelphiAIDevSettingsView: TDelphiAIDevSettingsView
               OnClick = btnOpenDataFolderClick
             end
           end
+          object mmDefaultPrompt: TMemo
+            Left = 21
+            Top = 139
+            Width = 617
+            Height = 201
+            ScrollBars = ssVertical
+            TabOrder = 5
+          end
         end
       end
     end
     object TabSheet2: TTabSheet
       Caption = 'IAs on-line'
       ImageIndex = 1
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       object pnIAsOnLineBack: TPanel
         Left = 0
         Top = 0
@@ -851,6 +874,10 @@ object DelphiAIDevSettingsView: TDelphiAIDevSettingsView
     object TabSheet3: TTabSheet
       Caption = 'IAs off-Line'
       ImageIndex = 2
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       object pnIAsOffLineBack: TPanel
         Left = 0
         Top = 0
@@ -1084,6 +1111,13 @@ object DelphiAIDevSettingsView: TDelphiAIDevSettingsView
               Font.Style = [fsBold]
               ParentFont = False
             end
+            object Label18: TLabel
+              Left = 16
+              Top = 187
+              Width = 72
+              Height = 13
+              Caption = 'Default Prompt'
+            end
             object ckCodeCompletionUse: TCheckBox
               Left = 16
               Top = 5
@@ -1127,6 +1161,14 @@ object DelphiAIDevSettingsView: TDelphiAIDevSettingsView
               Height = 21
               TabOrder = 4
             end
+            object mmCodeCompletionDefaultPrompt: TMemo
+              Left = 16
+              Top = 204
+              Width = 617
+              Height = 201
+              ScrollBars = ssVertical
+              TabOrder = 5
+            end
           end
         end
       end

Src/Settings/DelphiAIDev.Settings.View.pas

@@ -115,6 +115,10 @@   TDelphiAIDevSettingsView = class(TForm)
     btnOpenDataFolder: TButton;
     edtCodeCompletionShortcutInvoke: TEdit;
     Label17: TLabel;
+    Label18: TLabel;
+    mmCodeCompletionDefaultPrompt: TMemo;
+    Label19: TLabel;
+    mmDefaultPrompt: TMemo;
     procedure FormCreate(Sender: TObject);
     procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure btnCloseClick(Sender: TObject);
@@ -344,12 +348,14 @@ procedure TDelphiAIDevSettingsView.LoadSettings;
   ckColorHighlightCodeDelphiUse.Checked := FSettings.ColorHighlightCodeDelphiUse;
   ColorBoxColorHighlightCodeDelphi.Selected := FSettings.ColorHighlightCodeDelphi;
   Self.ConfigFieldsColorHighlightDelphi;
+  mmDefaultPrompt.Lines.Text := FSettings.DefaultPrompt;
 
   ckCodeCompletionUse.Checked := FSettings.CodeCompletionUse;
   cBoxCodeCompletionAIDefault.ItemIndex := Integer(FSettings.CodeCompletionAIDefault);
   ckCodeCompletionSuggestionColorUse.Checked := FSettings.CodeCompletionSuggestionColorUse;
   ColorBoxCodeCompletionSuggestionColor.Selected := FSettings.CodeCompletionSuggestionColor;
   edtCodeCompletionShortcutInvoke.Text := FSettings.CodeCompletionShortcutInvoke;
+  mmCodeCompletionDefaultPrompt.Lines.Text := FSettings.CodeCompletionDefaultPrompt;
 
   edtBaseUrlGemini.Text := FSettings.BaseUrlGemini;
   cBoxModelGemini.ItemIndex := cBoxModelGemini.Items.IndexOf(FSettings.ModelGemini);
@@ -383,12 +389,14 @@ procedure TDelphiAIDevSettingsView.SaveSettings;
 
   FSettings.ColorHighlightCodeDelphiUse := ckColorHighlightCodeDelphiUse.Checked;
   FSettings.ColorHighlightCodeDelphi := ColorBoxColorHighlightCodeDelphi.Selected;
+  FSettings.DefaultPrompt := mmDefaultPrompt.Lines.Text;
 
   FSettings.CodeCompletionUse := ckCodeCompletionUse.Checked;
   FSettings.CodeCompletionAIDefault := TC4DAiAvailable(cBoxCodeCompletionAIDefault.ItemIndex);
   FSettings.CodeCompletionSuggestionColorUse := ckCodeCompletionSuggestionColorUse.Checked;
   FSettings.CodeCompletionSuggestionColor := ColorBoxCodeCompletionSuggestionColor.Selected;
   FSettings.CodeCompletionShortcutInvoke := edtCodeCompletionShortcutInvoke.Text;
+  FSettings.CodeCompletionDefaultPrompt := mmCodeCompletionDefaultPrompt.Lines.Text;
 
   FSettings.BaseUrlGemini := edtBaseUrlGemini.Text;
   FSettings.ModelGemini := cBoxModelGemini.Text;

Src/Settings/DelphiAIDev.Settings.pas

@@ -18,12 +18,14 @@   TDelphiAIDevSettings = class
     FIELD_LanguageQuestions = 'LanguageQuestions';
     FIELD_AIDefault = 'AIDefault';
     FIELD_ColorHighlightCodeDelphiUse = 'ColorHighlightCodeDelphiUse';
-    FIELD_ColorHighlightCodeDelphi =  'ColorHighlightCodeDelphi';
+    FIELD_ColorHighlightCodeDelphi = 'ColorHighlightCodeDelphi';
+    FIELD_DefaultPrompt = 'DefaultPrompt';
     FIELD_CodeCompletionUse = 'CodeCompletionUse';
     FIELD_CodeCompletionAIDefault = 'CodeCompletionAIDefault';
     FIELD_CodeCompletionSuggestionColorUse = 'CodeCompletionSuggestionColorUse';
     FIELD_CodeCompletionSuggestionColor = 'CodeCompletionSuggestionColor';
     FIELD_CodeCompletionShortcutInvoke = 'CodeCompletionShortcutInvoke';
+    FIELD_CodeCompletionDefaultPrompt =  'CodeCompletionDefaultPrompt';
     FIELD_BaseUrlGemini = 'BaseUrlGemini';
     FIELD_ModelGemini = 'ModelGemini';
     FIELD_ApiKeyGemini = 'ApiKeyGemini';
@@ -41,12 +43,14 @@   TDelphiAIDevSettings = class
     FAIDefault: TC4DAiAvailable;
     FColorHighlightCodeDelphiUse: Boolean;
     FColorHighlightCodeDelphi: TColor;
+    FDefaultPrompt: string;
 
     FCodeCompletionUse: Boolean;
     FCodeCompletionAIDefault: TC4DAiAvailable;
     FCodeCompletionSuggestionColorUse: Boolean;
     FCodeCompletionSuggestionColor: TColor;
     FCodeCompletionShortcutInvoke: string;
+    FCodeCompletionDefaultPrompt: string;
 
     FBaseUrlGemini: string;
     FModelGemini: string;
@@ -79,12 +83,14 @@   TDelphiAIDevSettings = class
     property AIDefault: TC4DAiAvailable read FAIDefault write FAIDefault;
     property ColorHighlightCodeDelphiUse: Boolean read FColorHighlightCodeDelphiUse write FColorHighlightCodeDelphiUse;
     property ColorHighlightCodeDelphi: TColor read FColorHighlightCodeDelphi write FColorHighlightCodeDelphi;
+    property DefaultPrompt: string read FDefaultPrompt write FDefaultPrompt;
 
     property CodeCompletionUse: Boolean read FCodeCompletionUse write FCodeCompletionUse;
     property CodeCompletionAIDefault: TC4DAiAvailable read FCodeCompletionAIDefault write FCodeCompletionAIDefault;
     property CodeCompletionSuggestionColorUse: Boolean read FCodeCompletionSuggestionColorUse write FCodeCompletionSuggestionColorUse;
     property CodeCompletionSuggestionColor: TColor read FCodeCompletionSuggestionColor write FCodeCompletionSuggestionColor;
     property CodeCompletionShortcutInvoke: string read FCodeCompletionShortcutInvoke write FCodeCompletionShortcutInvoke;
+    property CodeCompletionDefaultPrompt: string read FCodeCompletionDefaultPrompt write FCodeCompletionDefaultPrompt;
 
     property BaseUrlGemini: string read FBaseUrlGemini write FBaseUrlGemini;
     property ModelGemini: string read FModelGemini write FModelGemini;
@@ -127,12 +133,14 @@ procedure TDelphiAIDevSettings.LoadDefaults;
 
   FColorHighlightCodeDelphiUse := False;
   FColorHighlightCodeDelphi := clNone;
+  FDefaultPrompt := '';
 
   FCodeCompletionUse := False;
   FCodeCompletionAIDefault := TC4DAiAvailable.Gemini;
   FCodeCompletionSuggestionColorUse := False;
   FCodeCompletionSuggestionColor := TConsts.CODE_COMPLETION_SUGGESTION_COLOR;
   FCodeCompletionShortcutInvoke := TConsts.CODE_COMPLETION_SHORTCUT_INVOKE;
+  FCodeCompletionDefaultPrompt := '';
 
   FBaseUrlGemini := TConsts.BASE_URL_GEMINI_DEFAULT;
   FModelGemini := TConsts.MODEL_GEMINI_DEFAULT;
@@ -167,12 +175,14 @@ procedure TDelphiAIDevSettings.SaveData;
 
     LReg.WriteBool(FIELD_ColorHighlightCodeDelphiUse, FColorHighlightCodeDelphiUse);
     LReg.WriteString(FIELD_ColorHighlightCodeDelphi, ColorToString(FColorHighlightCodeDelphi));
+    LReg.WriteString(FIELD_DefaultPrompt, FDefaultPrompt);
 
     LReg.WriteBool(FIELD_CodeCompletionUse, FCodeCompletionUse);
     LReg.WriteInteger(FIELD_CodeCompletionAIDefault, Integer(FCodeCompletionAIDefault));
     LReg.WriteBool(FIELD_CodeCompletionSuggestionColorUse, FCodeCompletionSuggestionColorUse);
     LReg.WriteString(FIELD_CodeCompletionSuggestionColor, ColorToString(FCodeCompletionSuggestionColor));
     LReg.WriteString(FIELD_CodeCompletionShortcutInvoke, FCodeCompletionShortcutInvoke);
+    LReg.WriteString(FIELD_CodeCompletionDefaultPrompt, FCodeCompletionDefaultPrompt);
 
     LReg.WriteString(FIELD_BaseUrlGemini, FBaseUrlGemini);
     LReg.WriteString(FIELD_ModelGemini, FModelGemini);
@@ -222,6 +232,9 @@ procedure TDelphiAIDevSettings.LoadData;
         FColorHighlightCodeDelphi := TUtils.StringToColorDef(LReg.ReadString(FIELD_ColorHighlightCodeDelphi),
           TUtilsOTA.ActiveThemeForCode);
 
+      if LReg.ValueExists(FIELD_DefaultPrompt) then
+        FDefaultPrompt := LReg.ReadString(FIELD_DefaultPrompt);
+
       //Code Completion
       if LReg.ValueExists(FIELD_CodeCompletionUse) then
         FCodeCompletionUse := LReg.ReadBool(FIELD_CodeCompletionUse);
@@ -239,6 +252,9 @@ procedure TDelphiAIDevSettings.LoadData;
       if LReg.ValueExists(FIELD_CodeCompletionShortcutInvoke) then
         FCodeCompletionShortcutInvoke := LReg.ReadString(FIELD_CodeCompletionShortcutInvoke);
 
+      if LReg.ValueExists(FIELD_CodeCompletionDefaultPrompt) then
+        FCodeCompletionDefaultPrompt := LReg.ReadString(FIELD_CodeCompletionDefaultPrompt);
+
       //GEMINI
       if LReg.ValueExists(FIELD_BaseUrlGemini) then
         FBaseUrlGemini := LReg.ReadString(FIELD_BaseUrlGemini);