Update DelphiAIDev.DefaultsQuestions.PopupMenu.pas

Author: Cesar4D

Src/DefaultsQuestions/DelphiAIDev.DefaultsQuestions.PopupMenu.pas

@@ -28,6 +28,7 @@   TDelphiAIDevDefaultsQuestionsPopupMenu = class
     procedure ClickFromString(const AStringClick: String);
     procedure CreateItemCustomize;
     procedure CustomizeClick(Sender: TObject);
+    procedure AddSeparator;
   public
     function ProcessClickInItem(AProc: TProc<Boolean, string>): TDelphiAIDevDefaultsQuestionsPopupMenu;
     procedure CreateMenus(const APopupMenu: TPopupMenu);
@@ -121,6 +122,9 @@ procedure TDelphiAIDevDefaultsQuestionsPopupMenu.CreateMenuItemsList;
   if FList.Count <= 0 then
     Exit;
 
+  //SEPARATOR AFTER ITEM CUSTOMIZE
+  Self.AddSeparator;
+
   LListOrder := TList<Integer>.Create;
   try
     for LItem in FList do
@@ -255,4 +259,17 @@ procedure TDelphiAIDevDefaultsQuestionsPopupMenu.ClickFromString(const AStringCl
     FProcessClickInItem(StrToBoolDef(LCodeOnly, False), LQuestion);
 end;
 
+procedure TDelphiAIDevDefaultsQuestionsPopupMenu.AddSeparator;
+var
+  LMenuItem: TMenuItem;
+begin
+  LMenuItem := TMenuItem.Create(FPopupMenu);
+  LMenuItem.Name := 'C4DDefaultsQuestionsSeparator' + TUtils.IncInt(FCont).ToString;
+  LMenuItem.Caption := '-';
+  LMenuItem.OnClick := nil;
+  LMenuItem.Hint := '';
+  LMenuItem.ImageIndex := -1;
+  FPopupMenu.Items.Add(LMenuItem);
+end;
+
 end.