Home Explore Help
Sign In
pascal
/
fpc
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* SetRecNo must call DoAfterScroll. Fix for issue #39429

Michaël Van Canneyt 3 years ago
parent
1023a6ff6b
commit
d4034afda7
1 changed files with 1 additions and 0 deletions
Unified View Show Diff Stats
  1. 1 0
      packages/fcl-db/src/memds/memds.pp

+ 1 - 0
packages/fcl-db/src/memds/memds.pp
View File 

@@ -1089,6 +1089,7 @@ begin
 
     begin
 
     begin
 
     FCurrRecNo:=Value-1;
 
     FCurrRecNo:=Value-1;
 
     Resync([]);
 
     Resync([]);
 
+    DoAfterScroll;
 
     end;
 
     end;
 
 end;
 
 end;