[Instantobjects-cvscommit] Source/Core InstantPersistence.pas,1.6,1.7 InstantPresentation.pas,1.3,1.4

[Carlo B. <car...@us...>]

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

Modified Files:
	InstantPersistence.pas InstantPresentation.pas 
Log Message:
Removed some //CB comments.

Index: InstantPresentation.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPresentation.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** InstantPresentation.pas	29 Jul 2004 20:43:15 -0000	1.3
--- InstantPresentation.pas	8 Sep 2004 21:59:52 -0000	1.4
***************
*** 48,52 ****
  
  type
!   TInstantAddClassFieldDefEvent = procedure (const FieldName : string; var BreakProcess : boolean) of object; //CB
    TInstantChangeType = (ctAppearance, ctData);
    TInstantAccessMode = (amObject, amContent);
--- 48,52 ----
  
  type
!   TInstantAddClassFieldDefEvent = procedure (const FieldName : string; var BreakProcess : boolean) of object; 
    TInstantChangeType = (ctAppearance, ctData);
    TInstantAccessMode = (amObject, amContent);
***************
*** 221,225 ****
      FOnLimit: TInstantLimitObjectsEvent;
      FOnTranslate: TInstantFieldTranslateEvent;
!     FOnAddClassFieldDef: TInstantAddClassFieldDefEvent; //CB
      procedure AccessorChanged(Sender: TObject; ChangeType: TInstantChangeType);
      procedure CheckClass(AObject: TObject);
--- 221,225 ----
      FOnLimit: TInstantLimitObjectsEvent;
      FOnTranslate: TInstantFieldTranslateEvent;
!     FOnAddClassFieldDef: TInstantAddClassFieldDefEvent; 
      procedure AccessorChanged(Sender: TObject; ChangeType: TInstantChangeType);
      procedure CheckClass(AObject: TObject);
***************
*** 262,266 ****
      procedure SetOnLimit(Value: TInstantLimitObjectsEvent);
      procedure SetSorted(Value: Boolean);
!     function GetUndoBuffer: PChar; //CB
    protected
      { IProviderSupport }
--- 262,266 ----
      procedure SetOnLimit(Value: TInstantLimitObjectsEvent);
      procedure SetSorted(Value: Boolean);
!     function GetUndoBuffer: PChar; 
    protected
      { IProviderSupport }
***************
*** 361,368 ****
      procedure SetFiltered(Value: Boolean); override;
      procedure SetRecNo(Value: Integer); override;
!     procedure Undo; virtual; //CB
      procedure UpdateCalcFields;
      procedure WriteProperty(Field: TField; Instance: TObject; Value: Variant);
!     function BreakThorough( const FieldName : string ) : boolean; virtual; //CB
      property Accessor: TInstantAccessor read GetAccessor;
      property ContainerName: string read FContainerName write SetContainerName;
--- 361,368 ----
      procedure SetFiltered(Value: Boolean); override;
      procedure SetRecNo(Value: Integer); override;
!     procedure Undo; virtual; 
      procedure UpdateCalcFields;
      procedure WriteProperty(Field: TField; Instance: TObject; Value: Variant);
!     function BreakThorough( const FieldName : string ) : boolean; virtual; 
      property Accessor: TInstantAccessor read GetAccessor;
      property ContainerName: string read FContainerName write SetContainerName;
***************
*** 415,419 ****
      property Objects[Index: Integer]: TObject read GetObjects;
      property TotalCount: Integer read GetTotalCount;
!     property UndoBuffer: PChar read GetUndoBuffer; //CB
    published
      property FieldOptions: TInstantFieldOptions read FFieldOptions write SetFieldOptions default [foThorough];
--- 415,419 ----
      property Objects[Index: Integer]: TObject read GetObjects;
      property TotalCount: Integer read GetTotalCount;
!     property UndoBuffer: PChar read GetUndoBuffer; 
    published
      property FieldOptions: TInstantFieldOptions read FFieldOptions write SetFieldOptions default [foThorough];
***************
*** 449,453 ****
      property OnLimit: TInstantLimitObjectsEvent read GetOnLimit write SetOnLimit;
      property OnTranslate: TInstantFieldTranslateEvent read FOnTranslate write FOnTranslate;
!     property OnAddClassFieldDef : TInstantAddClassFieldDefEvent read FOnAddClassFieldDef write FOnAddClassFieldDef; //CB
    end;
  
--- 449,453 ----
      property OnLimit: TInstantLimitObjectsEvent read GetOnLimit write SetOnLimit;
      property OnTranslate: TInstantFieldTranslateEvent read FOnTranslate write FOnTranslate;
!     property OnAddClassFieldDef : TInstantAddClassFieldDefEvent read FOnAddClassFieldDef write FOnAddClassFieldDef; 
    end;
  
***************
*** 628,632 ****
  procedure InstantRegisterAccessorClass(AClass: TInstantAccessorClass);
  procedure InstantUnregisterAccessorClass(AClass: TInstantAccessorClass);
! function ExposerGetUndoBuffer(Exposer : TInstantCustomExposer) : PChar; //CB
  
  implementation
--- 628,632 ----
  procedure InstantRegisterAccessorClass(AClass: TInstantAccessorClass);
  procedure InstantUnregisterAccessorClass(AClass: TInstantAccessorClass);
! function ExposerGetUndoBuffer(Exposer : TInstantCustomExposer) : PChar; 
  
  implementation

Index: InstantPersistence.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** InstantPersistence.pas	23 Aug 2004 09:55:20 -0000	1.6
--- InstantPersistence.pas	8 Sep 2004 21:59:52 -0000	1.7
***************
*** 12662,12666 ****
    DataSet : TDataSet;
  begin
-   Result := 0;
    try
      if not UsePreparedQuery then
--- 12662,12665 ----