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

profile viewer, col w/ func name vever sorted

This commit is contained in:
Basile Burg 2017-03-06 18:18:57 +01:00
parent 97c5d210e8
commit d1dcefda18
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ce_profileviewer.pas
View File

@ -241,15 +241,13 @@ end;
procedure TCEProfileViewerWidget.listCompare(Sender: TObject; item1, item2: TListItem; Data: Integer; var Compare: Integer); procedure TCEProfileViewerWidget.listCompare(Sender: TObject; item1, item2: TListItem; Data: Integer; var Compare: Integer);
var var
txt1: string = '';
txt2: string = '';
i1, i2: qword; i1, i2: qword;
col: Integer; col: Integer;
begin begin
col := list.SortColumn; col := list.SortColumn;
if col = 4 then if col = 4 then
begin begin
Compare := AnsiCompareStr(txt1, txt2); Compare := AnsiCompareStr(item1.SubItems[3], item2.SubItems[3]);
end end
else else
begin begin