From 7d3adeb6ca4acd897c2ef02cf00c2673abd925e7 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sat, 1 May 2004 23:56:59 +0000
Subject: [PATCH] + Published TDataset properties

---
 fcl/db/interbase/interbase.pp | 30 +++++++++++++++++++++++++++++-
 1 file changed, 29 insertions(+), 1 deletion(-)

diff --git a/fcl/db/interbase/interbase.pp b/fcl/db/interbase/interbase.pp
index 97261ff8cf..09103a1472 100644
--- a/fcl/db/interbase/interbase.pp
+++ b/fcl/db/interbase/interbase.pp
@@ -275,6 +275,31 @@ type
     property Database    : TIBDatabase read FDatabase write SetDatabase;
     { This property holds SQL command, which you want to execute }
     property SQL         : TStrings read FSQL write FSQL;
+    // Publish TDataset properties.
+    property Active;
+    property AutoCalcFields;
+    property BeforeOpen;
+    property AfterOpen;
+    property BeforeClose;
+    property AfterClose;
+    property BeforeInsert;
+    property AfterInsert;
+    property BeforeEdit;
+    property AfterEdit;
+    property BeforePost;
+    property AfterPost;
+    property BeforeCancel;
+    property AfterCancel;
+    property BeforeDelete;
+    property AfterDelete;
+    property BeforeScroll;
+    property AfterScroll;
+    property OnCalcFields;
+    property OnDeleteError;
+    property OnEditError;
+    property OnFilterRecord;
+    property OnNewRecord;
+    property OnPostError;
   end;
 
 { TIBStoredProc - not implemented - yet :-/}
@@ -1175,7 +1200,10 @@ end.
 
 {
   $Log$
-  Revision 1.11  2003-12-07 23:13:34  sg
+  Revision 1.12  2004-05-01 23:56:59  michael
+  + Published TDataset properties
+
+  Revision 1.11  2003/12/07 23:13:34  sg
   * Added Log entries to end of file
 
 }