diff --git a/src/ce_profileviewer.lfm b/src/ce_profileviewer.lfm
index 0c35c091..aeeb80a4 100644
--- a/src/ce_profileviewer.lfm
+++ b/src/ce_profileviewer.lfm
@@ -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'
diff --git a/src/ce_profileviewer.pas b/src/ce_profileviewer.pas
index 0cd4c4a8..7e0a5ff3 100644
--- a/src/ce_profileviewer.pas
+++ b/src/ce_profileviewer.pas
@@ -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;