bk/2024-06-26-0121

Author: Cesar4D

Package/DelphiAIDeveloper.dpk

@@ -69,6 +69,8 @@ contains
   DelphiAIDev.DefaultsQuestions.Fields in '..\Src\DefaultsQuestions\DelphiAIDev.DefaultsQuestions.Fields.pas',
   DelphiAIDev.DefaultsQuestions.Interfaces in '..\Src\DefaultsQuestions\DelphiAIDev.DefaultsQuestions.Interfaces.pas',
   DelphiAIDev.DefaultsQuestions.Model in '..\Src\DefaultsQuestions\DelphiAIDev.DefaultsQuestions.Model.pas',
-  DelphiAIDev.DefaultsQuestions.AddEdit.View in '..\Src\DefaultsQuestions\DelphiAIDev.DefaultsQuestions.AddEdit.View.pas' {DelphiAIDevDefaultsQuestionsAddEditView};
+  DelphiAIDev.DefaultsQuestions.AddEdit.View in '..\Src\DefaultsQuestions\DelphiAIDev.DefaultsQuestions.AddEdit.View.pas' {DelphiAIDevDefaultsQuestionsAddEditView},
+  DelphiAIDev.DefaultsQuestions.PopupMenu in '..\Src\DefaultsQuestions\DelphiAIDev.DefaultsQuestions.PopupMenu.pas',
+  DelphiAIDev.Utils.ABMenuAction in '..\Src\Utils\DelphiAIDev.Utils.ABMenuAction.pas';
 
 end.

Package/DelphiAIDeveloper.dproj

@@ -176,6 +176,8 @@
             <Form>DelphiAIDevDefaultsQuestionsAddEditView</Form>
             <FormType>dfm</FormType>
         </DCCReference>
+        <DCCReference Include="..\Src\DefaultsQuestions\DelphiAIDev.DefaultsQuestions.PopupMenu.pas"/>
+        <DCCReference Include="..\Src\Utils\DelphiAIDev.Utils.ABMenuAction.pas"/>
         <RcItem Include="Img\c4d_gear.bmp">
             <ResourceType>BITMAP</ResourceType>
             <ResourceId>c4d_gear</ResourceId>

Src/Chat/DelphiAIDev.Chat.View.dfm

@@ -42,7 +42,7 @@ object DelphiAIDevChatView: TDelphiAIDevChatView
     TabOrder = 0
     object Splitter1: TSplitter
       Left = 18
-      Top = 520
+      Top = 518
       Width = 938
       Height = 3
       Cursor = crVSplit
@@ -56,7 +56,7 @@ object DelphiAIDevChatView: TDelphiAIDevChatView
       Left = 18
       Top = 15
       Width = 938
-      Height = 502
+      Height = 500
       Margins.Left = 0
       Margins.Top = 0
       Margins.Right = 0
@@ -84,7 +84,7 @@ object DelphiAIDevChatView: TDelphiAIDevChatView
     end
     object pnBackQuestion: TPanel
       Left = 18
-      Top = 523
+      Top = 521
       Width = 938
       Height = 113
       Margins.Left = 0
@@ -121,9 +121,9 @@ object DelphiAIDevChatView: TDelphiAIDevChatView
     end
     object pnBackStatusBar: TPanel
       Left = 18
-      Top = 636
+      Top = 634
       Width = 938
-      Height = 25
+      Height = 27
       Margins.Left = 0
       Margins.Top = 0
       Margins.Right = 0
@@ -138,7 +138,7 @@ object DelphiAIDevChatView: TDelphiAIDevChatView
         Left = 0
         Top = 3
         Width = 56
-        Height = 20
+        Height = 22
         Cursor = crHandPoint
         Hint = 'AI being used'
         Margins.Left = 0
@@ -156,7 +156,7 @@ object DelphiAIDevChatView: TDelphiAIDevChatView
         Left = 864
         Top = 3
         Width = 74
-        Height = 20
+        Height = 22
         Cursor = crHandPoint
         Margins.Top = 0
         Margins.Right = 0
@@ -170,7 +170,7 @@ object DelphiAIDevChatView: TDelphiAIDevChatView
         Left = 395
         Top = 3
         Width = 466
-        Height = 20
+        Height = 22
         Align = alRight
         BevelOuter = bvNone
         TabOrder = 1
@@ -179,7 +179,7 @@ object DelphiAIDevChatView: TDelphiAIDevChatView
           Left = 261
           Top = 0
           Width = 205
-          Height = 20
+          Height = 22
           Cursor = crHandPoint
           Hint = 'Use data from current unit in query'
           Margins.Top = 0
@@ -197,7 +197,7 @@ object DelphiAIDevChatView: TDelphiAIDevChatView
           Left = 149
           Top = 0
           Width = 109
-          Height = 20
+          Height = 22
           Cursor = crHandPoint
           Hint = 'Return only code without comments or explanations'
           Margins.Top = 0
@@ -212,16 +212,17 @@ object DelphiAIDevChatView: TDelphiAIDevChatView
         end
         object btnDefaultsQuestions: TButton
           AlignWithMargins = True
-          Left = 123
+          Left = 56
           Top = 0
-          Width = 23
-          Height = 20
+          Width = 90
+          Height = 22
           Cursor = crHandPoint
           Hint = 'Defaults Questions'
           Margins.Top = 0
           Margins.Right = 0
           Margins.Bottom = 0
           Align = alRight
+          Caption = 'Questions'
           ImageIndex = 4
           Images = ImageList1
           PopupMenu = pMenuQuestions

Src/Chat/DelphiAIDev.Chat.View.pas

@@ -28,7 +28,8 @@ interface
   DelphiAIDev.Consts,
   DelphiAIDev.Chat,
   DelphiAIDev.Settings,
-  DelphiAIDev.ModuleCreator;
+  DelphiAIDev.ModuleCreator,
+  DelphiAIDev.DefaultsQuestions.PopupMenu;
 
 type
   TDelphiAIDevChatView = class(TDockableForm)
@@ -100,8 +101,8 @@   TDelphiAIDevChatView = class(TDockableForm)
   private
     FChat: TDelphiAIDevChat;
     FSettings: TDelphiAIDevSettings;
-    LbtnUseCurrentUnitCodeWidth: Integer;
-    LbtnCodeOnlyWidth: Integer;
+    FbtnUseCurrentUnitCodeWidth: Integer;
+    FbtnCodeOnlyWidth: Integer;
     procedure ReadFromFile;
     procedure WriteToFile;
     procedure InitializeRichEditReturn;
@@ -118,6 +119,7 @@   TDelphiAIDevChatView = class(TDockableForm)
     procedure ConfScreenOnShow;
     procedure ChangeUseCurrentUnitCode;
     procedure ChangeCodeOnly;
+    procedure AddItemsPopupMenuQuestion;
   public
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -173,8 +175,8 @@ constructor TDelphiAIDevChatView.Create(AOwner: TComponent);
   FChat := TDelphiAIDevChat.Create;
   FSettings := FChat.Settings.GetInstance;
   pnWait.Visible := False;
-  LbtnUseCurrentUnitCodeWidth := btnUseCurrentUnitCode.Width;
-  LbtnCodeOnlyWidth := btnCodeOnly.Width;
+  FbtnUseCurrentUnitCodeWidth := btnUseCurrentUnitCode.Width;
+  FbtnCodeOnlyWidth := btnCodeOnly.Width;
 end;
 
 destructor TDelphiAIDevChatView.Destroy;
@@ -190,8 +192,23 @@ procedure TDelphiAIDevChatView.FormShow(Sender: TObject);
   Self.ReadFromFile;
   //Self.GetSelectedBlockForQuestion;
 
+  Self.AddItemsPopupMenuQuestion;
+
   TUtils.MemoFocusOnTheEnd(mmQuestion);
 end;
+
+procedure TDelphiAIDevChatView.AddItemsPopupMenuQuestion;
+var
+ LPopupMenu: TDelphiAIDevDefaultsQuestionsPopupMenu;
+begin
+  LPopupMenu := TDelphiAIDevDefaultsQuestionsPopupMenu.Create;
+  try
+    LPopupMenu.CreateMenus(pMenuQuestions);
+  finally
+    LPopupMenu.Free;
+  end;
+end;
+
 procedure TDelphiAIDevChatView.ConfScreenOnShow;
 begin
   TUtilsOTA.IDEThemingAll(TDelphiAIDevChatView, Self);
@@ -251,11 +268,11 @@ procedure TDelphiAIDevChatView.FormResize(Sender: TObject);
   if(Self.Width > 530)then
   begin
     btnUseCurrentUnitCode.Caption := CAPTION_UseCurrentUnitCode;
-    btnUseCurrentUnitCode.Width := LbtnUseCurrentUnitCodeWidth;
+    btnUseCurrentUnitCode.Width := FbtnUseCurrentUnitCodeWidth;
     btnUseCurrentUnitCode.ImageAlignment := TImageAlignment.iaLeft;
 
     btnCodeOnly.Caption := CAPTION_CodeOnly;
-    btnCodeOnly.Width := LbtnCodeOnlyWidth;
+    btnCodeOnly.Width := FbtnCodeOnlyWidth;
     btnCodeOnly.ImageAlignment := TImageAlignment.iaLeft;
   end
   else

Src/Consts/DelphiAIDev.Consts.pas

@@ -61,13 +61,14 @@   TConsts = class
     MENU_IDE_ABOUT_NAME = 'C4DDelphiAIDevAbout1';
     MENU_IDE_ABOUT_CAPTION = 'About Delphi AI Developer';
 
-    //UTIS
+    //UTILS
     STR_CMD_COMMANDS = 'CMD Commands';
     STR_MENU_MASTER_ONLY = 'Menu Master Only';
+
+    //SEPARATORS
+    SEPARATOR_P = '<|p|>';
   end;
 
 implementation
 
-
-
 end.

Src/DefaultsQuestions/DelphiAIDev.DefaultsQuestions.Fields.pas

@@ -16,6 +16,7 @@   TDelphiAIDevDefaultsQuestionsFields = class
     FVisible: Boolean;
     FCodeOnly: Boolean;
     FCaption: string;
+    FCreated: Boolean;
   public
     constructor Create;
     procedure Clear;
@@ -27,6 +28,7 @@   TDelphiAIDevDefaultsQuestionsFields = class
     property Order: Integer read FOrder write FOrder;
     property Visible: Boolean read FVisible write FVisible;
     property CodeOnly: Boolean read FCodeOnly write FCodeOnly;
+    property Created: Boolean read FCreated write FCreated;
   end;
 
 implementation
@@ -46,6 +48,7 @@ procedure TDelphiAIDevDefaultsQuestionsFields.Clear;
   FOrder := 0;
   FVisible := True;
   FCodeOnly := False;
+  FCreated := False;
 end;
 
 end.