View Issue Details

IDProjectCategoryView StatusLast Update
0001792JEDI VCL00 JVCL Componentspublic2004-05-28 01:05
ReporteranonymousAssigned Touser72 
PrioritynormalSeverityminorReproducibilityalways
Status resolvedResolutionfixed 
Product Version 
Target VersionFixed in Version 
Summary0001792: AppStorage doesn't work with JvTipOfDay
DescriptionIf you use AppIniFileStorage it doesn't remember the settings. If you use AppXMLFileStorage you get invalid XML Element.
Additional InformationI think that the ini problem is due to that the filename isn't set when the status is read.
TagsNo tags attached.

Activities

2004-05-24 14:11

 

TipTest.zip (3,860 bytes)

user72

2004-05-25 02:09

  ~0004341

Fixing the ini problem (JvAppIniStorage.pas):

function TJvCustomAppIniStorage.ReadValue(const Section, Key: string): string;
var
  ASection: string;
begin
  if IniFile <> nil then
  begin
if AutoReload and not IsUpdating then
      Reload;

    if (Section = '') or (Section[1] = '.') then
...

function TJvCustomAppIniStorage.ValueExists(const Section, Key: string): Boolean;
var ASection:string;
begin
  if IniFile <> nil then
  begin
if AutoReload and not IsUpdating then
    Reload;

...

Fixing the XML problem (JvTipOfDay.pas):

function TJvTipOfDay.ReadFromAppStorage: Boolean;
begin
  if Assigned(AppStorage) then
    Result := AppStorage.ReadBoolean(AppStorage.ConcatPaths([AppStoragePath,'Show_On_Startup']), toShowOnStartUp in Options)
  else
    Result := False;
end;

procedure TJvTipOfDay.WriteToAppStorage(DoShowOnStartUp: Boolean);
begin
  if Assigned(AppStorage) then
    AppStorage.WriteBoolean(AppStorage.ConcatPaths([AppStoragePath,'Show_On_StartUp']), DoShowOnStartUp);
end;

Spaces in node names is not valid XML...

Issue History

Date Modified Username Field Change
2004-05-24 14:11 anonymous New Issue
2004-05-24 14:11 anonymous File Added: TipTest.zip
2004-05-25 02:09 user72 Note Added: 0004341
2004-05-25 02:09 user72 Status new => assigned
2004-05-25 02:09 user72 Assigned To => user72
2004-05-28 01:05 user72 Status assigned => resolved
2004-05-28 01:05 user72 Resolution open => fixed