forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

TListViewCopyMenu support for custom items

This commit is contained in:
Basile Burg 2021-09-15 03:18:55 +02:00
parent 9e806584b3
commit 0fd5ca5461
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/u_controls.pas
View File

@ -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.