Update of /cvsroot/instantobjects/Source/Core
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7501
Modified Files:
InstantPersistence.pas
Log Message:
Fix non-saving of external part attribute.
Index: InstantPersistence.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v
retrieving revision 1.40
retrieving revision 1.41
diff -C2 -d -r1.40 -r1.41
*** InstantPersistence.pas 18 Jun 2005 09:46:35 -0000 1.40
--- InstantPersistence.pas 18 Jun 2005 23:43:45 -0000 1.41
***************
*** 13166,13170 ****
I: Integer;
begin
! for I := 0 to PRed(ResolverCount) do
begin
Result := Resolvers[I];
--- 13166,13170 ----
I: Integer;
begin
! for I := 0 to Pred(ResolverCount) do
begin
Result := Resolvers[I];
***************
*** 13908,13912 ****
begin
PartAttribute := TInstantPart(AObject.AttributeByName(AttributeMetadata.Name));
! if PartAttribute.IsChanged then
begin
if Map[i].StorageKind = skExternal then
--- 13908,13912 ----
begin
PartAttribute := TInstantPart(AObject.AttributeByName(AttributeMetadata.Name));
! if PartAttribute.IsChanged or not PartAttribute.Value.IsPersistent then
begin
if Map[i].StorageKind = skExternal then
|
