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

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

Revision: 635
Author:   nandod
Date:     2006-02-28 02:43:34 -0800 (Tue, 28 Feb 2006)
ViewCVS:  http://svn.sourceforge.net/instantobjects?rev=635&view=rev

Log Message:
-----------
+ Fixed Bug # 1439851 - Required fields not checked in Exposers

Modified Paths:
--------------
    trunk/Source/Core/InstantPresentation.pas
Modified: trunk/Source/Core/InstantPresentation.pas
===================================================================
--- trunk/Source/Core/InstantPresentation.pas	2006-02-28 09:17:36 UTC (rev 634)
+++ trunk/Source/Core/InstantPresentation.pas	2006-02-28 10:43:34 UTC (rev 635)
@@ -3363,6 +3363,9 @@
   AObject: TObject;
   NewPos: Integer;
 begin
+{$IFDEF D7+}
+  inherited;
+{$ENDIF}
   AObject := CurrentObject;
   CopyBufferToObject(ActiveBuffer, AObject);
   if InContent then