From 2e1846829586a5ae0979fc1e77155eb5a39e46e2 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 27 Oct 2021 18:22:19 +0000
Subject: [PATCH] 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 |  2 +-
 components/tvplanit/source/vpbufds.pas  | 24 ++++++++++++++++++++++++
 2 files changed, 25 insertions(+), 1 deletion(-)

diff --git a/components/tvplanit/source/vpbaseds.pas b/components/tvplanit/source/vpbaseds.pas
index 6a6747dd1..8b29c9f26 100644
--- a/components/tvplanit/source/vpbaseds.pas
+++ b/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;
 
diff --git a/components/tvplanit/source/vpbufds.pas b/components/tvplanit/source/vpbufds.pas
index c132e2870..2a7a24230 100644
--- a/components/tvplanit/source/vpbufds.pas
+++ b/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
@@ -70,6 +82,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