From e80efec72a1dcbc7e80f638b00895e0450748c5d Mon Sep 17 00:00:00 2001
From: dmitry <dmitry@lazarus-ide.org>
Date: Tue, 28 May 2019 12:29:46 +0000
Subject: [PATCH] cocoa: invalidating tableview data after changing sort column
 info. #35642

git-svn-id: trunk@61298 -
---
 lcl/interfaces/cocoa/cocoawscomctrls.pas | 23 +++++++++++++++++++++--
 1 file changed, 21 insertions(+), 2 deletions(-)

diff --git a/lcl/interfaces/cocoa/cocoawscomctrls.pas b/lcl/interfaces/cocoa/cocoawscomctrls.pas
index a708c2f3ee..364a96e2cf 100644
--- a/lcl/interfaces/cocoa/cocoawscomctrls.pas
+++ b/lcl/interfaces/cocoa/cocoawscomctrls.pas
@@ -196,9 +196,9 @@ type
     class procedure SetProperty(const ALV: TCustomListView; const AProp: TListViewProperty; const AIsSet: Boolean); override;
     class procedure SetProperties(const ALV: TCustomListView; const AProps: TListViewProperties); override;
     class procedure SetScrollBars(const ALV: TCustomListView; const AValue: TScrollStyle); override;
-    (*class procedure SetSort(const ALV: TCustomListView; const {%H-}AType: TSortType; const {%H-}AColumn: Integer;
+    class procedure SetSort(const ALV: TCustomListView; const {%H-}AType: TSortType; const {%H-}AColumn: Integer;
       const {%H-}ASortDirection: TSortDirection); override;
-    class procedure SetViewOrigin(const ALV: TCustomListView; const AValue: TPoint); override;
+    (*class procedure SetViewOrigin(const ALV: TCustomListView; const AValue: TPoint); override;
     class procedure SetViewStyle(const ALV: TCustomListView; const AValue: TViewStyle); override;*)
   end;
 
@@ -1469,6 +1469,25 @@ begin
   {$endif}
 end;
 
+class procedure TCocoaWSCustomListView.SetSort(const ALV: TCustomListView;
+  const AType: TSortType; const AColumn: Integer;
+  const ASortDirection: TSortDirection);
+var
+  lTableLV: TCocoaTableListView;
+  lNSColumn: NSTableColumn;
+begin
+  if not CheckColumnParams(lTableLV, lNSColumn, ALV, AColumn) then Exit;
+  lTableLV.reloadData();
+  { //todo:
+    lNSColumn.setSortDescriptorPrototype(
+    NSSortDescriptor.sortDescriptorWithKey_ascending_selector(
+      NSSTR('none'),
+      ASortDirection=sdAscending,
+      objcselector('none:')
+    )
+  );}
+end;
+
 { TCocoaWSProgressBar }
 
 class function TCocoaWSProgressBar.CreateHandle(const AWinControl: TWinControl;