From 0fd5ca54619d61474f689fd43dfca91a72bc5599 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Wed, 15 Sep 2021 03:18:55 +0200
Subject: [PATCH] TListViewCopyMenu support for custom items

---
 src/u_controls.pas | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/src/u_controls.pas b/src/u_controls.pas
index 2c64eae6..c20f8844 100644
--- a/src/u_controls.pas
+++ b/src/u_controls.pas
@@ -148,7 +148,9 @@ type
     procedure copyAllAsList(sender: TObject);
     procedure copyAllAsMarkdown(sender: TObject);
   public
+    class function fixedItemCount(): integer; static;
     constructor create(aOwner: TComponent); override;
+    procedure addAdditionalItem(item: TMenuItem);
   end;
 
 implementation
@@ -851,5 +853,17 @@ begin
   clipboard.AsText := s;
 end;
 
+class function TListViewCopyMenu.fixedItemCount(): integer;
+begin
+  result := 7;
+end;
+
+procedure TListViewCopyMenu.addAdditionalItem(item: TMenuItem);
+begin
+  if Items.Count = fixedItemCount then
+    Items.AddSeparator;
+  items.Add(item);
+end;
+
 end.