[JVCL-Checkins] SF.net SVN: jvcl: [10912] trunk/jvcl/run/JvAppStorage.pas

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

Revision: 10912
Author:   jfudickar
Date:     2006-08-23 13:30:12 -0700 (Wed, 23 Aug 2006)
ViewCVS:  http://svn.sourceforge.net/jvcl/?rev=10912&view=rev

Log Message:
-----------
Mantis 0003864: JvAppStorage: OnGetFileName does not get called
(Mantis #0003864)

Modified Paths:
--------------
    trunk/jvcl/run/JvAppStorage.pas
Modified: trunk/jvcl/run/JvAppStorage.pas
===================================================================
--- trunk/jvcl/run/JvAppStorage.pas	2006-08-23 11:47:20 UTC (rev 10911)
+++ trunk/jvcl/run/JvAppStorage.pas	2006-08-23 20:30:12 UTC (rev 10912)
@@ -597,9 +597,6 @@
         WideString;
     procedure WriteWideString(const Path: string; const Value: WideString);
     {$ENDIF}
-    //1 The current Translateengine which should be used for all operations. It's the internal translateengine, or the assigned property TranslateStringEngine
-    property ActiveTranslateStringEngine: TJvTranslateString read
-      GetActiveTranslateStringEngine;
     { Root of any values to be read/written. This value is combined with the path given in one of
       the Read*/Write* methods to determine the actual key used. It's always relative to the value
       of Root (which is an absolute path) }
@@ -614,6 +611,9 @@
       to keep backward compatibility }
     property FlushOnDestroy: Boolean read FFlushOnDestroy write SetFlushOnDestroy default True;
   published
+    //1 The current Translateengine which should be used for all operations. It's the internal translateengine, or the assigned property TranslateStringEngine
+    property ActiveTranslateStringEngine: TJvTranslateString read
+        GetActiveTranslateStringEngine;
     property StorageOptions: TJvCustomAppStorageOptions read FStorageOptions write SetStorageOptions;
     //1 This engine gives you the possibility to translate Strings with %-Replacements
     property TranslateStringEngine: TJvTranslateString read FTranslateStringEngine
@@ -3279,6 +3279,7 @@
 {$ENDIF UNIX}
     end;
   end;
+  FPhysicalReadOnly := FileExists(FullFileName) and FileIsReadOnly(FullFileName);
 end;
 
 procedure TJvCustomAppMemoryFileStorage.Reload;
@@ -3323,7 +3324,6 @@
     end;
 
     RecalculateFullFileName;
-    FPhysicalReadOnly := FileExists(FullFileName) and FileIsReadOnly(FullFileName);
     if not (csLoading in ComponentState) and not IsUpdating then
       Reload;
   end;
@@ -3334,7 +3334,7 @@
   if not (csLoading in ComponentState) and not IsUpdating then
     Flush;
   FOnGetFileName := Value;
-  FPhysicalReadOnly := FileExists(FullFileName) and FileIsReadOnly(FullFileName);
+  RecalculateFullFileName;
   if not (csLoading in ComponentState) and not IsUpdating then
     Reload;
 end;
@@ -3347,7 +3347,6 @@
       Flush;
     FLocation := Value;
     RecalculateFullFileName;
-    FPhysicalReadOnly := FileExists(FullFileName) and FileIsReadOnly(FullFileName);
     if not (csLoading in ComponentState) and not IsUpdating then
       Reload;
   end;


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