* Fix visibility of methods

git-svn-id: trunk@14023 -

packages/fcl-db/src/sqlite/customsqliteds.pas

@@ -161,7 +161,6 @@ type
     //TDataSet overrides
     function AllocRecordBuffer: PChar; override;
     procedure ClearCalcFields(Buffer: PChar); override;
-    function CreateBlobStream(Field: TField; Mode: TBlobStreamMode): TStream; override;
     procedure DoBeforeClose; override;
     procedure DoAfterInsert; override;
     procedure DoBeforeInsert; override;
@@ -191,19 +190,20 @@ type
     procedure SetExpectedAppends(AValue: Integer);
     procedure SetExpectedUpdates(AValue: Integer);
     procedure SetExpectedDeletes(AValue: Integer);
-    procedure SetFieldData(Field: TField; Buffer: Pointer); override;
-    procedure SetFieldData(Field: TField; Buffer: Pointer; NativeFormat: Boolean); override;
     procedure SetRecNo(Value: Integer); override;
   public
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
     function BookmarkValid(ABookmark: TBookmark): Boolean; override;
     function CompareBookmarks(Bookmark1, Bookmark2: TBookmark): Longint; override;
+    function CreateBlobStream(Field: TField; Mode: TBlobStreamMode): TStream; override;
     function GetFieldData(Field: TField; Buffer: Pointer): Boolean; override;
     function GetFieldData(Field: TField; Buffer: Pointer; NativeFormat: Boolean): Boolean; override;
     function Locate(const KeyFields: String; const KeyValues: Variant; LocateOptions: TLocateOptions) : Boolean; override;
     function LocateNext(const KeyFields: String; const KeyValues: Variant; LocateOptions: TLocateOptions) : Boolean;
     function Lookup(const KeyFields: String; const KeyValues: Variant; const ResultFields: String): Variant; override;
+    procedure SetFieldData(Field: TField; Buffer: Pointer); override;
+    procedure SetFieldData(Field: TField; Buffer: Pointer; NativeFormat: Boolean); override;
     // Additional procedures
     function ApplyUpdates: Boolean;
     procedure ClearUpdates(RecordStates: TRecordStateSet = [rsAdded, rsDeleted, rsUpdated]);

packages/fcl-db/src/sqlite/sqlite3ds.pas

@@ -44,14 +44,13 @@ type
   { TSqlite3Dataset }
 
   TSqlite3Dataset = class(TCustomSqliteDataset)
-  private
-    function SqliteExec(ASQL: PChar; ACallback: TSqliteCdeclCallback; Data: Pointer): Integer; override;
-    function InternalGetHandle: Pointer; override;
-    procedure InternalCloseHandle; override;
-    procedure BuildLinkedList; override;
   protected
+    procedure BuildLinkedList; override;
     function GetRowsAffected:Integer; override;
+    procedure InternalCloseHandle; override;
+    function InternalGetHandle: Pointer; override;
     procedure RetrieveFieldDefs; override;
+    function SqliteExec(ASQL: PChar; ACallback: TSqliteCdeclCallback; Data: Pointer): Integer; override;
   public
     procedure ExecuteDirect(const ASQL: String); override;
     function QuickQuery(const ASQL: String; const AStrList: TStrings; FillObjects: Boolean): String; override;

packages/fcl-db/src/sqlite/sqliteds.pas

@@ -45,14 +45,14 @@ type
 
   TSqliteDataset = class(TCustomSqliteDataset)
   private
-    function SqliteExec(ASQL: PChar; ACallback: TSqliteCdeclCallback; Data: Pointer): Integer; override;
-    function InternalGetHandle: Pointer; override;
     function GetSqliteEncoding: String;
-    procedure InternalCloseHandle; override;
-    procedure BuildLinkedList; override;
   protected
-    procedure RetrieveFieldDefs; override;
+    procedure BuildLinkedList; override;
     function GetRowsAffected:Integer; override;
+    function InternalGetHandle: Pointer; override;
+    procedure InternalCloseHandle; override;
+    procedure RetrieveFieldDefs; override;
+    function SqliteExec(ASQL: PChar; ACallback: TSqliteCdeclCallback; Data: Pointer): Integer; override;
   public
     procedure ExecuteDirect(const ASQL: String); override;
     function QuickQuery(const ASQL: String; const AStrList: TStrings; FillObjects: Boolean): String; override;