Changeset 666 for trunk/Settings.pas

Timestamp:

Jul 9, 2025, 10:36:23 PM (17 hours ago)

Author:

chronos

Message:

• Added: Music volume option in game settings form.

File:

• trunk/Settings.pas (modified) (13 diffs)

trunk/Settings.pas

@@ -13 +13 @@
 
   TSettingsDlg = class(TDrawDlg)
+    ButtonMusicVolumeDown: TButtonC;
+    ButtonMusicVolumeUp: TButtonC;
     ButtonFullscreen: TButtonC;
     ButtonCustomDpi: TButtonC;
@@ -31 +33 @@
     procedure ButtonFullscreenClick(Sender: TObject);
     procedure ButtonCancelClick(Sender: TObject);
+    procedure ButtonMusicVolumeDownClick(Sender: TObject);
+    procedure ButtonMusicVolumeUpClick(Sender: TObject);
     procedure ButtonResetClick(Sender: TObject);
     procedure ButtonGammaDownClick(Sender: TObject);
@@ -48 +52 @@
     LocalGamma: Integer;
     LocalKeyBindings: TKeyBindings;
+    LocalMusicVolume: Integer;
     CurrentKeyBinding: TKeyBinding;
     LocalDpi: Integer;
@@ -65 +70 @@
   DpiMax = 500;
   DpiStep = 25;
+  MusicVolumeMin = 0;
+  MusicVolumeMax = 100;
+  MusicVolumeStep = 10;
 
 
@@ -76 +84 @@
 var
   SFullScreen, SGamma, SRestartMsg, SShortCutPrimary, SShortCutSecondary,
-  SLanguages, SKeyBindings, SCustomDpi, SDpi: string;
+  SLanguages, SKeyBindings, SCustomDpi, SDpi, SMusic: string;
 
 procedure ReloadLanguages;
@@ -89 +97 @@
   SCustomDpi := Phrases.Lookup('SETTINGS', 7);
   SDpi := Phrases.Lookup('SETTINGS', 8);
+  SMusic := Phrases.Lookup('SETTINGS', 9);
 end;
 
@@ -112 +121 @@
 end;
 
+procedure TSettingsDlg.ButtonMusicVolumeDownClick(Sender: TObject);
+begin
+  Dec(LocalMusicVolume, MusicVolumeStep);
+  if LocalMusicVolume < MusicVolumeMin then LocalMusicVolume := MusicVolumeMin;
+  Invalidate;
+end;
+
+procedure TSettingsDlg.ButtonMusicVolumeUpClick(Sender: TObject);
+begin
+  Inc(LocalMusicVolume, MusicVolumeStep);
+  if LocalMusicVolume > MusicVolumeMax then LocalMusicVolume := MusicVolumeMax;
+  Invalidate;
+end;
+
 procedure TSettingsDlg.ButtonResetClick(Sender: TObject);
 begin
@@ -117 +140 @@
   ListLanguages.ItemIndex := 0;
   ButtonFullscreen.ButtonIndex := 3;
+  LocalMusicVolume := 50;
   ButtonCustomDpi.ButtonIndex := 2;
   LocalDpi := 100;
@@ -202 +226 @@
 
 procedure TSettingsDlg.FormPaint(Sender: TObject);
+const
+  TextDistanceX = 20;
+  UpDownTextWidth = 120;
 begin
   PaintBackground(Canvas, 3, 3, ClientWidth - 6, ClientHeight - 6,
@@ -223 +250 @@
     ButtonCustomDpi.Left + 12, ButtonCustomDpi.Top + 12, MainTexture.ColorBevelShade,
     MainTexture.ColorBevelLight);
-  LoweredTextOut(Canvas, -2, MainTexture, ButtonCustomDpi.Left + 32,
+  LoweredTextOut(Canvas, -2, MainTexture, ButtonCustomDpi.Left + TextDistanceX,
     ButtonCustomDpi.Top - 4, SCustomDpi);
   UnderlinedTitleValue(Canvas, SDpi, IntToStr(LocalDpi) + '%',
-    ButtonDpiUp.Left - 150 - 4, ButtonDpiUp.Top + 2, 150);
+    ButtonDpiUp.Left - UpDownTextWidth - 4, ButtonDpiUp.Top + 2, UpDownTextWidth);
   {$ENDIF}
+
+  UnderlinedTitleValue(Canvas, SMusic, IntToStr(LocalMusicVolume) + '%',
+    ButtonMusicVolumeUp.Left - UpDownTextWidth - 4, ButtonMusicVolumeUp.Top + 2, UpDownTextWidth);
 
   LoweredTextOut(Canvas, -2, MainTexture, ListLanguages.Left,
@@ -233 +263 @@
   LoweredTextOut(Canvas, -2, MainTexture, ListKeyBindings.Left,
     ListKeyBindings.Top - 26, SKeyBindings);
-  LoweredTextOut(Canvas, -2, MainTexture, ButtonFullscreen.Left + 32,
+  LoweredTextOut(Canvas, -2, MainTexture, ButtonFullscreen.Left + TextDistanceX,
     ButtonFullscreen.Top - 4, SFullScreen);
   UnderlinedTitleValue(Canvas, SGamma, IntToStr(LocalGamma) + '%',
-    ButtonGammaUp.Left - 150 - 4, ButtonGammaUp.Top + 2, 150);
+    ButtonGammaUp.Left - UpDownTextWidth - 4, ButtonGammaUp.Top + 2, UpDownTextWidth);
   LoweredTextOut(Canvas, -2, MainTexture, EditShortCutPrimary.Left,
     EditShortCutPrimary.Top - 26, SShortCutPrimary);
@@ -343 +373 @@
   if FullScreen then ButtonFullscreen.ButtonIndex := 3
     else ButtonFullscreen.ButtonIndex := 2;
+  if MusicEnabled then LocalMusicVolume := Round(MusicVolume * 100)
+    else LocalMusicVolume := 0;
   LocalGamma := Gamma;
   LocalKeyBindings.Assign(KeyBindings.KeyBindings);
@@ -366 +398 @@
   end;
   FullScreen := (ButtonFullscreen.ButtonIndex and 1) = 1;
+  MusicEnabled := LocalMusicVolume > 0;
+  MusicVolume := LocalMusicVolume / 100;
   Gamma := LocalGamma;
   ScreenTools.CustomDpiEnabled := CustomDpiEnabled;