Commit b81aec2

Nick Faro committed on
Initialize tracker settings after chdir (fixes coffee bat's problem)
commit b81aec2f7ee49c6f5cdd3bcf1e0d5086f19b6ac5 parent f0b0b8e
2 changed files +12−5
ModifiedhUGETracker.lpr +5−3
@@ -17,11 +17,11 @@ uses
17 SysUtils, 17 SysUtils,
18 Forms, 18 Forms,
19 Interfaces, 19 Interfaces,
20
21 hUGESettings,
22
20 Tracker in 'Tracker.pas', 23 Tracker in 'Tracker.pas',
21 EffectEditor in 'effecteditor.pas', 24 EffectEditor in 'effecteditor.pas',
22 Z80CPU in 'CPU\z80cpu.pas',
23 sound in 'Sound\sound.pas',
24 vars in 'Global\vars.pas',
25 options in 'options.pas', 25 options in 'options.pas',
26 about_hugetracker in 'about_hugetracker.pas', 26 about_hugetracker in 'about_hugetracker.pas',
27 rendertowave in 'rendertowave.pas'; 27 rendertowave in 'rendertowave.pas';
@@ -45,6 +45,8 @@ begin
45 // Change working directory to the tracker directory 45 // Change working directory to the tracker directory
46 ChDir(ExtractFileDir(ParamStr(0))); 46 ChDir(ExtractFileDir(ParamStr(0)));
47 47
48 InitializeTrackerSettings;
49
48 {$if declared(useHeapTrace)} 50 {$if declared(useHeapTrace)}
49 // Set up -gh output for the Leakview package: 51 // Set up -gh output for the Leakview package:
50 if FileExists('heap.trc') then 52 if FileExists('heap.trc') then
Modifiedhugesettings.pas +7−2
@@ -41,11 +41,18 @@ type
41 constructor Create; 41 constructor Create;
42 end; 42 end;
43 43
44 procedure InitializeTrackerSettings;
45
44 var 46 var
45 TrackerSettings: TTrackerSettings = nil; 47 TrackerSettings: TTrackerSettings = nil;
46 48
47 implementation 49 implementation
48 50
51 procedure InitializeTrackerSettings;
52 begin
53 TrackerSettings := TTrackerSettings.Create;
54 end;
55
49 { TTrackerSettings } 56 { TTrackerSettings }
50 57
51 procedure TTrackerSettings.SetPatternEditorFontSize(AValue: Integer); 58 procedure TTrackerSettings.SetPatternEditorFontSize(AValue: Integer);
@@ -103,8 +110,6 @@ begin
103 FDisplayOrderRowNumbersAsHex := SettingsFile.ReadBool('hUGETracker', 'DisplayOrderRowNumbersAsHex', False); 110 FDisplayOrderRowNumbersAsHex := SettingsFile.ReadBool('hUGETracker', 'DisplayOrderRowNumbersAsHex', False);
104 end; 111 end;
105 112
106 initialization
107 TrackerSettings := TTrackerSettings.Create;
108 finalization 113 finalization
109 if Assigned(TrackerSettings) then TrackerSettings.Free; 114 if Assigned(TrackerSettings) then TrackerSettings.Free;
110 115