diff options
Diffstat (limited to 'Game/Code/Classes')
| -rw-r--r-- | Game/Code/Classes/UMusic.pas | 7 | ||||
| -rw-r--r-- | Game/Code/Classes/URecord.pas | 3 |
2 files changed, 6 insertions, 4 deletions
diff --git a/Game/Code/Classes/UMusic.pas b/Game/Code/Classes/UMusic.pas index bdd0be83..3c43615b 100644 --- a/Game/Code/Classes/UMusic.pas +++ b/Game/Code/Classes/UMusic.pas @@ -97,12 +97,12 @@ type //Custom Sounds CustomSounds: array of TCustomSoundEntry; + Loaded: boolean; + Loop: boolean; function FFMPeg_StreamCreateFile(abool : boolean; aFileName : pchar ): THandle; - Loaded: boolean; - Loop: boolean; public Bass: hStream; procedure InitializePlayback; @@ -670,7 +670,8 @@ begin {$IFDEF useBASS} // TODO : jb_linux replace with something other than bass - if not BASS_RecordInit(RecordI) then begin + if not BASS_RecordInit(RecordI) then + begin Error := BASS_ErrorGetCode; ErrorMsg := IntToStr(Error); diff --git a/Game/Code/Classes/URecord.pas b/Game/Code/Classes/URecord.pas index d22e20d3..b553504d 100644 --- a/Game/Code/Classes/URecord.pas +++ b/Game/Code/Classes/URecord.pas @@ -76,6 +76,7 @@ var Recording: TRecord; implementation + uses UMain; procedure TSound.ProcessNewBuffer; @@ -308,7 +309,7 @@ begin Repeat Inc(No) Until not IsDuplicate(Descr + ' (' + InttoStr(No) + ')'); - + //Set Description Descr := Descr + ' (' + InttoStr(No) + ')'; end; |