bk/2024-07-02-0010

Author: Cesar4D

Src/Chat/DelphiAIDev.Chat.View.pas

@@ -193,12 +193,12 @@ constructor TDelphiAIDevChatView.Create(AOwner: TComponent);
   FQuestionOnShow := '';
 
   Self.ConfScreenOnCreate;
-  Self.FillMemoReturnWithFile; ////
+  Self.FillMemoReturnWithFile;
 end;
 
 destructor TDelphiAIDevChatView.Destroy;
 begin
-  Self.SaveMemoReturnInFile; ////
+  Self.SaveMemoReturnInFile;
   FPopupMenuQuestions.Free;
   FChat.Free;
   inherited;
@@ -208,11 +208,8 @@ procedure TDelphiAIDevChatView.FormShow(Sender: TObject);
 begin
   Self.ConfScreenOnShow;
   Self.InitializeRichEditReturn;
-  ////Self.FillMemoReturnWithFile;
   Self.ProcessWordWrap;
-
   Self.AddItemsPopupMenuQuestion;
-
   TUtils.MemoFocusOnTheEnd(mmQuestion);
 end;
 
@@ -297,7 +294,6 @@ procedure TDelphiAIDevChatView.mmQuestionKeyUp(Sender: TObject; var Key: Word; S
 
 procedure TDelphiAIDevChatView.FormClose(Sender: TObject; var Action: TCloseAction);
 begin
-  ////Self.SaveMemoReturnInFile;
   Self.WaitingFormOFF;
 end;
 
@@ -731,7 +727,6 @@ procedure TDelphiAIDevChatView.btnMoreActionsClick(Sender: TObject);
 
 procedure TDelphiAIDevChatView.InitializeRichEditReturn;
 begin
-  //mmReturn.Lines.Clear;
   mmReturn.SelAttributes.Name := 'Courier New';
   mmReturn.SelAttributes.Size := 10;
 

Src/DefaultsQuestions/DelphiAIDev.DefaultsQuestions.PopupMenu.pas

@@ -11,7 +11,8 @@ interface
   DelphiAIDev.Types,
   DelphiAIDev.DefaultsQuestions.Fields,
   DelphiAIDev.DefaultsQuestions.Model,
-  DelphiAIDev.Utils.ABMenuAction;
+  DelphiAIDev.Utils.ABMenuAction,
+  DelphiAIDev.DefaultsQuestions.View;
 
 type
   TDelphiAIDevDefaultsQuestionsPopupMenu = class
@@ -25,6 +26,8 @@   TDelphiAIDevDefaultsQuestionsPopupMenu = class
       const AFields: TDelphiAIDevDefaultsQuestionsFields): TMenuItem;
     procedure ItemMenuClick(Sender: TObject);
     procedure ClickFromString(const AStringClick: String);
+    procedure CreateItemCustomize;
+    procedure CustomizeClick(Sender: TObject);
   public
     function ProcessClickInItem(AProc: TProc<Boolean, string>): TDelphiAIDevDefaultsQuestionsPopupMenu;
     procedure CreateMenus(const APopupMenu: TPopupMenu);
@@ -52,6 +55,8 @@ procedure TDelphiAIDevDefaultsQuestionsPopupMenu.CreateMenus(const APopupMenu: T
   FPopupMenu := APopupMenu;
   FPopupMenu.Items.Clear;
 
+  Self.CreateItemCustomize;
+
   FList.Clear;
 
   TDelphiAIDevDefaultsQuestionsModel.New.ReadData(
@@ -79,7 +84,6 @@ procedure TDelphiAIDevDefaultsQuestionsPopupMenu.CreateMenus(const APopupMenu: T
       LFields.CodeOnly := AFields.CodeOnly;
 
       FList.Add(LFields);
-
     end
   );
 
@@ -172,7 +176,7 @@ function TDelphiAIDevDefaultsQuestionsPopupMenu.CreateSubMenu(const AMenuItemPar
   else
     LMenuItem := TMenuItem.Create(FPopupMenu);
 
-  LMenuItem.Name := 'DelphiAIDevItemMenu' + TUtils.IncInt(FCont).ToString;
+  LMenuItem.Name := 'C4DDefaultsQuestionsItemMenu' + TUtils.IncInt(FCont).ToString;
   LMenuItem.Caption := AFields.Caption;
   LMenuItem.OnClick := Self.ItemMenuClick;
   LMenuItem.Hint := AFields.CodeOnly.ToString(TUseBoolStrs.True)
@@ -187,6 +191,24 @@ function TDelphiAIDevDefaultsQuestionsPopupMenu.CreateSubMenu(const AMenuItemPar
   Result := LMenuItem;
 end;
 
+procedure TDelphiAIDevDefaultsQuestionsPopupMenu.CreateItemCustomize;
+var
+  LMenuItem: TMenuItem;
+begin
+  LMenuItem := TMenuItem.Create(FPopupMenu);
+  LMenuItem.Name := 'C4DDefaultsQuestionsCustomize1';
+  LMenuItem.Caption := 'Customize...';
+  LMenuItem.OnClick := Self.CustomizeClick;
+  LMenuItem.Hint := 'Customize Questions';
+  LMenuItem.ImageIndex := -1;
+  FPopupMenu.Items.Add(LMenuItem);
+end;
+
+procedure TDelphiAIDevDefaultsQuestionsPopupMenu.CustomizeClick(Sender: TObject);
+begin
+  DelphiAIDev.DefaultsQuestions.View.DelphiAIDevDefaultsQuestionsViewShow;
+end;
+
 procedure TDelphiAIDevDefaultsQuestionsPopupMenu.ItemMenuClick(Sender: TObject);
 var
   LMenuItem: TMenuItem;