[JVCL-Checkins] dev/JVCL3/run JvPropertyStore.pas,1.36,1.37 - AppStorage.Begin-/EndUpdate for StoreProperties

[Jens F. <jfu...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4966/JVCL3/run

Modified Files:
	JvPropertyStore.pas 
Log Message:
AppStorage.Begin-/EndUpdate for StoreProperties



Index: JvPropertyStore.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvPropertyStore.pas,v
retrieving revision 1.36
retrieving revision 1.37
diff -C2 -d -r1.36 -r1.37
*** JvPropertyStore.pas	2 Dec 2004 22:57:31 -0000	1.36
--- JvPropertyStore.pas	13 Dec 2004 19:40:41 -0000	1.37
***************
*** 546,563 ****
    if not Assigned(AppStorage) then
      Exit;
!   UpdateChildPaths;
!   DisableAutoLoadDown;
!   SaveProperties := IgnoreLastLoadTime or (GetLastSaveTime < FLastLoadTime);
!   if DeleteBeforeStore then
!     AppStorage.DeleteSubTree(AppStoragePath);
!   if not IgnoreLastLoadTime then
!     AppStorage.WriteString(AppStorage.ConcatPaths([AppStoragePath, cLastSaveTime]), DateTimeToStr(Now));
!   if Assigned(FOnBeforeStoreProperties) then
!     FOnBeforeStoreProperties(Self);
!   if SaveProperties then
!     StoreData;
!   AppStorage.WritePersistent(AppStoragePath, Self, True, CombinedIgnoreProperties);
!   if Assigned(FOnAfterStoreProperties) then
!     FOnAfterStoreProperties(Self);
  end;
  
--- 546,568 ----
    if not Assigned(AppStorage) then
      Exit;
!   AppStorage.BeginUpdate;
!   try
!     UpdateChildPaths;
!     DisableAutoLoadDown;
!     SaveProperties := IgnoreLastLoadTime or (GetLastSaveTime < FLastLoadTime);
!     if DeleteBeforeStore then
!       AppStorage.DeleteSubTree(AppStoragePath);
!     if not IgnoreLastLoadTime then
!       AppStorage.WriteString(AppStorage.ConcatPaths([AppStoragePath, cLastSaveTime]), DateTimeToStr(Now));
!     if Assigned(FOnBeforeStoreProperties) then
!       FOnBeforeStoreProperties(Self);
!     if SaveProperties then
!       StoreData;
!     AppStorage.WritePersistent(AppStoragePath, Self, True, CombinedIgnoreProperties);
!     if Assigned(FOnAfterStoreProperties) then
!       FOnAfterStoreProperties(Self);
!   finally
!     AppStorage.EndUpdate;
!   end;
  end;