Changeset 473 for trunk/Start.pas
- Timestamp:
- Dec 4, 2023, 12:13:15 PM (12 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Start.pas
r472 r473 389 389 390 390 OpenKey(AppRegistryKey, True); 391 if ValueExists('Gamma') then Gamma := ReadInteger('Gamma')392 else Gamma := 100;393 if Gamma <> 100 then InitGammaLookupTable;394 391 if ValueExists('Locale') then LocaleCode := ReadString('Locale') 395 392 else LocaleCode := ''; … … 444 441 Reg: TRegistry; 445 442 begin 443 ScreenTools.SaveConfig(AppRegistryKey); 444 446 445 Reg := TRegistry.Create; 447 446 with Reg do try … … 450 449 WriteInteger('LandMass', StartLandMass); 451 450 WriteString('Locale', LocaleCode); 452 WriteInteger('Gamma', Gamma);453 451 if FullScreen then WriteInteger('ScreenMode', 1) 454 452 else WriteInteger('ScreenMode', 0);
Note:
See TracChangeset
for help on using the changeset viewer.