[Instantobjects-cvscommit] Source/Core InstantPresentation.pas,1.18,1.19

[Joao M. <jcm...@us...>]

Update of /cvsroot/instantobjects/Source/Core
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20827/Core

Modified Files:
	InstantPresentation.pas 
Log Message:
IsChanged property implementation for TInstantCustomExposer and decendants.

Index: InstantPresentation.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPresentation.pas,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** InstantPresentation.pas	5 Jun 2005 20:30:00 -0000	1.18
--- InstantPresentation.pas	13 Jul 2005 23:18:29 -0000	1.19
***************
*** 196,200 ****
      FFieldOptions: TInstantFieldOptions;
      FFilterBuffer: PChar;
-     FIsChanged: Boolean;
      FIsOpen: Boolean;
      FLimited: Boolean;
--- 196,199 ----
***************
*** 307,310 ****
--- 306,310 ----
      function GetCurrentObject: TObject; virtual;
      function GetFieldOffset(const Field: TField): Integer;
+     function GetIsChanged: Boolean; virtual;
      function GetRecNo: Integer; override;
      function GetRecord(Buffer: PChar; GetMode: TGetMode;
***************
*** 416,420 ****
      property CurrentObject: TObject read GetCurrentObject;
      property HasSubject: Boolean read GetHasSubject;
!     property IsChanged: Boolean read FIsChanged;
      property ObjectCount: Integer read GetObjectCount;
      property Objects[Index: Integer]: TObject read GetObjects;
--- 416,420 ----
      property CurrentObject: TObject read GetCurrentObject;
      property HasSubject: Boolean read GetHasSubject;
!     property IsChanged: Boolean read GetIsChanged;
      property ObjectCount: Integer read GetObjectCount;
      property Objects[Index: Integer]: TObject read GetObjects;
***************
*** 495,498 ****
--- 495,499 ----
    protected
      procedure DataEvent(Event: TDataEvent; Info: Longint); override;
+     function GetIsChanged: Boolean; override;           
      function GetSubject: TObject; override;
      procedure MasterChanged(Sender: TObject);
***************
*** 567,570 ****
--- 568,572 ----
      function CanAutoOpen: Boolean;
      procedure DefineProperties(Filer: TFiler); override;
+     function GetIsChanged: Boolean; override;
      function GetSubject: TObject; override;
      function HasCommand: Boolean;
***************
*** 2258,2261 ****
--- 2260,2268 ----
  end;
  
+ function TInstantCustomExposer.GetIsChanged: Boolean;
+ begin
+   Result := False;
+ end;
+ 
  function TInstantCustomExposer.GetLimited: Boolean;
  begin
***************
*** 2624,2627 ****
--- 2631,2636 ----
      InternalRemoveObject(FNewObject);
    end;
+   if (State = dsEdit) and (CurrentObject is TInstantObject) then
+     TInstantObject(CurrentObject).IsChanged := False;
    if ObjectCount = 0 then
      ClearRecord(ActiveBuffer);
***************
*** 3654,3657 ****
--- 3663,3674 ----
  end;
  
+ function TInstantExposer.GetIsChanged: Boolean;
+ begin
+   if HasSubject and (Subject is TInstantObject) then
+     Result := TInstantObject(Subject).IsChanged
+   else
+     Result := False;
+ end;
+ 
  function TInstantExposer.GetSubject: TObject;
  begin
***************
*** 3930,3933 ****
--- 3947,3965 ----
  end;
  
+ function TInstantSelector.GetIsChanged: Boolean;
+ var
+   I: Integer;
+ begin
+   Result := False;
+   for I := 0 to Pred(Query.ObjectCount) do
+     if Query.Objects[I] is TInstantObject then
+     begin
+       Result := TInstantObject(Query.Objects[I]).IsChanged;
+       if Result then
+         Break;
+     end;
+   { TODO : Implement check of deleted records after patch bug #1232576 }
+ end;
+ 
  function TInstantSelector.GetSubject: TObject;
  begin