Hallo Yheeky,
eine Antwort habe ich auch nicht, aber das:
Code:
procedure TForm1.SmartListView1ColumnClick(Sender: TObject;
Column: TListColumn);
begin
if Column.Index = 1 then
LvSortStyle := cssAlphaNum;
if Column.Index = 2 then
LvSortStyle := cssDateTime;
if Column.Index = 3 then
LvSortStyle := cssDateTime;
if Column.Index = 4 then
LvSortStyle := cssAlphaNum;
if Column.Index = 5 then
LvSortStyle := cssAlphaNum;
SmartListView1.CustomSort(@CustomSortProc, Column.Index -1);
end;
Könnte man eleganter mit case lösen.