View Issue Details
| ID | Project | Category | View Status | Date Submitted | Last Update |
|---|---|---|---|---|---|
| 0001792 | JEDI VCL | 00 JVCL Components | public | 2004-05-24 14:11 | 2004-05-28 01:05 |
| Reporter | anonymous | Assigned To | user72 | ||
| Priority | normal | Severity | minor | Reproducibility | always |
| Status | resolved | Resolution | fixed | ||
| Product Version | |||||
| Target Version | Fixed in Version | ||||
| Summary | 0001792: AppStorage doesn't work with JvTipOfDay | ||||
| Description | If you use AppIniFileStorage it doesn't remember the settings. If you use AppXMLFileStorage you get invalid XML Element. | ||||
| Additional Information | I think that the ini problem is due to that the filename isn't set when the status is read. | ||||
| Tags | No tags attached. | ||||
|
2004-05-24 14:11
|
TipTest.zip (3,860 bytes) |
|
|
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... |
| 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 |
|
Note Added: 0004341 | |
| 2004-05-25 02:09 |
|
Status | new => assigned |
| 2004-05-25 02:09 |
|
Assigned To | => user72 |
| 2004-05-28 01:05 |
|
Status | assigned => resolved |
| 2004-05-28 01:05 |
|
Resolution | open => fixed |
