bk/2024-07-02-0042

Author: Cesar4D

Src/DefaultsQuestions/DelphiAIDev.DefaultsQuestions.PopupMenu.pas

@@ -51,7 +51,7 @@ destructor TDelphiAIDevDefaultsQuestionsPopupMenu.Destroy;
 end;
 
 procedure TDelphiAIDevDefaultsQuestionsPopupMenu.CreateMenus(const APopupMenu: TPopupMenu);
-begin
+begin   TUtils.ShowMsg('CreateMenus');
   FPopupMenu := APopupMenu;
   FPopupMenu.Items.Clear;
 
@@ -205,8 +205,18 @@ procedure TDelphiAIDevDefaultsQuestionsPopupMenu.CreateItemCustomize;
 end;
 
 procedure TDelphiAIDevDefaultsQuestionsPopupMenu.CustomizeClick(Sender: TObject);
+var
+  LView: TDelphiAIDevDefaultsQuestionsView;
 begin
-  DelphiAIDev.DefaultsQuestions.View.DelphiAIDevDefaultsQuestionsViewShow;
+  LView := TDelphiAIDevDefaultsQuestionsView.Create(nil);
+  try
+    LView.ShowModal;
+
+    if LView.MadeChanges then
+      Self.CreateMenus(FPopupMenu);
+  finally
+    FreeAndNil(LView);
+  end;
 end;
 
 procedure TDelphiAIDevDefaultsQuestionsPopupMenu.ItemMenuClick(Sender: TObject);

Src/DefaultsQuestions/DelphiAIDev.DefaultsQuestions.View.dfm

@@ -14,7 +14,6 @@ object DelphiAIDevDefaultsQuestionsView: TDelphiAIDevDefaultsQuestionsView
   KeyPreview = True
   OldCreateOrder = False
   Position = poScreenCenter
-  OnClose = FormClose
   OnCreate = FormCreate
   OnKeyDown = FormKeyDown
   OnShow = FormShow

Src/DefaultsQuestions/DelphiAIDev.DefaultsQuestions.View.pas

@@ -31,7 +31,6 @@   TDelphiAIDevDefaultsQuestionsView = class(TForm)
     btnRemove: TButton;
     procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
-    procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure btnCloseClick(Sender: TObject);
     procedure btnSearchClick(Sender: TObject);
@@ -45,20 +44,15 @@   TDelphiAIDevDefaultsQuestionsView = class(TForm)
     procedure ListViewColumnClick(Sender: TObject; Column: TListColumn);
   private
     FUtilsListView: IDelphiAIDevUtilsListView;
-    FReloadPopupMenuChat: Boolean;
+    FMadeChanges: Boolean;
     procedure ReloadData;
     procedure ReloadDataInternal;
     procedure FillStatusBar(AItem: TListItem);
     procedure FillFieldsWithSelectedItem(var AFields: TDelphiAIDevDefaultsQuestionsFields);
   public
-
+    property MadeChanges: Boolean read FMadeChanges;
   end;
 
-var
-  DelphiAIDevDefaultsQuestionsView: TDelphiAIDevDefaultsQuestionsView;
-
-procedure DelphiAIDevDefaultsQuestionsViewShow;
-
 implementation
 
 uses
@@ -77,16 +71,6 @@ implementation
   C_INDEX_SUBITEM_GuidMenuMaster = 5;
   C_INDEX_SUBITEM_Question = 6;
 
-procedure DelphiAIDevDefaultsQuestionsViewShow;
-begin
-  DelphiAIDevDefaultsQuestionsView := TDelphiAIDevDefaultsQuestionsView.Create(nil);
-  try
-    DelphiAIDevDefaultsQuestionsView.ShowModal;
-  finally
-    FreeAndNil(DelphiAIDevDefaultsQuestionsView);
-  end;
-end;
-
 procedure TDelphiAIDevDefaultsQuestionsView.FormCreate(Sender: TObject);
 begin
   TUtilsOTA.IDEThemingAll(TDelphiAIDevDefaultsQuestionsView, Self);
@@ -99,7 +83,7 @@ procedure TDelphiAIDevDefaultsQuestionsView.FormShow(Sender: TObject);
 
   if(ListView.Items.Count > 0)then
     ListView.Items.Item[0].Selected := True;
-  FReloadPopupMenuChat := False;
+  FMadeChanges := False;
   edtSearch.SetFocus;
 
   FUtilsListView
@@ -109,14 +93,6 @@ procedure TDelphiAIDevDefaultsQuestionsView.FormShow(Sender: TObject);
     .CustomSort;
 end;
 
-procedure TDelphiAIDevDefaultsQuestionsView.FormClose(Sender: TObject; var Action: TCloseAction);
-begin
-  if(FReloadPopupMenuChat)then
-  begin
-    //
-  end;
-end;
-
 procedure TDelphiAIDevDefaultsQuestionsView.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
 begin
   case(Key)of
@@ -147,7 +123,6 @@ procedure TDelphiAIDevDefaultsQuestionsView.FormKeyDown(Sender: TObject; var Key
 procedure TDelphiAIDevDefaultsQuestionsView.btnCloseClick(Sender: TObject);
 begin
   Self.Close;
-  Self.ModalResult := mrCancel;
 end;
 
 procedure TDelphiAIDevDefaultsQuestionsView.edtSearchKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
@@ -312,7 +287,7 @@ procedure TDelphiAIDevDefaultsQuestionsView.btnAddClick(Sender: TObject);
       if(LView.ShowModal <> mrOk)then
         Exit;
 
-      FReloadPopupMenuChat := True;
+      FMadeChanges := True;
     finally
       LView.Free;
     end;
@@ -344,7 +319,7 @@ procedure TDelphiAIDevDefaultsQuestionsView.btnEditClick(Sender: TObject);
       if(LView.ShowModal <> mrOk)then
         Exit;
 
-      FReloadPopupMenuChat := True;
+      FMadeChanges := True;
     finally
       LView.Free;
     end;
@@ -376,7 +351,7 @@ procedure TDelphiAIDevDefaultsQuestionsView.btnRemoveClick(Sender: TObject);
     TDelphiAIDevDefaultsQuestionsModel.New.RemoveData(LGuid);
     Self.ReloadData;
   finally
-    FReloadPopupMenuChat := True;
+    FMadeChanges := True;
     Screen.Cursor := crDefault;
   end;
 end;

Src/MainMenu/DelphiAIDev.MainMenu.Clicks.pas

@@ -35,8 +35,15 @@ class procedure TDelphiAIDevIDEMainMenuClicks.ChatClick(Sender: TObject);
 end;
 
 class procedure TDelphiAIDevIDEMainMenuClicks.DefaultsQuestionsClick(Sender: TObject);
+var
+  LView: TDelphiAIDevDefaultsQuestionsView;
 begin
-  DelphiAIDev.DefaultsQuestions.View.DelphiAIDevDefaultsQuestionsViewShow;
+  LView := TDelphiAIDevDefaultsQuestionsView.Create(nil);
+  try
+    LView.ShowModal;
+  finally
+    FreeAndNil(LView);
+  end;
 end;
 
 class procedure TDelphiAIDevIDEMainMenuClicks.SettingsClick(Sender: TObject);