Scopes off by default, fix bug

SuperDisk · Feb 5, 2023 · 0c1123a · 0c1123a
1 parent 4e189dc
commit 0c1123a
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 8 deletions.
diff --git a/src/hugesettings.pas b/src/hugesettings.pas
@@ -102,7 +102,7 @@ constructor TTrackerSettings.Create;
   SettingsFile := TINIFile.Create('options.ini');
 
   FPatternEditorFontSize := SettingsFile.ReadInteger('hUGETracker', 'fontsize', 12);
-  FUseScopes := SettingsFile.ReadBool('hUGETracker', 'ScopesOn', True);
+  FUseScopes := SettingsFile.ReadBool('hUGETracker', 'ScopesOn', False);
   FUseCustomKeymap := SettingsFile.ReadBool('hUGETracker', 'CustomKeymap', False);
   FPreviewWhenPlacing := SettingsFile.ReadBool('hUGETracker', 'PreviewWhenPlacing', True);
   FPreviewWhenBumping := SettingsFile.ReadBool('hUGETracker', 'PreviewWhenBumping', False);

diff --git a/src/tracker.pas b/src/tracker.pas
@@ -476,7 +476,6 @@   TfrmTracker = class(TForm)
     Playing: Boolean;
     LoadingFile: Boolean;
     SaveSucceeded: Boolean;
-    ScopesOn: Boolean;
 
     WaveInstrumentsNode,
     NoiseInstrumentsNode,
@@ -1496,8 +1495,8 @@ procedure TfrmTracker.FormCreate(Sender: TObject);
   StartPlayback;
 
   // Start the Oscilloscope repaint timer
-  OscilloscopeUpdateTimer.Enabled := ScopesOn;
-  ScopesPanel.Visible := ScopesOn;
+  OscilloscopeUpdateTimer.Enabled := TrackerSettings.UseScopes;
+  ScopesPanel.Visible := TrackerSettings.UseScopes;
 
   // Switch to general tab sheet
   PageControl1.ActivePageIndex := 0;
@@ -2365,10 +2364,8 @@ procedure TfrmTracker.OptionsMenuItemClick(Sender: TObject);
 
   SubpatternGroupBox.Width := RowNumberStringGrid1.Width + TableGrid.Width + 10;
 
-  ScopesOn := TrackerSettings.UseScopes;
-
-  OscilloscopeUpdateTimer.Enabled := ScopesOn;
-  ScopesPanel.Visible := ScopesOn;
+  OscilloscopeUpdateTimer.Enabled := TrackerSettings.UseScopes;
+  ScopesPanel.Visible := TrackerSettings.UseScopes;
 
   RecreateRowNumbers;
   TrackerGrid.Invalidate;