Update of /cvsroot/instantobjects/Source/Core
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17664/Source/Core
Modified Files:
InstantPresentation.pas
Log Message:
Revert to Undo Buffer not accessible by Exposers descendants
Index: InstantPresentation.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPresentation.pas,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** InstantPresentation.pas 1 Oct 2004 16:09:13 -0000 1.7
--- InstantPresentation.pas 19 Oct 2004 07:46:38 -0000 1.8
***************
*** 27,31 ****
* Carlo Barazzetta, Andrea Petrelli: porting Kylix
* Carlo Barazzetta:
! * - Exposer Undo virtual and access to UndoBuffer
* - Exposer OnAddClassFieldDef event
* - Added Currency and Graphic support to exposer
--- 27,31 ----
* Carlo Barazzetta, Andrea Petrelli: porting Kylix
* Carlo Barazzetta:
! * - Exposer Undo virtual and access to UndoBuffer (Removed!)
* - Exposer OnAddClassFieldDef event
* - Added Currency and Graphic support to exposer
***************
*** 273,277 ****
procedure SetOnProgress(const Value: TInstantProgressEvent);
procedure SetSorted(Value: Boolean);
- function GetUndoBuffer: PChar;
protected
{ IProviderSupport }
--- 273,276 ----
***************
*** 426,430 ****
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];
--- 425,428 ----
***************
*** 640,644 ****
procedure InstantRegisterAccessorClass(AClass: TInstantAccessorClass);
procedure InstantUnregisterAccessorClass(AClass: TInstantAccessorClass);
- function ExposerGetUndoBuffer(Exposer : TInstantCustomExposer) : PChar;
implementation
--- 638,641 ----
***************
*** 901,908 ****
end;
- function ExposerGetUndoBuffer(Exposer : TInstantCustomExposer) : PChar;
- begin
- Result := Exposer.FUndoBuffer;
- end;
{ TInstantAccessor }
--- 898,901 ----
***************
*** 2370,2377 ****
end;
- function TInstantCustomExposer.GetUndoBuffer: PChar;
- begin
- Result := FUndoBuffer;
- end;
procedure TInstantCustomExposer.GotoActiveRecord;
--- 2363,2366 ----
|
