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

profile viewer, add context menu allowing to copy markdown table

This commit is contained in:
Basile Burg 2018-03-03 09:10:02 +01:00
parent 9281c90c28
commit 7fcd05ed30
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/ce_controls.pas
View File

@ -830,12 +830,15 @@ var
s: string = ''; s: string = '';
c: integer; c: integer;
i: integer; i: integer;
f: integer = 0;
begin begin
while fList.Column[f].Caption = '' do
f += 1;
c := fList.Items.Count - 1; c := fList.Items.Count - 1;
for i:= 0 to fList.ColumnCount-1 do for i:= f to fList.ColumnCount-1 do
s += '| ' + fList.Column[i].Caption; s += '| ' + fList.Column[i].Caption;
s += LineEnding; s += LineEnding;
for i:= 0 to fList.ColumnCount-1 do for i:= f to fList.ColumnCount-1 do
s += '| ---'; s += '| ---';
s += LineEnding; s += LineEnding;
for i := 0 to c do for i := 0 to c do

3
src/ce_profileviewer.pas
View File

@ -9,7 +9,7 @@ uses
TATools, Forms, Controls, Graphics, Dialogs, ExtCtrls, Menus, ComCtrls, TATools, Forms, Controls, Graphics, Dialogs, ExtCtrls, Menus, ComCtrls,
StdCtrls, TALegend, math, StdCtrls, TALegend, math,
ce_widget, ce_common, ce_stringrange, ce_dsgncontrols, ce_ddemangle, ce_widget, ce_common, ce_stringrange, ce_dsgncontrols, ce_ddemangle,
ce_interfaces, ce_observer, ce_writableComponent; ce_interfaces, ce_observer, ce_writableComponent, ce_controls;
type type
@ -197,6 +197,7 @@ begin
updatePie; updatePie;
list.OnCompare:=@listCompare; list.OnCompare:=@listCompare;
selPieSourceSelect(nil); selPieSourceSelect(nil);
list.PopupMenu := TCEListViewCopyMenu.create(list);
end; end;
destructor TCEProfileViewerWidget.destroy; destructor TCEProfileViewerWidget.destroy;