add GetSampleSize()

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@2778 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 8 insertions, 1 deletions

diff --git a/src/base/UMusic.pas b/src/base/UMusic.pas
index c775fd51..be6b8baf 100644
--- a/src/base/UMusic.pas
+++ b/src/base/UMusic.pas
@@ -178,6 +178,7 @@ type
       procedure SetFormat(Format: TAudioSampleFormat);
       procedure UpdateFrameSize();
       function GetBytesPerSec(): double;
+      function GetSampleSize(): integer;
     public
       constructor Create(Channels: byte; SampleRate: double; Format: TAudioSampleFormat);
       function Copy(): TAudioFormatInfo;
@@ -193,6 +194,7 @@ type
       property Channels: byte read fChannels write SetChannels;
       property Format: TAudioSampleFormat read fFormat write SetFormat;
       property FrameSize: integer read fFrameSize;
+      property SampleSize: integer read GetSampleSize;
       property BytesPerSec: double read GetBytesPerSec;
   end;
 
@@ -650,7 +652,12 @@ end;
 
 function TAudioFormatInfo.GetBytesPerSec(): double;
 begin
-  Result := FrameSize * SampleRate; 
+  Result := FrameSize * SampleRate;
+end;
+
+function TAudioFormatInfo.GetSampleSize(): integer;
+begin
+  Result := AudioSampleSize[fFormat];
 end;
 
 procedure TAudioFormatInfo.UpdateFrameSize();