From a814cbd9684763ec9a25af6afd3480bfeb9b05bb Mon Sep 17 00:00:00 2001
From: rich2014 <rich2014.git@outlook.com>
Date: Sun, 22 Sep 2024 22:43:02 +0800
Subject: [PATCH] Cocoa: fix the issue that TListView.OnChange() not fired,
 issue #41151

---
 lcl/interfaces/cocoa/cocoatables.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/interfaces/cocoa/cocoatables.pas b/lcl/interfaces/cocoa/cocoatables.pas
index 5329d4cf16..0f0e8767cc 100644
--- a/lcl/interfaces/cocoa/cocoatables.pas
+++ b/lcl/interfaces/cocoa/cocoatables.pas
@@ -713,9 +713,9 @@ begin
   end;
 
   if NOT selection.isEqualToIndexSet(self.selectedRowIndexes) then begin
+    self.selectRowIndexesByProgram( selection );
     if Assigned(_processor) then
       _processor.onSelectOneItem( self, selection );
-    self.selectRowIndexesByProgram( selection );
   end;
 
   selection.release;