[JVCL-Checkins] SF.net SVN: jvcl:[13504] trunk/jvcl/run/JvPropertyStore.pas

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

Revision: 13504
          http://jvcl.svn.sourceforge.net/jvcl/?rev=13504&view=rev
Author:   jfudickar
Date:     2013-04-09 22:23:19 +0000 (Tue, 09 Apr 2013)
Log Message:
-----------
TJvCustomPropertyStore.StoreXMLProperties added

Modified Paths:
--------------
    trunk/jvcl/run/JvPropertyStore.pas

Modified: trunk/jvcl/run/JvPropertyStore.pas
===================================================================
--- trunk/jvcl/run/JvPropertyStore.pas	2013-04-09 22:22:31 UTC (rev 13503)
+++ trunk/jvcl/run/JvPropertyStore.pas	2013-04-09 22:23:19 UTC (rev 13504)
@@ -87,6 +87,7 @@
     function GetPropertyName(Index: Integer): string;
     //1 Returns the given property as TJvCustomPropertyStore or returns nil
     function GetPropertyJvCustomPropertyStore(PropName: string): TJvCustomPropertyStore;
+    procedure StoreXMLProperties; virtual;
   public
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -843,10 +844,10 @@
 
 procedure TJvCustomPropertyStore.StoreProperties;
 var
-  SaveProperties: Boolean;
   Mutex: TJclMutex;
 
   procedure ExecuteStoreProperties;
+  var SaveProperties: Boolean;
   begin
     AppStorage.BeginUpdate;
     try
@@ -860,14 +861,12 @@
         if StorePropertiesNow then
         begin
           if not IgnoreLastLoadTime then
-            AppStorage.WriteString(AppStorage.ConcatPaths([AppStoragePath,
-              cLastSaveTime]), DateTimeToStr(Now));
+            AppStorage.WriteString(AppStorage.ConcatPaths([AppStoragePath, cLastSaveTime]), DateTimeToStr(Now));
           if Assigned(FOnBeforeStoreProperties) then
             FOnBeforeStoreProperties(Self);
-          if SaveProperties then
-            StoreData;
-          AppStorage.WritePersistent(AppStoragePath, Self, True,
-            CombinedIgnoreProperties);
+          StoreData;
+          StoreXMLProperties;
+          AppStorage.WritePersistent(AppStoragePath, Self, True, CombinedIgnoreProperties);
           if Assigned(FOnAfterStoreProperties) then
             FOnAfterStoreProperties(Self);
         end;
@@ -921,6 +920,10 @@
 begin
 end;
 
+procedure TJvCustomPropertyStore.StoreXMLProperties;
+begin
+end;
+
 function TJvCustomPropertyStore.StorePropertiesNow: Boolean;
 begin
   Result := True;

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.