Merge for 2.6.2, couple of methods made virtual.

--- Merging r23106 into '.':
U    packages/fcl-db/src/base/db.pas

# revisions: 23106
r23106 | michael | 2012-12-03 09:57:50 +0100 (Mon, 03 Dec 2012) | 1 line
Changed paths:
   M /trunk/packages/fcl-db/src/base/db.pas

* Make find* methods virtual (bug ID 23422)

git-svn-id: branches/fixes_2_6@23212 -

packages/fcl-db/src/base/db.pas

@@ -1580,10 +1580,10 @@ type
     procedure EnableControls;
     function FieldByName(const FieldName: string): TField;
     function FindField(const FieldName: string): TField;
-    function FindFirst: Boolean;
-    function FindLast: Boolean;
-    function FindNext: Boolean;
-    function FindPrior: Boolean;
+    function FindFirst: Boolean; virtual;
+    function FindLast: Boolean; virtual;
+    function FindNext: Boolean; virtual;
+    function FindPrior: Boolean; virtual;
     procedure First;
     procedure FreeBookmark(ABookmark: TBookmark); virtual;
     function GetBookmark: TBookmark; virtual;