[Instantobjects-cvscommit] SF.net SVN: instantobjects:[931] trunk/Source/Core/InstantPersistence.pas

[<na...@us...>]

Revision: 931
          http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=931&view=rev
Author:   nandod
Date:     2010-10-11 14:08:09 +0000 (Mon, 11 Oct 2010)

Log Message:
-----------
+ OnBeforeDispose event.

Modified Paths:
--------------
    trunk/Source/Core/InstantPersistence.pas

Modified: trunk/Source/Core/InstantPersistence.pas
===================================================================
--- trunk/Source/Core/InstantPersistence.pas	2010-10-04 13:23:21 UTC (rev 930)
+++ trunk/Source/Core/InstantPersistence.pas	2010-10-11 14:08:09 UTC (rev 931)
@@ -785,6 +785,7 @@
     FOnBeforeContentChange: TInstantContentChangeEvent;
     FOnChange: TInstantNotifyEvent;
     FOnError: TInstantErrorEvent;
+    FOnBeforeDispose: TInstantNotifyEvent;
     procedure ClearOwnerContext;
     procedure CreateAttributes;
     procedure DestroyAttributes;
@@ -972,6 +973,8 @@
     property RefBy[Index: Integer]: TInstantComplex read GetRefBy;
     property RefByCount: Integer read GetRefByCount;
     property UpdateCount: Integer read GetUpdateCount;
+    property OnBeforeDispose: TInstantNotifyEvent
+      read FOnBeforeDispose write FOnBeforeDispose;
     property OnAfterContentChange: TInstantContentChangeEvent
       read FOnAfterContentChange write FOnAfterContentChange;
     property OnAttributeChanged: TInstantAttributeChangeEvent
@@ -5978,6 +5981,8 @@
 procedure TInstantObject.DoBeforeDispose;
 begin
   BeforeDispose;
+  if Assigned(FOnBeforeDispose) then
+    FOnBeforeDispose(Self);
 end;
 
 procedure TInstantObject.DoBeforeRefresh;