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

22
src/ce_profileviewer.pas
View File

@ -31,10 +31,6 @@ type
Splitter1: TSplitter; Splitter1: TSplitter;
procedure btnOpenClick(Sender: TObject); procedure btnOpenClick(Sender: TObject);
procedure btnRefreshClick(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 selPieSourceSelect(Sender: TObject);
procedure selPieSourceSelectionChange(Sender: TObject; User: boolean); procedure selPieSourceSelectionChange(Sender: TObject; User: boolean);
procedure Splitter1CanResize(Sender: TObject; var NewSize: Integer; procedure Splitter1CanResize(Sender: TObject; var NewSize: Integer;
@ -80,20 +76,6 @@ begin
end; end;
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); procedure TCEProfileViewerWidget.selPieSourceSelect(Sender: TObject);
begin begin
case selPieSource.ItemIndex of case selPieSource.ItemIndex of
@ -158,6 +140,8 @@ var
b: TBitmap; b: TBitmap;
i: integer; i: integer;
begin begin
list.SmallImages := nil;
ImageList1.BeginUpdate;
ImageList1.Clear; ImageList1.Clear;
b := TBitmap.Create; b := TBitmap.Create;
try try
@ -177,6 +161,8 @@ begin
end; end;
finally finally
b.Free; b.Free;
ImageList1.EndUpdate;
list.SmallImages := ImageList1;
end; end;
end; end;