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

prof viewer, win fix, icons only shown once

This commit is contained in:
Basile Burg 2017-03-09 20:54:05 +01:00
parent 1303570211
commit 4d81fceaa6
2 changed files with 14 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/ce_profileviewer.lfm
View File

@ -28,34 +28,36 @@ inherited CEProfileViewerWidget: TCEProfileViewerWidget
AutoSize = True
MaxWidth = 18
MinWidth = 18
Width = 18
Width = 0
end
item
AutoSize = True
Caption = 'Num calls'
Width = 71
Width = 68
end
item
AutoSize = True
Caption = 'Tree time'
Width = 72
Width = 65
end
item
AutoSize = True
Caption = 'Func time'
Width = 55
Width = 68
end
item
AutoSize = True
Caption = 'Per call'
Width = 62
Width = 53
end
item
AutoSize = True
Caption = 'function'
Width = 261
Width = 60
end>
HideSelection = False
ReadOnly = True
RowSelect = True
ScrollBars = ssAutoBoth
SmallImages = ImageList1
SortType = stText
@ -98,7 +100,6 @@ inherited CEProfileViewerWidget: TCEProfileViewerWidget
'TAChart'
)
Toolset = ChartToolset1
OnDrawLegend = pieDrawLegend
Align = alClient
BorderSpacing.Around = 2
object pieSeries: TPieSeries
@ -156,12 +157,12 @@ inherited CEProfileViewerWidget: TCEProfileViewerWidget
end
object selPieSource: TComboBox[3]
Left = 70
Height = 28
Height = 23
Hint = 'select the pie representation'
Top = 0
Width = 154
BorderSpacing.InnerBorder = 3
ItemHeight = 0
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'Number of calls'

22
src/ce_profileviewer.pas
View File

@ -31,10 +31,6 @@ type
Splitter1: TSplitter;
procedure btnOpenClick(Sender: TObject);
procedure btnRefreshClick(Sender: TObject);
procedure pieDrawLegend(ASender: TChart; ADrawer: IChartDrawer;
ALegendItems: TChartLegendItems; ALegendItemSize: TPoint;
const ALegendRect: TRect; AColCount, ARowCount: Integer);
procedure pieSeriesGetMark(out AFormattedMark: String; AIndex: Integer);
procedure selPieSourceSelect(Sender: TObject);
procedure selPieSourceSelectionChange(Sender: TObject; User: boolean);
procedure Splitter1CanResize(Sender: TObject; var NewSize: Integer;
@ -80,20 +76,6 @@ begin
end;
end;
procedure TCEProfileViewerWidget.pieDrawLegend(ASender: TChart;
ADrawer: IChartDrawer; ALegendItems: TChartLegendItems;
ALegendItemSize: TPoint; const ALegendRect: TRect; AColCount,
ARowCount: Integer);
begin
end;
procedure TCEProfileViewerWidget.pieSeriesGetMark(out AFormattedMark: String;
AIndex: Integer);
begin
end;
procedure TCEProfileViewerWidget.selPieSourceSelect(Sender: TObject);
begin
case selPieSource.ItemIndex of
@ -158,6 +140,8 @@ var
b: TBitmap;
i: integer;
begin
list.SmallImages := nil;
ImageList1.BeginUpdate;
ImageList1.Clear;
b := TBitmap.Create;
try
@ -177,6 +161,8 @@ begin
end;
finally
b.Free;
ImageList1.EndUpdate;
list.SmallImages := ImageList1;
end;
end;