From: <jfu...@us...> - 2006-08-23 20:30:23
|
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. |