/usr/src/castle-game-engine-6.4/window/castlesoundmenu.pas is in castle-game-engine-src 6.4+dfsg1-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 | {
Copyright 2006-2017 Michalis Kamburelis.
This file is part of "Castle Game Engine".
"Castle Game Engine" is free software; see the file COPYING.txt,
included in this distribution, for details about the copyright.
"Castle Game Engine" is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
----------------------------------------------------------------------------
}
{ Menu items (suitable for TCastleOnScreenMenu) to control the TRepoSoundEngine. }
unit CastleSoundMenu;
{$I castleconf.inc}
interface
uses Classes,
CastleOnScreenMenu, CastleSoundEngine, CastleUIControls,
CastleControls;
type
{ On-screen menu item that displays sound information.
Simply add it to your TCastleOnScreenMenu like
@longCode(#
OnScreenMenu.Add(TSoundInfoMenuItem.Create(OnScreenMenu));
#)
Also be sure to assign Application.MainWindow, it is used
as the window from which we show modal dialog box with sound information. }
TSoundInfoMenuItem = class(TCastleLabel)
strict private
procedure ButtonClick(Sender: TObject);
public
constructor Create(AOwner: TComponent); override;
end;
{ Float slider suitable for volume setting.
Range is always [0 .. 1] and when the slider is exactly
on 0.0 position it shows "Off". }
TMenuVolumeSlider = class(TCastleFloatSlider)
function ValueToStr(const AValue: Single): string; override;
end;
{ On-screen menu item that allows to control sound volume.
Simply add it to your TCastleOnScreenMenu like
@longCode(#
OnScreenMenu.Add(TSoundVolumeMenuItem.Create(OnScreenMenu));
#) }
TSoundVolumeMenuItem = class(TCastleLabel)
private
FSlider: TMenuVolumeSlider;
property Slider: TMenuVolumeSlider read FSlider;
procedure SliderValueChanged(Sender: TObject);
public
constructor Create(AOwner: TComponent); override;
{ Call this if volume changed by something outside of this class. }
procedure Refresh;
end;
{ On-screen menu item that allows to control music volume.
Simply add it to your TCastleOnScreenMenu like
@longCode(#
OnScreenMenu.Add(TMusicVolumeMenuItem.Create(OnScreenMenu));
#) }
TMusicVolumeMenuItem = class(TCastleLabel)
private
FSlider: TMenuVolumeSlider;
property Slider: TMenuVolumeSlider read FSlider;
procedure SliderValueChanged(Sender: TObject);
public
constructor Create(AOwner: TComponent); override;
{ Call this if volume changed by something outside of this class. }
procedure Refresh;
end;
implementation
uses CastleWindow, CastleClassUtils, CastleUtils, CastleMessages;
{ TSoundInfoMenuItem ------------------------------------------------------- }
constructor TSoundInfoMenuItem.Create(AOwner: TComponent);
var
Button: TCastleMenuButton;
begin
inherited;
Caption := 'View sound information';
Button := TCastleMenuButton.Create(Self);
Button.OnClick := @ButtonClick;
InsertFront(Button);
end;
procedure TSoundInfoMenuItem.ButtonClick(Sender: TObject);
var
S: TStringList;
begin
S := TStringList.Create;
try
S.Append('Sound library (OpenAL) status:');
S.Append('');
Strings_AddSplittedString(S, SoundEngine.Information, nl);
if Application.MainWindow = nil then
raise EInternalError.Create('You must assign Application.MainWindow to make clicks on TSoundInfoMenuItem work');
MessageOK(Application.MainWindow, S);
finally S.Free end;
end;
{ TMenuVolumeSlider ---------------------------------------------------- }
function TMenuVolumeSlider.ValueToStr(const AValue: Single): string;
begin
if AValue = 0.0 then
Result := 'Off' else
Result := inherited ValueToStr(AValue);
end;
{ TSoundVolumeMenuItem ----------------------------------------------------- }
constructor TSoundVolumeMenuItem.Create(AOwner: TComponent);
begin
inherited;
Caption := 'Volume';
FSlider := TMenuVolumeSlider.Create(Self);
FSlider.Value := SoundEngine.Volume;
FSlider.OnChange := @SliderValueChanged;
InsertFront(FSlider);
end;
procedure TSoundVolumeMenuItem.SliderValueChanged(Sender: TObject);
begin
SoundEngine.Volume := Slider.Value;
end;
procedure TSoundVolumeMenuItem.Refresh;
begin
Slider.Value := SoundEngine.Volume;
end;
{ TMusicVolumeMenuItem ----------------------------------------------------- }
constructor TMusicVolumeMenuItem.Create(AOwner: TComponent);
begin
inherited;
Caption := 'Music volume';
FSlider := TMenuVolumeSlider.Create(Self);
FSlider.Value := SoundEngine.MusicPlayer.MusicVolume;
FSlider.OnChange := @SliderValueChanged;
InsertFront(FSlider);
end;
procedure TMusicVolumeMenuItem.SliderValueChanged(Sender: TObject);
begin
SoundEngine.MusicPlayer.MusicVolume := Slider.Value;
end;
procedure TMusicVolumeMenuItem.Refresh;
begin
Slider.Value := SoundEngine.MusicPlayer.MusicVolume;
end;
end.
|