From f553ecc198386041102578140b3f258cf71f0ad8 Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 18 Jun 2018 06:34:41 +0000
Subject: [PATCH] RxFPC:fix resotre DataLink.OnDataSetScrolled - tnx LearnMagic

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6505 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/trunk/rxdb/rxdbgrid.pas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/components/rx/trunk/rxdb/rxdbgrid.pas b/components/rx/trunk/rxdb/rxdbgrid.pas
index 836651047..11241fbe9 100644
--- a/components/rx/trunk/rxdb/rxdbgrid.pas
+++ b/components/rx/trunk/rxdb/rxdbgrid.pas
@@ -3830,12 +3830,16 @@ begin
     if DataSource.DataSet.OnPostError = @ErrorPo then
       DataSource.DataSet.OnPostError:=F_EventOnPostError;
 
+    if Datalink.OnDataSetScrolled = @OnDataSetScrolled then
+      Datalink.OnDataSetScrolled:=FSaveOnDataSetScrolled;
+
     F_EventOnPostError:=nil;
     F_EventOnFilterRec:=nil;
     F_EventOnBeforeDelete:=nil;
     F_EventOnBeforePost:=nil;
     F_EventOnDeleteError:=nil;
     F_EventOnPostError:=nil;
+    FSaveOnDataSetScrolled:=nil;
   end;
 end;