|
From: <na...@us...> - 2010-10-11 14:08:15
|
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;
|