TvPlanIt: Remove warning about abstract method in TBufDataset.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8133 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/tvplanit/source/vpbaseds.pas

@@ -1538,7 +1538,7 @@ procedure TVpControlLink.SetCityStateZipFormat(const Value: String);
 begin
   if FCityStateZipFormat <> Value then begin
     FCityStateZipFormat := Value;
-    Notify(self, neInvalidate, 0);
+    Notify(self, neInvalidate, 0{%H-});
   end;
 end;
 

components/tvplanit/source/vpbufds.pas

@@ -2,6 +2,10 @@
 
 {$I vp.inc}
 
+{ TBufDataset of FPC 3.2.0 and older has an abstract method, LoadBlobIntoBuffer,
+  which creates a compiler warning }
+{$DEFINE FIX_BUFDATASET}  
+
 unit VpBufDS;
 
 interface
@@ -10,6 +14,14 @@ uses
   SysUtils, Classes, db, BufDataset,
   VpDBDS;
 
+{$IFDEF FIX_BUFDATASET}
+type
+  TBufDataset = class(BufDataset.TBufDataset)
+    protected
+      procedure LoadBlobIntoBuffer({%H-}FieldDef: TFieldDef;{%H-}ABlobBuf: PBufBlobField); override;
+    end;
+{$ENDIF}
+
 type
   TVpBufDSDataStore = class(TVpCustomDBDataStore)
   private
@@ -71,6 +83,18 @@ uses
 const
   TABLE_EXT = '.db';
   
+
+  { TBufDataset }
+
+procedure TBufDataset.LoadBlobIntoBuffer(FieldDef: TFieldDef; ABlobBuf: PBufBlobField); 
+begin
+  // We just want to avoid the compiler warning.
+  // TVpBufDSDataStore does not use BLOBs anyway.
+end;
+
+
+{ TVpBufDSDatastore }
+
 constructor TVpBufDSDatastore.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);