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

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

Revision: 676
Author:   nandod
Date:     2006-05-18 11:18:40 -0700 (Thu, 18 May 2006)
ViewCVS:  http://svn.sourceforge.net/instantobjects?rev=676&view=rev

Log Message:
-----------
* added a virtual method to enable customization.

Modified Paths:
--------------
    trunk/Source/Core/InstantPresentation.pas
Modified: trunk/Source/Core/InstantPresentation.pas
===================================================================
--- trunk/Source/Core/InstantPresentation.pas	2006-05-16 15:52:33 UTC (rev 675)
+++ trunk/Source/Core/InstantPresentation.pas	2006-05-18 18:18:40 UTC (rev 676)
@@ -461,6 +461,7 @@
     procedure SetFiltered(Value: Boolean); override;
     procedure SetRecNo(Value: Integer); override;
     procedure Undo; virtual;
+    procedure UndoRecordBuffer(RecordBuffer: TInstantRecordBuffer); virtual;
     procedure UpdateCalcFields;
     procedure WriteProperty(Field: TField; Instance: TObject; Value: Variant); virtual;
     function BreakThorough( const FieldName : string ) : boolean; virtual;
@@ -4197,11 +4198,16 @@
   end;
   if Assigned(FRecordBuffer) then
   begin
-    FRecordBuffer.UndoChanges;
+    UndoRecordBuffer(FRecordBuffer);
     FreeAndNil(FRecordBuffer);
   end;
 end;
 
+procedure TInstantCustomExposer.UndoRecordBuffer(RecordBuffer: TInstantRecordBuffer);
+begin
+  RecordBuffer.UndoChanges;
+end;
+
 procedure TInstantCustomExposer.UpdateBookmark(var BM: TInstantBookmark);
 begin
   if (RecordCount = 0) or (BM.Instance = FRemovedObject) then