|Anonymous | Login | Signup for a new account||2019-05-19 23:35 CEST|
|Main | My View | View Issues | Change Log | Roadmap | Docs|
|Viewing Issue Simple Details|
|ID||Category||Severity||Reproducibility||Date Submitted||Last Update|
|0002620||[JEDI VCL] 00 JVCL Components||major||always||2005-02-10 13:57||2005-02-13 05:52|
|Status||resolved||Product Version||3.00 BETA 2|
|Summary||0002620: Run-time constructed AppStorage empties the storage.|
If you create an appstorage at run-time, don't reload it, then on destruction it will empty the storage.
with TJvAppXmlFileStorage.Create(nil) do
FileName := 'temp.xml';
temp.xml will be filled with:
<?xml version="1.0" encoding="iso-8859-1"?>
* TJvCustomAppStorage.Loaded solves this for components dropped on a form by calling Reload (Loaded is offcourse not called for components created at run-time). I think when AutoReload is False, the component should NOT automatically load the storage in memory.
if not IsUpdating then
* TJvCustomAppMemoryFileStorage.SetFileName calls Reload when FLoadedFinished is set to true. I suspect the creator of that code wanted it to work the same as the csLoading flag, but for run-time created storages FLoadedFinished will always be false (because Loaded is never called).
|Tags||No tags attached.|
What if you replace this:
if FLoadedFinished and not IsUpdating then
if not (csLoading in ComponentState) and not IsUpdating then
In both SetFileName and SetLocation.
I tried this here, it seems to work with both methods: Design time and Run time.
Yeah, that probably works, although you have to set Location before FileName now at run-time.
Any reason why these components do not have an Active property?
This is now in CVS.
Note that you don't have to set the properties in any particular order, as it will load the file in both cases, and do it silently if the file does not exist.
As to getting an Active property, I don't see the point as it is all in memory after all.
|2005-02-10 13:57||remkobonte||New Issue|
|2005-02-10 15:10||jfudickar||Issue Monitored: jfudickar|
|2005-02-11 03:31||obones||Status||new => assigned|
|2005-02-11 03:31||obones||Assigned To||=> obones|
|2005-02-12 09:31||obones||Note Added: 0006472|
|2005-02-12 09:31||obones||Status||assigned => feedback|
|2005-02-13 05:18||remkobonte||Note Added: 0006477|
|2005-02-13 05:52||obones||Status||feedback => resolved|
|2005-02-13 05:52||obones||Fixed in Version||=> 3.00|
|2005-02-13 05:52||obones||Resolution||open => fixed|
|2005-02-13 05:52||obones||Note Added: 0006478|
|Mantis 1.1.6[^] Copyright © 2000 - 2008 Mantis Group|