pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC:fix resotre DataLink.OnDataSetScrolled - tnx LearnMagic

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6505 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2018-06-18 06:34:41 +00:00
parent b1277daa69
commit f553ecc198
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/rx/trunk/rxdb/rxdbgrid.pas
View File

@@ -3830,12 +3830,16 @@ begin
if DataSource.DataSet.OnPostError = @ErrorPo then if DataSource.DataSet.OnPostError = @ErrorPo then
DataSource.DataSet.OnPostError:=F_EventOnPostError; DataSource.DataSet.OnPostError:=F_EventOnPostError;
if Datalink.OnDataSetScrolled = @OnDataSetScrolled then
Datalink.OnDataSetScrolled:=FSaveOnDataSetScrolled;
F_EventOnPostError:=nil; F_EventOnPostError:=nil;
F_EventOnFilterRec:=nil; F_EventOnFilterRec:=nil;
F_EventOnBeforeDelete:=nil; F_EventOnBeforeDelete:=nil;
F_EventOnBeforePost:=nil; F_EventOnBeforePost:=nil;
F_EventOnDeleteError:=nil; F_EventOnDeleteError:=nil;
F_EventOnPostError:=nil; F_EventOnPostError:=nil;
FSaveOnDataSetScrolled:=nil;
end; end;
end; end;