[JVCL-Checkins] SF.net SVN: jvcl: [11334] trunk/jvcl/run/JvMemoryDataset.pas

[<ob...@us...>]

Revision: 11334
          http://svn.sourceforge.net/jvcl/?rev=11334&view=rev
Author:   obones
Date:     2007-06-19 01:13:52 -0700 (Tue, 19 Jun 2007)

Log Message:
-----------
Mantis 3973: Call BeforeScroll and AfterScroll from SetRecNo

Modified Paths:
--------------
    trunk/jvcl/run/JvMemoryDataset.pas

Modified: trunk/jvcl/run/JvMemoryDataset.pas
===================================================================
--- trunk/jvcl/run/JvMemoryDataset.pas	2007-06-19 08:06:43 UTC (rev 11333)
+++ trunk/jvcl/run/JvMemoryDataset.pas	2007-06-19 08:13:52 UTC (rev 11334)
@@ -1542,8 +1542,10 @@
 begin
   if (Value > 0) and (Value <= FRecords.Count) then
   begin
+    DoBeforeScroll;
     FRecordPos := Value - 1;
     Resync([]);
+    DoAfterScroll;
   end;
 end;
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.