From d1dcefda18afe8688af1043f1e1028f7684582d8 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Mon, 6 Mar 2017 18:18:57 +0100
Subject: [PATCH] profile viewer, col w/ func name vever sorted

---
 src/ce_profileviewer.pas | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/src/ce_profileviewer.pas b/src/ce_profileviewer.pas
index c58a28ae..3be486ab 100644
--- a/src/ce_profileviewer.pas
+++ b/src/ce_profileviewer.pas
@@ -241,15 +241,13 @@ end;
 
 procedure TCEProfileViewerWidget.listCompare(Sender: TObject; item1, item2: TListItem; Data: Integer; var Compare: Integer);
 var
-  txt1: string = '';
-  txt2: string = '';
   i1, i2: qword;
   col: Integer;
 begin
   col := list.SortColumn;
   if col = 4 then
   begin
-    Compare := AnsiCompareStr(txt1, txt2);
+    Compare := AnsiCompareStr(item1.SubItems[3], item2.SubItems[3]);
   end
   else
   begin